adopt-open-formatting ( document formatting index -- continue? )

Vocabulary

html5

Inputs

document	an object
formatting	an object
index	an object

Outputs

continue?

an object

Definition

USING: accessors kernel math sequences ;

IN: html5

:: adopt-open-formatting
    ( document formatting index -- continue? )
    document open-elements>> :> stack index 1 + stack
    [ special-element? ] find-from nip
    [ document formatting rot index adopt-formatting-block t ] [
        index stack shorten
        formatting document active-formatting-elements>>
        remove-node f
    ] if* ;