<random-article-action> ( -- action )

Vocabulary

webapps.wiki

Inputs

None

Outputs

action

an object

Definition

USING: accessors db.tuples furnace.actions furnace.redirection
kernel random ;

IN: webapps.wiki

: <random-article-action> ( -- action )
    <action> [
        article new select-tuples random
        [ title>> ] [ "Front Page" ] if* view-url <redirect>
    ] >>display ;