chloe-tag? ( tag -- ? )

Vocabulary

html.templates.chloe.compiler

Inputs

tag

an object

Outputs

?

an object

Definition

USING: accessors combinators html.templates.chloe.syntax kernel
xml.data ;

IN: html.templates.chloe.compiler

: chloe-tag? ( tag -- ? )
    dup xml? [ body>> ] when {
        { [ dup tag? not ] [ f ] }
        { [ dup chloe-name? not ] [ f ] }
        [ t ]
    } cond nip ;