Clojurians Log v2

Lemme fire up my REPL... please hold.

lol no rush!

Ok. Hopefully I've understood your goal. Here's one way to achieve it:

(require '[rewrite-clj.parser :as p]
         '[rewrite-clj.zip :as z])

(-> "[:a :b :c]"
    z/of-string
    z/down
    z/right ;; navigate to :b
    (z/replace (p/parse-string-all "\n(ns foo)\n(+ 1 2 3\n   4 5 6)\n\n\n"))
    z/root-string)
;; => "[:a \n(ns foo)\n(+ 1 2 3\n   4 5 6)\n\n\n :c]"

hmm

(def example
  "
(ns foo)
(+ 1 2 3
   4 5 6)
")

(compare-output
 (println example)
 
(ns foo)
(+ 1 2 3
   4 5 6)

)

idk why my editor indented all those lines lol

soryr, that's incomprehensible

Oh... are you trying to replace with a string node?

I'm confused.

i have

(def example
  "
(ns foo)
(+ 1 2 3
   4 5 6)
")

(compare-output
 (println example)
 "hello\n")

i'd like to replace it with a string node that treats each newline as an visual newline

if i could wrap the output of parse-string-all with quotes, then this would be ideal

Oh. Like you mean like this?

(require '[rewrite-clj.node :as n]
         '[rewrite-clj.parser :as p]
         '[rewrite-clj.zip :as z])

(-> "[:a :b :c]"
    z/of-string
    z/down
    z/right ;; navigate to :b
    (z/replace (n/string-node "\n(ns foo)\n(+ 1 2 3\n   4 5 6)\n\n\n"))
    z/print-root)

[:a "
(ns foo)
(+ 1 2 3
   4 5 6)


" :c]

oh, lol. i thought i tried this and it didn't work

but it does. thank you for your help

n/coerce would probably also have worked (amounting in a call to string-node)

I vaguely remember nuances around multi-line strings and coercion... but memory is foggy.

oh, i just used the string directly, i ddin't actually call node/string-node

Yeah, I think you need the node/string-node for your use case.

hmm yeah, there is some difference:

user=> (println (str (n/coerce "foo
bar")))
"foo\nbar"
nil
user=> (println (str (n/string-node "foo
bar")
)
)
"foo
bar"
nil

Yeah, rewrite-clj.zip/replace automatically coerced that string, but not in a way that Noah wanted.