wikipedia-main ( -- )

Vocabulary

wikipedia

Inputs

None

Outputs

None

Definition

USING: combinators command-line io kernel namespaces sequences
wikipedia.private ;

IN: wikipedia

: wikipedia-main ( -- )
    command-line get [
        unclip {
            { "events" [ eval-timestamp historical-events. ] }
            { "births" [ eval-timestamp historical-births. ] }
            { "deaths" [ eval-timestamp historical-deaths. ] }
            { "article" [ [ article. ] each ] }
            [ "ERROR: Unknown command: " write print drop ]
        } case
    ] unless-empty ;