link. ( tag -- )

Vocabulary

wikipedia.private

Inputs

tag

an object

Outputs

None

Definition

USING: accessors assocs colors io.styles kernel xml.traversal ;

IN: wikipedia.private

: link. ( tag -- )
    [ deep-children>string ] [ attrs>> "href" of ] bi
    wikipedia-url
    H{ { foreground COLOR: blue } { font-name "monospace" } }
    [ write-object ] with-style ;