[nongnu] elpa/dockerfile-mode 5db94549ce 104/104: Add a toggle for auto indentation

[ELPA Syncer]

branch: elpa/dockerfile-mode
commit 5db94549ce8b000ae35adf511c820ad228178052
Author: Codruț Constantin Gușoi <mail+git@codrut.pro>
Commit: Drew Csillag <drew@thecsillags.com>

    Add a toggle for auto indentation
---
 dockerfile-mode.el | 26 ++++++++++++++++----------
 1 file changed, 16 insertions(+), 10 deletions(-)

diff --git a/dockerfile-mode.el b/dockerfile-mode.el
index 8c12ac45b8..759e02b85c 100644
--- a/dockerfile-mode.el
+++ b/dockerfile-mode.el
@@ -65,6 +65,10 @@ but for now it has to be explicitly enabled to work.
 It is supported from docker 18.09"
   :type 'boolean)
 
+(defcustom dockerfile-enable-auto-indent t
+  "Toggles the auto indentation functionality."
+  :type 'boolean)
+
 (defcustom dockerfile-indent-offset (or standard-indent 2)
   "Dockerfile number of columns for margin-changing functions to indent."
   :type 'integer
@@ -134,16 +138,18 @@ It is supported from docker 18.09"
   "Indent lines in a Dockerfile.
 
 Lines beginning with a keyword are ignored, and any others are
-indented by one `dockerfile-indent-offset'."
-  (unless (member (get-text-property (point-at-bol) 'face)
-                  '(font-lock-comment-delimiter-face font-lock-keyword-face))
-    (save-excursion
-      (beginning-of-line)
-      (skip-chars-forward "[ \t]" (point-at-eol))
-      (unless (equal (point) (point-at-eol)) ; Ignore empty lines.
-        ;; Delete existing whitespace.
-        (delete-char (- (point-at-bol) (point)))
-        (indent-to dockerfile-indent-offset)))))
+indented by one `dockerfile-indent-offset'. Functionality toggled
+by `dockerfile-enable-auto-indent'."
+  (when dockerfile-enable-auto-indent
+    (unless (member (get-text-property (point-at-bol) 'face)
+             '(font-lock-comment-delimiter-face font-lock-keyword-face))
+     (save-excursion
+       (beginning-of-line)
+       (skip-chars-forward "[ \t]" (point-at-eol))
+       (unless (equal (point) (point-at-eol)) ; Ignore empty lines.
+         ;; Delete existing whitespace.
+         (delete-char (- (point-at-bol) (point)))
+         (indent-to dockerfile-indent-offset))))))
 
 (defun dockerfile-build-arg-string ()
   "Create a --build-arg string for each element in `dockerfile-build-args'."