steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add find-images word

Doug Coleman 2009-08-26 14:28:06 -05:00
parent 913c0fa597
commit 271438a28d
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/html/parser/analyzer/analyzer.factor
View File

@ -3,7 +3,7 @@
USING: assocs html.parser kernel math sequences strings ascii USING: assocs html.parser kernel math sequences strings ascii
arrays generalizations shuffle namespaces make arrays generalizations shuffle namespaces make
splitting http accessors io combinators http.client urls splitting http accessors io combinators http.client urls
urls.encoding fry prettyprint sets ; urls.encoding fry prettyprint sets combinators.short-circuit ;
IN: html.parser.analyzer IN: html.parser.analyzer
TUPLE: link attributes clickable ; TUPLE: link attributes clickable ;
@ -103,6 +103,15 @@ TUPLE: link attributes clickable ;
[ [ name>> "a" = ] [ attributes>> "href" swap at ] bi and ] [ [ name>> "a" = ] [ attributes>> "href" swap at ] bi and ]
find-between-all ; find-between-all ;
: find-images ( vector -- vector' )
[
{
[ name>> "img" = ]
[ attributes>> "src" swap at ]
} 1&&
] find-all
values [ attributes>> "src" swap at ] map ;
: <link> ( vector -- link ) : <link> ( vector -- link )
[ first attributes>> ] [ first attributes>> ]
[ [ name>> { text "img" } member? ] filter ] bi [ [ name>> { text "img" } member? ] filter ] bi