! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
-USING: accessors assocs combinators combinators.short-circuit
-fry html.parser http.client io kernel locals math math.statistics
-sequences sets splitting unicode urls urls.encoding shuffle ;
+USING: accessors assocs assocs.extras combinators
+combinators.short-circuit fry html.parser http.client io kernel
+locals math math.statistics sequences sets shuffle splitting
+unicode urls urls.encoding ;
IN: html.parser.analyzer
: scrape-html ( url -- response vector )
: link. ( vector -- )
[ "href" attribute write nl ]
[ clickable>> [ bl bl text>> print ] each nl ] bi ;
+
+: find-classes-named ( seq name -- seq' )
+ dupd
+ '[ attributes>> "class" of _ = ] find-all
+ [ find-between ] kv-with { } assoc>map ;
+
+: find-classes-named* ( seq name -- seq' )
+ dupd
+ '[ attributes>> "class" of _ = ] find-all
+ [ find-between* ] kv-with { } assoc>map ;