v0.4.6: fix #33

.gitignore

@@ -6,3 +6,4 @@ git
 .lein-failures
 .cache
 .lsp
+.nrepl-port

CHANGELOG.md

@@ -4,6 +4,10 @@
 [rewrite-clj](https://github.com/clj-commons/rewrite-clj) with common operations
 to update EDN while preserving whitespace and comments.
 
+## 0.4.6
+
+- [#33](https://github.com/borkdude/rewrite-edn/issues/33): fix `assoc` on map starting with comment
+
 ## 0.4.5
 
 - Add `conj`: `(str (r/update (r/parse-string "{:a [1 2 3]}") :a r/conj 1)) ;;=> "{:a [1 2 3 1]}"` ([@zerg000000](https://github.com/zerg000000))

project.clj

@@ -1,4 +1,4 @@
-(defproject borkdude/rewrite-edn "0.4.5"
+(defproject borkdude/rewrite-edn "0.4.6"
   :description "Rewrite EDN"
   :url "https://github.com/borkdude/rewrite-edn"
   :scm {:name "git"

script/changelog.clj

@@ -0,0 +1,17 @@
+#!/usr/bin/env bb
+
+(ns changelog
+  (:require [clojure.string :as str]))
+
+(let [changelog (slurp "CHANGELOG.md")
+      replaced (str/replace changelog
+                            #" #(\d+)"
+                            (fn [[_ issue after]]
+                              (format " [#%s](https://github.com/borkdude/rewrite-edn/issues/%s)%s"
+                                      issue issue (str after))))
+      replaced (str/replace replaced
+                            #"@([a-zA-Z0-9-_]+)([, \.)])"
+                            (fn [[_ name after]]
+                              (format "[@%s](https://github.com/%s)%s"
+                                      name name after)))]
+  (spit "CHANGELOG.md" replaced))

src/borkdude/rewrite_edn/impl.cljc

@@ -53,10 +53,9 @@
         zloc (if nil?
                (z/replace zloc (node/coerce {}))
                zloc)
-        children (:children (z/node zloc))
         length (count-uncommented-children zloc)
         out-of-bounds? (and (= :vector tag) (>= k length))
-        empty? (or nil? (zero? (count children)))]
+        empty? (or nil? (zero? length))]
     (cond
       empty?
       (-> zloc

test/borkdude/rewrite_edn_test.cljc

@@ -70,6 +70,13 @@
     (is (= (str "{:a 2\n"
                 " :b 3}")
            (-> "{}"
+               r/parse-string
+               (r/assoc :a 2)
+               (r/assoc :b 3)
+               str))))
+  (testing "Assoc on map with comment"
+    (is (= "{;;a comment\n :a 2\n :b 3}"
+           (-> "{;;a comment\n}"
                r/parse-string
                (r/assoc :a 2)
                (r/assoc :b 3)