]> gitweb.factorcode.org Git - factor.git/commit
modern.html: Add walk-html helper function
authorDoug Coleman <doug.coleman@gmail.com>
Fri, 3 Jun 2022 03:33:26 +0000 (22:33 -0500)
committerDoug Coleman <doug.coleman@gmail.com>
Fri, 3 Jun 2022 03:45:10 +0000 (22:45 -0500)
commitafed08d3950aae40fc74a05e7e03858b5cf1b052
tree892e1bda985d5c73073aba4eeed41c385a332ea8
parentc9a5d9d246118b378e6dc86629a13a7d28a678de
modern.html: Add walk-html helper function

Example:
USE: modern.html
"https://en.wikipedia.org/w/index.php?title=Factor_(programming_language)&offset=&limit=500&action=history" http-get
nip string>html
[
  [
    dup tag? [ props>> [ drop  >lower "href" = ] assoc-find [ nip , ] [ 2drop ] if ] [ drop ] if
  ] walk-html
] { } make [ payload>> ] map
extra/modern/html/html.factor