clone-tree-node ( node -- copy )

Vocabulary

html5

Inputs

node

an object

Outputs

copy

an object

Definition

USING: accessors kernel sequences ;

IN: html5

:: clone-tree-node ( node -- copy )
    node clone :> copy node tag? [
        copy f >>parent V{ } clone >>children node attributes>>
        [ clone ] map >>attributes drop node template-contents>> 
        [
            copy V{ } clone >>template-contents drop
            [ clone-tree-node copy attach-node ] each
        ] when* node children>>
        [ clone-tree-node copy attach-node ] each
    ] when copy ;