toc-list ( files -- list )

Vocabulary

codebook

Inputs

files

an object

Outputs

list

an object

Definition

USING: accessors kernel sequences sorting xml.data
xml.syntax.private ;

IN: codebook

: toc-list ( files -- list )
    [ name>> ] map sort [
        [ file-html-name ] keep 2 nenum T{ xml-chunk
            { seq
                V{
                    ""
                    T{ tag
                        { name ~name~ }
                        { children ~vector~ }
                    }
                    ""
                }
            }
        } interpolate-xml
    ] map ;