<wee-url> ( -- wee-url )

Vocabulary

webapps.wee-url

Inputs

None

Outputs

wee-url

an object

Definition

USING: accessors furnace.boilerplate http.server.dispatchers ;

IN: webapps.wee-url

: <wee-url> ( -- wee-url )
    wee-url new-dispatcher <shorten-action> "" add-responder
    <show-action> "show" add-responder
    <go-action> "go" add-responder <boilerplate>
    { wee-url "wee-url" } >>template ;