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

xkcd: Typos.

db4
Doug Coleman 2012-08-17 10:41:45 -07:00
parent 1ee1a793de
commit 2503984e35
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/xkcd/xkcd.factor
View File

@ -9,19 +9,19 @@ IN: xkcd
<PRIVATE <PRIVATE
: xkcd-url>image ( url -- image ) : comic-image ( url -- image )
http-get nip http-get nip
R" http://imgs\.xkcd\.com/comics/[^\.]+\.(png|jpg)" R" http://imgs\.xkcd\.com/comics/[^\.]+\.(png|jpg)"
first-match >string load-http-image ; first-match >string load-http-image ;
: comic-image. ( url -- ) xkcd-url>image image. ; : comic-image. ( url -- ) comic-image image. ;
: xkcd-url>string ( url -- string ) : comic-string ( url -- string )
http-get nip string>xml http-get nip string>xml
"transcript" "id" deep-tag-with-attr children>string ; "transcript" "id" deep-tag-with-attr children>string ;
: comic-text. ( url -- ) : comic-text. ( url -- )
xkcd-url>string comic-image
80 wrap-lines [ print ] each ; 80 wrap-lines [ print ] each ;
: comic. ( url -- ) : comic. ( url -- )