<view-action> ( -- action )

Vocabulary

webapps.todo

Inputs

None

Outputs

action

an object

Definition

USING: accessors db.tuples furnace.actions html.forms ;

IN: webapps.todo

: <view-action> ( -- action )
    <page-action> [
        validate-integer-id "id" value <todo> select-tuple
        from-object
    ] >>init { todo-list "view-todo" } >>template ;