[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 namespaces xml.data xml.syntax.inverse ;

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


USING: combinators kernel sequences xml.syntax.inverse ;

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


USING: inverse strings xml.syntax.inverse ;

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


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

M: tag [undo-xml]
    {
        [ name>> main>> '[ name>> main>> _ =/fail ] ]
        [ attrs>> undo-attrs ]
        [ children>> [undo-xml] '[ children>> @ ] ]
    } cleave '[ _ _ _ tri ] ;


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

M: xml-chunk [undo-xml] seq>> [undo-xml] '[ >xml-chunk @ ] ;


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

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


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

M: xml [undo-xml] body>> [undo-xml] '[ >xml @ ] ;