[undo-xml] ( xml -- quot ) - Factor Documentation

[undo-xml] ( xml -- quot )

Vocabulary
xml .syntax .inverse

Inputs

xml an object

Outputs

quot an object

Definition

IN: xml.syntax.inverse

GENERIC: [undo-xml] ( xml -- quot )

Methods

USING: accessors kernel namespaces xml.data xml.syntax.inverse ;

M: interpolated [undo-xml] var>> [ set ] curry ;

USING: combinators kernel sequences xml.syntax.inverse ;

M: sequence [undo-xml]
remove-blanks [ length ] [ [ [undo-xml] ] { } map-as ] bi [
[ [ remove-blanks ] ] dip [ firstn-strong ] curry
compose
] dip [ spread ] curry compose ;

USING: inverse kernel strings xml.syntax.inverse ;

M: string [undo-xml] [ =/fail ] curry ;

USING: accessors combinators inverse kernel xml.data
xml.syntax.inverse ;

M: tag [undo-xml]
{
[
name>> main>> [ [ name>> main>> ] ] dip
[ =/fail ] curry compose
]
[ attrs>> undo-attrs ]
[ children>> [undo-xml] [ [ children>> ] ] dip compose ]
} cleave [ tri ] 3curry ;

USING: accessors kernel xml.data xml.syntax.inverse ;

M: xml-chunk [undo-xml]
seq>> [undo-xml] [ [ >xml-chunk ] ] dip compose ;

USING: inverse kernel xml.data xml.syntax.inverse ;

M: xml-data [undo-xml] [ =/fail ] curry ;

USING: accessors kernel xml.data xml.syntax.inverse ;

M: xml [undo-xml] body>> [undo-xml] [ [ >xml ] ] dip compose ;