find-links ( seq -- links )


Vocabulary
modern.html

Inputs
seqan object


Outputs
linksan object


Definition
USING: accessors assocs kernel make sequences unicode ;

IN: modern.html

: find-links ( seq -- links )
[
[
dup tag? [
props>> [ drop >lower "href" = ] assoc-find
[ nip , ] [ 2drop ] if
] [ drop ] if
] walk-html
] { } make [ payload>> ] map ;