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

wikipedia: need to use string>xml since we do xml traversal.

char-rename
John Benediktsson 2016-11-22 09:18:04 -08:00
parent c55a6ef873
commit 6955823107
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/wikipedia/wikipedia.factor
View File

@ -3,9 +3,8 @@
USING: accessors ascii assocs calendar colors.constants USING: accessors ascii assocs calendar colors.constants
formatting html.entities html.parser html.parser.analyzer formatting html.entities html.parser html.parser.analyzer
html.parser.printer http.client io io.streams.string io.styles html.parser.printer http.client io io.styles kernel namespaces
kernel make namespaces regexp sequences splitting urls sequences splitting urls wrap.strings xml xml.data xml.traversal ;
wrap.strings xml xml.data xml.traversal ;
FROM: xml.data => tag? ; FROM: xml.data => tag? ;
IN: wikipedia IN: wikipedia
@ -48,7 +47,7 @@ SYMBOL: language
[ month-name ] [ day>> ] bi "%s_%s" sprintf wikipedia-url ; [ month-name ] [ day>> ] bi "%s_%s" sprintf wikipedia-url ;
: (historical-events) ( timestamp -- seq ) : (historical-events) ( timestamp -- seq )
historical-url scrape-html nip "ul" deep-tags-named ; historical-url http-get nip string>xml "ul" deep-tags-named ;
: items>sequence ( tag -- seq ) : items>sequence ( tag -- seq )
children-tags [ deep-children>string ] map ; children-tags [ deep-children>string ] map ;