dom/edit

cstr -- static text.

(edit-error-message (BadName))   ; => "not a valid name here"

Document -- owned; release with `dom-free`.

(let [d (dom-new (XmlFlavor))] ... (dom-free d))

DomFlavor -- `(HtmlFlavor)` for a tur-html tree, `(XmlFlavor)` for a tur-xml one.

(dom-flavor (html-parse "<p>"))   ; => (HtmlFlavor)

int -- bytes.

(dom-garbage-bytes d)   ; => 0 for a fresh dom-new

(Option Document) -- the copy, owned (release with `dom-free`); none on allocation failure.

(match (dom-compact d) (Some c) (do (dom-free d) c) (None) d)

(Result Node EditError) -- `BadName` for a name the serializer could not write back as this one element (`"x onload=y"`, `"1a"`).

(create-element d "li")   ; => (Ok <li>)

(Result Node EditError) -- `BadName` for an invalid name, or in XML a prefix without a namespace.

(create-element-ns d "http://www.w3.org/2005/Atom" "entry")

(Result Node EditError) -- `BadContent` in XML for text that is not well-formed UTF-8 or holds a character XML forbids (most C0 controls).

(create-text d "1 < 2")

(Result Node EditError) -- `BadContent` for a body that would end the comment early or not parse back (`--` in XML; `-->`, or a leading `>`, in HTML).

(create-comment d " generated ")

(Result Node EditError) -- `BadContent` for content holding `]]>` or `\r`, which could not come back as one section, as written.

(create-cdata d "a < b")

(Result Node EditError) -- `BadPlacement` in an HTML Document (HTML has no PIs); `BadName` for target `xml` or a non-NCName; `BadContent` for data holding `?>` or starting with whitespace.

(create-pi d "xml-stylesheet" "href=\"a.xsl\" type=\"text/xsl\"")

(Result Node EditError) -- `WrongKind` for a document node; `BadName` / `BadContent` / `BadPlacement` for content `d`'s flavour cannot hold.

(node-import page (unwrap (dom-root fragment-doc)))

(Result Node EditError) -- `WrongKind` for a document node.

(node-clone row)   ; a copy to append elsewhere

(Result nil EditError)

(node-append! ul li)

(Result nil EditError)

(node-prepend! ul li)

(Result nil EditError) -- `Detached` when `ref` has no parent.

(node-insert-before! second first)

(Result nil EditError) -- `Detached` when `ref` has no parent.

(node-insert-after! first second)

(Result nil EditError) -- on an error `old` stays where it was.

(node-replace! placeholder widget)

(for n (query root ".ad") (node-remove! n))

(Result nil EditError)

(node-unwrap! span)

(Result nil EditError) -- `BadName` for a name containing whitespace, `/`, `>` or `=` (`"a onload"`); in XML, `BadContent` for a value with a forbidden character.

(set-attr! a "href" "/next")

(Result nil EditError) -- `BadName` for an unprefixed namespaced name in XML, or a prefix already bound to another URI on this element.

(set-attr-ns! use "http://www.w3.org/1999/xlink" "xlink:href" "#icon")

bool -- true when an attribute was removed.

(remove-attr! img "style")   ; => true

(Result nil EditError) -- `BadContent` for text that would end a `<script>` or `<style>` early; `BadPlacement` on an HTML void element.

(set-text! title "Hello")

(Result nil EditError) -- `WrongKind` on an element or doctype; `BadContent` as for the matching `create-*`.

(set-value! comment " updated ")

(Result nil EditError)

(rename! b "strong")

(Result nil EditError)

(rename-ns! el "urn:new" "n:item")

(node-normalize! (dom-node d))

bool

(node-attached? (unwrap (create-element d "p")))   ; => false