selectedcontent-enabled? ( element select -- ? )

Vocabulary

html5

Inputs

element	an object
select	an object

Outputs

?

an object

Definition

USING: accessors combinators.short-circuit kernel sequences ;

IN: html5

:: selectedcontent-enabled? ( element select -- ? )
    element node-ancestors :> ancestors ancestors
    [ "select" html-element-named? ] count 1 = ancestors [
        {
            [ html-element? ]
            [ name>> { "option" "selectedcontent" } member? ]
        } 1&&
    ] any? not and select ancestors node-member? and ;