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

xkcd: rename private words.

db4
John Benediktsson 2012-07-24 16:00:17 -07:00
parent 5a323780d8
commit eddc0326b7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/xkcd/xkcd.factor
View File

@ -9,18 +9,18 @@ IN: xkcd
<PRIVATE <PRIVATE
: xkcd-image. ( url -- ) : comic-image. ( url -- )
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 image. ; first-match >string load-http-image image. ;
: xkcd-text. ( url -- ) : comic-text. ( url -- )
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
80 wrap-lines [ print ] each ; 80 wrap-lines [ print ] each ;
: comic. ( url -- ) : comic. ( url -- )
ui-running? [ xkcd-image. ] [ xkcd-text. ] if ; ui-running? [ comic-image. ] [ comic-text. ] if ;
PRIVATE> PRIVATE>