find-tag-named-any ( seq names -- tag )

Vocabulary

modern.html

Inputs

seq	an object
names	an object

Outputs

tag

an object

Definition

USING: accessors kernel sequences ;

IN: modern.html

: find-tag-named-any ( seq names -- tag )
    [ [ open-tag? ] filter ] dip '[ name>> _ member? ] find nip
    ;