slurp backwards

nextjournal · Jun 10, 2024 · c579066 · c579066
1 parent 91954dd
commit c579066
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/src-shared/nextjournal/clojure_mode/commands.cljc b/src-shared/nextjournal/clojure_mode/commands.cljc
@@ -167,9 +167,9 @@
                             -1
                             (let [^string edge (n/left-edge-with-prefix state parent)
                                   start (n/start (n/with-prefix parent))]
-                              [{:from start
-                                :to (+ start (count edge))
-                                :insert " "}
+                              [(cond-> {:from start
+                                       :to (+ start (count edge))}
+                                 (not str?) (j/assoc! :insert " "))
                                {:from (n/start target)
                                 :insert edge}]))}))))))))
 

diff --git a/test/nextjournal/clojure_mode_tests.cljc b/test/nextjournal/clojure_mode_tests.cljc
@@ -273,7 +273,8 @@
       "('xy|z 1) 2" 1 "('xy|z 1 2)"
       "'ab|c 1" 1 "'ab|c 1"
 
-      "\"x|\" 1" 1 "\"x| 1\""))
+      "\"x|\" 1" 1 "\"x| 1\""
+      "1 \"x|\"" -1 "\"1 x|\""))
 
   #?(:squint nil
      :cljs