authorize-author ( author -- )

Vocabulary

webapps.blogs

Inputs

author

an object

Outputs

None

Definition

USING: furnace.auth kernel ;

IN: webapps.blogs

: authorize-author ( author -- )
    username = { can-administer-blogs? } have-capabilities? or
    [ "edit a blog post" f login-required ] unless ;