Fix #54: slurping within string doesn't work

Author: borkdude

Diff for: src-shared/nextjournal/clojure_mode/commands.cljc

@@ -136,6 +136,9 @@
 
 (def log js/console.log)
 
+(defn ->str [x]
+  (js/JSON.stringify (str x)))
+
 (defn slurp [direction]
   (fn [^js state]
     (u/update-ranges state
@@ -151,7 +154,6 @@
             (let [str? (n/string? parent)]
               (when-let [target (case direction 1 (first (remove n/line-comment? (n/rights (n/with-prefix parent))))
                                       -1 (first (remove n/line-comment? (n/lefts (n/with-prefix parent)))))]
-                (js/console.log :target target)
                 {:cursor/mapped from
                  :changes (case direction
                             1

Diff for: src-shared/nextjournal/clojure_mode/scratch.cljs

@@ -249,7 +249,7 @@
       "(<a) b>" "<(a) b>"
       ))
 
-  (deftest slurp
+  (deftest slurp-test
     (are [input dir expected]
         (= (apply-f (commands/slurp dir) input) expected)
       "(|) a" 1 "(|a)"
@@ -273,7 +273,7 @@
       "('xy|z 1) 2" 1 "('xy|z 1 2)"
       "'ab|c 1" 1 "'ab|c 1"
 
-      "\"x|\" 1" 1 "\"x1\""))
+      "\"x|\" 1" 1 "\"x| 1\""))
 
   #?(:squint nil
      :cljs