<go-action> ( -- action )

Vocabulary

webapps.wee-url

Inputs

None

Outputs

action

an object

Definition

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

IN: webapps.wee-url

: <go-action> ( -- action )
    <action> "short" >>rest
    [ { { "short" [ v-one-word ] } } validate-params ] >>init
    [ "short" value expand-url <redirect> ] >>display ;