compares equality of two blocks

(block-compare (construct/void \space) (construct/void \space)) => 0

checks if a block can be representated as code

constructs a comment block

(-> (comment-block “;hello”) (base/block-info)) => {:type :comment, :tag :comment, :string “;hello”, :height 0, :width 6}

checks if the block is a token block

(comment-block? (construct/comment “;;hello”)) => true

constructs a container block

(-> (container-block :fn (construct/token ’+) (construct/void) (construct/token ’1) (construct/container-props :fn)) (base/block-value)) => ’(fn* [](+ 1))

checks if block is a container block

(container-block? (construct/block [])) => true

calculates the height of a container

(container-height (construct/block [])) => 0

(container-height (construct/block (construct/newline))) => 1

(container-height (construct/block (construct/newline) (construct/newline))) => 2

returns the string for the container

(container-string (construct/block 1 2 3)) => “1 2 3”

returns the string for

(container-value-string (construct/block ::a :b :c)) => “:std.block.type-test/a :b :c”

(container-value-string (parse/parse-string “::a :b :c”)) => “(keyword ":a") (keyword "b") (keyword "c")”

calculates the width of a container

(container-width (construct/block 1 2 3 4)) => 9

checks if input is an eof block

(eof-block? (construct/void nil)) => true

checks if block is of type :linebreak

(linebreak-block? (construct/newline)) => true

checks if block is of type :linespace

(linespace-block? (construct/space)) => true

creates a modifier block, specifically #_

(modifier-block :hash-uneval “#_” (fn acc _ acc))

checks if block is a modifier block

(modifier-block? (construct/uneval)) => true

checks if block is nil or type void block

(nil-void? nil) => true

(nil-void? (construct/block nil)) => false

(nil-void? (construct/space)) => true

checks if block is of type \space

(space-block? (construct/space)) => true

creates a token block

(base/block-info (token-block :symbol “abc” ’abc “abc” 3 0)) => {:type :token, :tag :symbol, :string “abc”, :height 0, :width 3}

checks if the block is a token block

(token-block? (construct/token “hello”)) => true

constructs a void block

(-> (void-block :linespace \tab 1 0) (base/block-info)) => {:type :void, :tag :linespace, :string “\t”, :height 0, :width 1}

checks if the block is a void block

(void-block? (construct/void)) => true