<view-post-action> ( -- action )

Vocabulary

webapps.blogs

Inputs

None

Outputs

action

an object

Definition

USING: accessors furnace.actions html.forms ;

IN: webapps.blogs

: <view-post-action> ( -- action )
    <page-action> "id" >>rest [
        validate-integer-id "id" value post from-object
        "id" value "new-comment"
        [ "parent" set-value ] nest-form
    ] >>init { blogs "view-post" } >>template ;