converts nodes to a docstring

(->> (nav/parse-root “\n (+ 1 2)\n => 3”) (nav/down) (iterate zip/step-right) (take-while zip/get) (map zip/get) (->docstring)) => “\n (+ 1 2)\n => 3”

(->docstring (block/block \e)) => “‘e’”

converts nodes to a docstring node

(->> (nav/navigator \e \d \newline) (zip/step-inside) (iterate zip/step-right) (take-while zip/get) (map zip/get) (->docstring-node "") (block/value)) => “‘e’ ‘d’ ’\n ’”

converts a string representation of block

(->docstring-tag (block/block \c)) => “‘c’”

creates a refstring for use in html blocks

(->> (nav/parse-root “"hello"\n (+ 1 2)\n => 3”) (iterate zip/step-right) (take-while zip/get) (map zip/get) (->refstring)) => “"hello"\n (+ 1 2)\n => 3”

Adds node as well as whitespace and newline on right

(-> (nav/parse-string “(+)”) (zip/step-inside) (append-node 2) (append-node 1) (nav/root-string)) => “(+\n 1\n 2)”

inserts the meta information and docstring from tests

utility that strips quotes when not the result of a fact

(strip-quotes “"hello"”) => “hello”

(strip-quotes “(str "hello")” " " “=>” " " “"hello"”) => “(str "hello")” " " “=>” " " “"hello"”