[nongnu] elpa/nix-mode 4ac7b5afb6 287/500: Add indent region function

[ELPA Syncer]

branch: elpa/nix-mode
commit 4ac7b5afb66f995f3fcfa0834939326b749f4da8
Author: Matthew Bauer <mjbauer95@gmail.com>
Commit: Matthew Bauer <mjbauer95@gmail.com>

    Add indent region function
    
    We will always use nix-indent line here.
---
 nix-mode.el | 28 +++++++++++++++++++++++++++-
 1 file changed, 27 insertions(+), 1 deletion(-)

diff --git a/nix-mode.el b/nix-mode.el
index bb8f1c2f67..73d12a5e63 100644
--- a/nix-mode.el
+++ b/nix-mode.el
@@ -398,7 +398,6 @@ STRING-TYPE type of string based off of Emacs syntax table 
types"
   "Search backward for items of interest regarding indentation."
   (re-search-backward nix-re-ends nil t)
   (re-search-backward nix-re-quotes nil t)
-  (re-search-backward nix-re-comments nil t)
   (re-search-backward nix-re-caps nil t))
 
 (defun nix-indent-expression-start ()
@@ -527,6 +526,30 @@ STRING-TYPE type of string based off of Emacs syntax table 
types"
   (or (looking-at nix-re-quotes)
       (nix--get-string-type (nix--get-parse-state (point)))))
 
+;;;###autoload
+(defun nix-indent-region (start end)
+  "Indent on a whole region. Enabled by default.
+START where to start in region.
+END where to end the region."
+  (save-excursion
+    (goto-char start)
+    (while (< (point) end)
+      (or (and (bolp) (eolp))
+          (when (and
+                 ;; Skip if previous line is empty or a comment.
+                 (save-excursion
+                   (let ((line-is-comment-p (nix-is-comment-p)))
+                     (forward-line -1)
+                     (not
+                      (or (and (nix-is-comment-p)
+                               ;; Unless this line is a comment too.
+                               (not line-is-comment-p))
+                          (nix-is-comment-p)))))
+                 ;; Don't mess with strings.
+                 (nix-is-string-p))
+            (nix-indent-line)))
+      (forward-line 1))))
+
 ;;;###autoload
 (defun nix-mode-ffap-nixpkgs-path (str)
   "Support `ffap' for <nixpkgs> declarations.
@@ -605,6 +628,7 @@ The hook `nix-mode-hook' is run when Nix mode is started.
 
   ;; Automatic indentation [C-j]
   (setq-local indent-line-function nix-indent-function)
+  (set (make-local-variable 'indent-region-function) 'nix-indent-region)
 
   ;; Indenting of comments
   (setq-local comment-start "# ")
@@ -617,8 +641,10 @@ The hook `nix-mode-hook' is run when Nix mode is started.
   (setq-local paragraph-start "[ \t]*\\(#+[ \t]*\\)?$")
   (setq-local paragraph-separate paragraph-start)
 
+  ;; Menu
   (easy-menu-add nix-mode-menu nix-mode-map)
 
+  ;; Find file at point
   (push '(nix-mode . nix-mode-ffap-nixpkgs-path) ffap-alist)
   (push '(nix-mode "--:\\\\${}<>+@-Z_[:alpha:]~*?" "@" "@;.,!:")
         ffap-string-at-point-mode-alist))