<shorten-action> ( -- action )

Vocabulary

webapps.wee-url

Inputs

None

Outputs

action

an object

Definition

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

IN: webapps.wee-url

: <shorten-action> ( -- action )
    <page-action> { wee-url "shorten" } >>template
    [ { { "url" [ v-url ] } } validate-params ] >>validate [
        "$wee-url/show/" "url" value shorten append
        >url <redirect>
    ] >>submit ;