slurp backwards

Author: borkdude

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}]))}))))))))
 

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