lucid.publish.parse.checks — zcaudate/lucid.publish 1.4.7

attribute? clj

(attribute? zloc)

check if element is an attribute

(attribute? (zip/of-string "[[{:title "hello"}]]")) => true

code-directive? clj

(code-directive? zloc)

check if element is a code directive

(code-directive? (zip/of-string "[[:code {:lang "python"} "1 + 1"]]")) => true

comment? clj

(comment? zloc)

check if element is a comment form

(comment? (zip/of-string "(comment 1 => 1)")) => true

deftest? clj

(deftest? zloc)

check if element is a deftest form

(deftest? (zip/of-string "(deftest ...)")) => true

directive? clj

(directive? zloc)

(directive? zloc kw)

check if element is a directive

(directive? (zip/of-string "[[:chapter {:title "hello"}]]")) => true

directives clj

fact? clj

(fact? zloc)

check if element is a fact form

(fact? (zip/of-string "(fact 1 => 1)")) => true

facts? clj

(facts? zloc)

check if element is a facts form

(facts? (zip/of-string "(facts 1 => 1)")) => true

is? clj

(is? zloc)

check if element is an is form

(is? (zip/of-string "(is ...)")) => true

ns? clj

(ns? zloc)

check if element is a ns form

(ns? (zip/of-string "(ns lucid.unit)")) => true

paragraph? clj

(paragraph? zloc)

check if element is a paragraph (string)

(paragraph? (zip/of-string ""hello world"")) => true

whitespace? clj

(whitespace? zloc)

check if element is whitespace

(whitespace? (zip/next* (zip/of-string "a b"))) => true

wrap-meta clj

(wrap-meta f)

helper function for navigating ^:meta tags

((wrap-meta query/match) (zip/of-string "^:hello ()") list?) => true