option-disabled? ( option -- ? )

Vocabulary

html5

Inputs

option

an object

Outputs

?

an object

Definition

USING: accessors assocs combinators.short-circuit kernel
sequences ;

IN: html5

: option-disabled? ( option -- ? )
    {
        [ attributes>> "disabled" swap key? ]
        [
            node-ancestors [
                { [ html-element? ] [ name>> ~array~ member? ] }
                1&&
            ] find nip [
                {
                    [ "optgroup" html-element-named? ]
                    [ attributes>> "disabled" swap key? ]
                } 1&&
            ] [ f ] if*
        ]
    } 1|| ;