<watch-list-action> ( -- action )

Vocabulary

webapps.site-watcher.watching

Inputs

None

Outputs

action

an object

Definition

USING: accessors furnace.actions furnace.auth html.forms
site-watcher.db webapps.site-watcher.common ;

IN: webapps.site-watcher.watching

: <watch-list-action> ( -- action )
    <page-action> { site-watcher-app "site-list" } >>template
    [ username watching-sites "sites" set-value ] >>init
    <protected> "list watched sites" >>description ;