formatting-index ( document name -- index/f )

Vocabulary

html5

Inputs

document	an object
name	an object

Outputs

index/f

an object

Definition

USING: accessors kernel sequences ;

IN: html5

:: formatting-index ( document name -- index/f )
    document active-formatting-elements>> :> entries entries
    [ dup f = [ drop t ] [ name>> name = ] if ] find-last drop
    dup [ dup entries nth f = [ drop f ] when ] when ;