Namespaced maps now handle all Clojure whitespace

Was only allow spaces, now also allowing newlines and commas.

Fixes #140

Author: lread

CHANGELOG.adoc

@@ -16,6 +16,7 @@ For a list of breaking changes see link:#v1-breaking[breaking changes].
 
 === Unreleased
 
+* namespaced map should allow all Clojure whitespace between prefix and map https://github.com/clj-commons/rewrite-clj/issues/140[#140]
 * Beef up docs on node creation https://github.com/clj-commons/rewrite-clj/issues/97[#97]
 * Describe subedit in docs https://github.com/clj-commons/rewrite-clj/issues/111[#111]
 

src/rewrite_clj/parser/namespaced_map.cljc

@@ -1,6 +1,7 @@
 (ns ^:no-doc rewrite-clj.parser.namespaced-map
   (:require [rewrite-clj.node.namespaced-map :as nsmap]
             [rewrite-clj.node.protocols :as node]
+            [rewrite-clj.node.whitespace :as nws]
             [rewrite-clj.reader :as reader] ))
 
 #?(:clj (set! *warn-on-reflection* true))
@@ -16,7 +17,7 @@
 (defn- parse-to-next-elem [reader read-next]
   (loop [nodes []]
     (let [n (read-next reader)]
-      (if (and n (= :whitespace (node/tag n)))
+      (if (and n (nws/whitespace? n))
         (recur (conj nodes n))
         [nodes n]))))
 

test/rewrite_clj/parser_test.cljc

@@ -345,6 +345,9 @@
     "#:abc   {:x 1, :y 1}"
     {:abc/x 1, :abc/y 1}
 
+    "#:abc  ,,, \n\n {:x 1 :y 2}" 
+    {:abc/x 1, :abc/y 2}
+
     "#:foo{:kw 1, :n/kw 2, :_/bare 3, 0 4}"
     {:foo/kw 1, :n/kw 2, :bare 3, 0 4}
 
@@ -372,6 +375,10 @@
     {:?_current-ns_?/x 1, :?_current-ns_?/y 1}
     {:booya.fooya/x 1, :booya.fooya/y 1}
 
+    "#:: \n,,\n,,  {:x 1, :y 1}"
+    {:?_current-ns_?/x 1, :?_current-ns_?/y 1}
+    {:booya.fooya/x 1, :booya.fooya/y 1}
+
     "#::{:kw 1, :n/kw 2, :_/bare 3, 0 4}"
     {:?_current-ns_?/kw 1, :n/kw 2, :bare 3, 0 4}
     {:booya.fooya/kw 1, :n/kw 2, :bare 3, 0 4}
@@ -403,6 +410,10 @@
     '{:??_nsalias_??/x 1, :??_nsalias_??/y 1}
     '{:bing.bang/x 1, :bing.bang/y 1}
 
+    "#::nsalias ,,,,,,,,,,\n,,,,,,\n,,,,,  {:x 1, :y 1}"
+    '{:??_nsalias_??/x 1, :??_nsalias_??/y 1}
+    '{:bing.bang/x 1, :bing.bang/y 1}
+
     "#::nsalias{:kw 1, :n/kw 2, :_/bare 3, 0 4}"
     '{:??_nsalias_??/kw 1, :n/kw 2, :bare 3, 0 4}
     '{:bing.bang/kw 1, :n/kw 2, :bare 3, 0 4}