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

xkcd: XKCD Literals. Duh.

db4
Doug Coleman 2012-08-17 09:47:33 -07:00
parent 0b41fac5e9
commit 8354921226
1 changed files with 27 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
extra/xkcd/xkcd.factor
View File

@ -1,22 +1,27 @@
! Copyright (C) 2011 John Benediktsson ! Copyright (C) 2011 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! See http://factorcode.org/license.txt for BSD license
USING: formatting http.client images.http images.viewer io USING: accessors formatting http.client images.http
kernel regexp sequences strings ui wrap.strings xml images.viewer io kernel math parser prettyprint.custom regexp
xml.traversal ; sequences strings ui wrap.strings xml xml.traversal ;
IN: xkcd IN: xkcd
<PRIVATE <PRIVATE
: comic-image. ( url -- ) : xkcd-url>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 image. ; first-match >string load-http-image ;
: comic-image. ( url -- ) xkcd-url>image image. ;
: xkcd-url>string ( url -- string )
http-get nip string>xml
"transcript" "id" deep-tag-with-attr children>string ;
: comic-text. ( url -- ) : comic-text. ( url -- )
http-get nip string>xml xkcd-url>string
"transcript" "id" deep-tag-with-attr children>string
80 wrap-lines [ print ] each ; 80 wrap-lines [ print ] each ;
: comic. ( url -- ) : comic. ( url -- )
@ -24,11 +29,25 @@ IN: xkcd
PRIVATE> PRIVATE>
: xkcd-url ( n -- url )
"http://xkcd.com/%s/" sprintf ;
: xkcd-image ( n -- image )
xkcd-url comic-image ;
: xkcd. ( n -- ) : xkcd. ( n -- )
"http://xkcd.com/%s/" sprintf comic. ; xkcd-url comic. ;
: random-xkcd. ( -- ) : random-xkcd. ( -- )
"http://dynamic.xkcd.com/random/comic/" comic. ; "http://dynamic.xkcd.com/random/comic/" comic. ;
: latest-xkcd. ( -- ) : latest-xkcd. ( -- )
"http://xkcd.com" comic. ; "http://xkcd.com" comic. ;
TUPLE: xkcd image ;
C: <xkcd> xkcd
SYNTAX: XKCD: scan-number xkcd-image <xkcd> suffix! ;
M: xkcd pprint* image>> image. ;