item. ( tag -- )

Vocabulary

wikipedia.private

Inputs

tag

an object

Outputs

None

Definition

USING: accessors io kernel regexp sequences xml.data
xml.traversal ;

IN: wikipedia.private

: item. ( tag -- )
    children>> [
        dup tag? [
            dup link
            [ link. drop ] [ children>string write ] if*
        ] [ [ R/ \s+/ " " re-replace write ] unless-empty ] if
    ] each nl ;