article. ( name -- )

Vocabulary

wikipedia

Inputs

name

an object

Outputs

None

Definition

USING: ascii html.entities html.parser html.parser.analyzer
html.parser.printer http.client io kernel sequences splitting
wikipedia.private wrap.strings ;

IN: wikipedia

: article. ( name -- )
    "wiki/" prepend wikipedia-url http-get nip
    parse-html "content" find-by-id-between
    html-text split-lines [ [ blank? ] trim ] map harvest
    [ html-unescape 72 wrap-string print nl ] each ;