Add a test for align separation and fix the feature

Author: Malabarba

clojure-mode.el

@@ -927,12 +927,20 @@ When called from lisp code align everything between BEG and END."
                         (backward-up-list)
                         (forward-sexp 1)
                         (point-marker)))
-            (clojure-align-forms-automatically nil))
-        (align-region (point) sexp-end "^ *$"
-                      '((clojure-align (regexp . clojure--search-whitespace-after-next-sexp)
-                                       (group . 1)
-                                       (repeat . t)))
-                      nil)
+            (clojure-align-forms-automatically nil)
+            (count 1))
+        ;; For some bizarre reason, we need to `align-region' once for each
+        ;; group.
+        (save-excursion
+          (while (search-forward-regexp "^ *\n" sexp-end 'noerror)
+            (incf count)))
+        (dotimes (_ count)
+          (align-region (point) sexp-end nil
+                        '((clojure-align (regexp . clojure--search-whitespace-after-next-sexp)
+                                  (group . 1)
+                                  (separate . "^ *$")
+                                  (repeat . t)))
+                        nil))
         ;; Reindent after aligning because of #360.
         (indent-region (point) sexp-end)))))
 

test/clojure-mode-indentation-test.el

@@ -488,6 +488,18 @@ x
   "(let [a b
       c d])")
 
+(def-full-align-test blank-line
+  "(let [this-is-a-form b
+      c              d
+
+      another form
+      k       g])"
+  "{:this-is-a-form b
+ c               d
+
+ :another form
+ k        g}")
+
 (def-full-align-test basic-reversed
   "{c               d
  :this-is-a-form b}"