<view-article-action> ( -- action )

Vocabulary

webapps.wiki

Inputs

None

Outputs

action

an object

Definition

USING: accessors furnace.actions furnace.redirection html.forms
kernel ;

IN: webapps.wiki

: <view-article-action> ( -- action )
    <action> "title" >>rest [ validate-title ] >>init [
        "title" value
        [ latest-revision ]
        [ from-object { wiki "view" } <chloe-content> ]
        [ edit-url <redirect> ] ?if
    ] >>display <article-boilerplate> ;