<new-blog-action> ( -- action )

Vocabulary

webapps.planet

Inputs

None

Outputs

action

an object

Definition

USING: accessors db.tuples furnace.actions furnace.redirection
kernel urls ;

IN: webapps.planet

: <new-blog-action> ( -- action )
    <page-action> { planet "new-blog" } >>template
    [ validate-blog ] >>validate [
        f <blog> [ deposit-blog-slots ] [ insert-tuple ] bi
        URL" %24planet/admin" <redirect>
    ] >>submit ;