converts a form zipper into a code string

(-> (nav/parse-string “(fact (+ 1 1) \n => 2)”) (code-form ’fact)) => “(+ 1 1) \n => 2”

checks if a markdown line is an embedded code.doc directive

extracts the leading string caption from a fact/facts form, if present

(-> (nav/parse-string “(fact "hello world" (+ 1 1) \n => 2)”) (fact-caption)) => “hello world”

returns the code body of a fact/facts form, stripping the leading caption string if present

(-> (nav/parse-string “(fact "hello world" (+ 1 1) \n => 2)”) (fact-code-string ’fact)) => “(+ 1 1) \n => 2”

(-> (nav/parse-string “(facts (+ 1 1) \n => 2)”) (fact-code-string ’facts)) => “(+ 1 1) \n => 2”

converts the is form into a string

(is-code-form (nav/parse-string “(is (= (+ 1 1) 2))”)) => “(+ 1 1)\n=> 2”

(is-code-form (nav/parse-string “(is true)”)) => “true”

creates a markdown fenced code block element

creates a markdown paragraph element

if not whitespace, then merge output

coverts an attribute zipper into an element

(-> (nav/parse-string “{:title "hello world"}”) (parse-attribute)) => {:type :attribute, :title “hello world”}

coverts a code zipper into an element

(-> (nav/parse-root “(+ 1 1) (+ 2 2)”) (nav/down) (parse-code)) => {:type :code, :indentation 0, :code “(+ 1 1)”}

coverts an code directive zipper into an element

(-> (nav/parse-string “:code {:language :ruby} "1 + 1 == 2"”) (parse-code-directive)) => {:type :block, :indentation 0 :code “1 + 1 == 2” :language :ruby}

convert a comment zipper into an element

(-> (nav/parse-string “(comment (+ 1 1) \n => 2)”) (parse-comment-form)) => {:type :block :indentation 2 :code “(+ 1 1) \n => 2”}

converts the deftest form into an element

(-> (nav/parse-string “(deftest hello)”) (parse-deftest-form)) => {:type :test, :source {:row 1, :col 1, :end-row 1, :end-col 16}}

converts a directive zipper into an element

(-> (nav/parse-string “:chapter {:title "hello world"}”) (parse-directive)) => {:type :chapter :title “hello world”}

(binding namespace ’example.core (-> (nav/parse-string “:ns {:title "hello world"}”) (parse-directive))) => {:type :ns, :title “hello world”, :ns ’example.core}

convert a fact zipper into an element

(-> (nav/parse-string “(fact (+ 1 1) \n => 2)”) (parse-fact-form)) => {:type :test :indentation 2 :code “(+ 1 1) \n => 2”}

(-> (nav/parse-string “(fact "hello world" (+ 1 1) \n => 2)”) (parse-fact-form)) => {:type :test :indentation 2 :caption “hello world” :code “(+ 1 1) \n => 2”}

converts a facts zipper into an element

(-> (nav/parse-string “(facts (+ 1 1) \n => 2)”) (parse-facts-form)) => {:type :test :indentation 2 :code “(+ 1 1) \n => 2”}

(-> (nav/parse-string “(facts "hello world" (+ 1 1) \n => 2)”) (parse-facts-form)) => {:type :test :indentation 2 :caption “hello world” :code “(+ 1 1) \n => 2”}

parses the entire file

parses edn frontmatter wrapped by --- markers

parses a markdown header line

parses the inner form of the fact and comment function

converts an is form into an element (-> (nav/parse-string “(is (= (+ 1 1) 2))”) (parse-is-form)) => {:type :block, :indentation 2, :code “(+ 1 1)\n=> 2”}

the main loop for the parser

(-> (nav/parse-root “(ns example.core) :chapter {:title "hello"} (+ 1 1) (+ 2 2)”) (nav/down) (parse-loop {}))

=> (contains-in [{:type :ns-form, :indentation 0, :ns ’example.core, :code “(ns example.core)”} {:type :chapter, :title “hello”} {:type :code, :indentation 0, :code (contains “(+ 1 1)” “(+ 2 2)” :gaps-ok)}])

parses markdown content into code.doc elements

parses an embedded directive line inside markdown

converts a ns zipper into an element

(-> (nav/parse-string “(ns example.core)”) (parse-ns-form)) => {:type :ns-form :indentation 0 :meta {} :ns ’example.core :code “(ns example.core)”}

converts a string zipper into an element

(-> (nav/parse-string “"this is a paragraph"”) (parse-paragraph)) => {:type :paragraph :text “this is a paragraph”}

parse a single zloc

coverts a whitespace zipper into an element

(-> (nav/parse-root “1 2 3”) (nav/down) (nav/right*) (parse-whitespace)) => {:type :whitespace, :code " "}

helper to add the line information to the parser (used by parse-loop)

if form is meta, then go down a level