write-tree ( path indents -- )

Vocabulary

tools.tree

Inputs

path	an object
indents	an object

Outputs

None

Definition

USING: accessors io.directories kernel sequences sorting ;

IN: tools.tree

:: write-tree ( path indents -- )
    path [
        [ name>> ] sort-by
        [ ] [
            unclip-last
            [ f indents push [ indents write-entry ] each ]
            [ indents pop* t indents push indents write-entry ]
            bi* indents pop*
        ] if-empty
    ] with-directory-entries ;