<show-action> ( -- action )

Vocabulary

webapps.wee-url

Inputs

None

Outputs

action

an object

Definition

USING: accessors furnace.actions html.forms validators ;

IN: webapps.wee-url

: <show-action> ( -- action )
    <page-action> "short" >>rest [
        { { "short" [ v-one-word ] } } validate-params
        "short" value expand-url "url" set-value
        "short" value short>url "short" set-value
    ] >>init { wee-url "show" } >>template ;