find-classes-named ( seq name -- seq' )

Vocabulary

html.parser.analyzer

Inputs

seq	an object
name	an object

Outputs

seq'

an object

Definition

USING: accessors assocs assocs.extras kernel ;

IN: html.parser.analyzer

: find-classes-named ( seq name -- seq' )
    dupd [ [ attributes>> "class" of ] ] dip [ = ] curry compose
    find-all [ find-between ] kv-with { } assoc>map ;