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>> ] ] dip
    [ member? ] curry compose find nip ;