[Fix #511] Fix incorrect indentation of namespaced map (#533)

Author: anthonygalea

CHANGELOG.md

@@ -34,6 +34,7 @@
 
 * [#489](https://github.com/clojure-emacs/clojure-mode/issues/489): Inserting parens before comment form doesn't move point.
 * [#500](https://github.com/clojure-emacs/clojure-mode/pull/500): Fix project.el integration.
+* [#513](https://github.com/clojure-emacs/clojure-mode/pull/513): Fix incorrect indentation of namespaced map.
 
 ### Changes
 

clojure-mode.el

@@ -1977,7 +1977,7 @@ Returns a list pair, e.g. (\"defn\" \"abc\") or (\"deftest\" \"some-test\")."
 \"Non-logical\" sexp are ^metadata and #reader.macros."
   (comment-normalize-vars)
   (comment-forward (point-max))
-  (looking-at-p "\\^\\|#[[:alpha:]]"))
+  (looking-at-p "\\^\\|#:?:?[[:alpha:]]"))
 
 (defun clojure-forward-logical-sexp (&optional n)
   "Move forward N logical sexps.

test/clojure-mode-indentation-test.el

@@ -148,6 +148,24 @@ DESCRIPTION is a string with the description of the spec."
     (cond
       |x)")
 
+  (when-indenting-with-point-it "should indent cond-> with a namespaced map"
+    "
+(cond-> #:a{:b 1}
+|x 1)"
+
+    "
+(cond-> #:a{:b 1}
+  |x 1)")
+
+  (when-indenting-with-point-it "should indent cond-> with a namespaced map 2"
+    "
+(cond-> #::a{:b 1}
+|x 1)"
+
+    "
+(cond-> #::a{:b 1}
+  |x 1)")
+
   (when-indenting-with-point-it "should indent threading macro with expression on first line"
     "
     (->> expr

test/clojure-mode-sexp-test.el

@@ -117,7 +117,15 @@ and point left there."
       (clojure-forward-logical-sexp 2)
       (expect (looking-back "\\^String biverse"))
       (clojure-backward-logical-sexp 1)
-      (expect (looking-at-p "\\^String biverse")))))
+      (expect (looking-at-p "\\^String biverse"))))
+
+  (it "should handle a namespaced map"
+    (with-clojure-buffer "first #:name/space{:k v}"
+      (clojure-backward-logical-sexp 1)
+      (expect (looking-at-p "#:name/space{:k v}"))
+      (insert  " #::ns {:k v}")
+      (clojure-backward-logical-sexp 1)
+      (expect (looking-at-p "#::ns {:k v}")))))
 
 (describe "clojure-backward-logical-sexp"
   (it "should work with buffer corners"