adds a child to a container block

(-> (block []) (add-child 1) (add-child 2) (str)) => “12”

creates a block

(base/block-info (block 1)) => {:type :token, :tag :long, :string “1”, :height 0, :width 1}

(str (block 1 (newline) (void) 2)) => “1\n 2”

creates a comment block

(str (comment “;hello”)) => “;hello”

constructs the children

(mapv str (construct-children 1 (newline) (void) 2)) => “1” "
" “␣” “2”

constructs a collection

(str (construct-collection 1 2 (void) (void) 3)) => “1 2 3”

creates a container

(str (container :list (void) (void))) => “( )”

performs checks for the container

reads out the contents of a container

(contents (block 1 2 3)) => ’1 ␣ 2 ␣ 3

creates a cursor for the navigator

(str (cursor)) => “|”

constructs empty list

(str (empty)) => “()”

gets the lines for a block

indents the body given offset

restores a dom rep, adding body indentation

splits a block collection into

get the width at the line which it finishes

gets the max width of given block, along with starting offset

creates a newline

(str (newline)) => "
"

checks if a block is a newline

(newline? (newline)) => true

creates multiple newlines

(apply str (newlines 5)) => "




"

returns the clojure forms representation of the dsl

constructs a root block

creates a space block

(str (space)) => “␣”

creates multiple space blocks

(apply str (spaces 5)) => “␣␣␣␣␣”

constructs a string token

(str (string-token “hello”)) => “"hello"”

(str (string-token “hello\nworld”)) => “"hello
world"”

creates a tab

(str (tab)) => "\ "

creates multiple tabs

(apply str (tabs 5)) => "\ \ \ \ \ "

creates a token

(str (token ’abc)) => “abc”

returns the dimensions of the token

(token-dimensions :regexp “#"hello
world"”) => 15 0

(token-dimensions :regexp “#"hello\nworld"”) => 6 1

creates a token from a string input

(str (token-from-string “abc”)) => “abc”

creates a hash-uneval block

(str (uneval)) => “#_”

creates a void block

(str (void)) => “␣”