35 lines
814 B
Factor
35 lines
814 B
Factor
! Copyright (C) 2011 John Benediktsson
|
|
! See http://factorcode.org/license.txt for BSD license
|
|
|
|
USING: formatting http.client images.http images.viewer io
|
|
kernel regexp sequences strings ui wrap.strings xml
|
|
xml.traversal ;
|
|
|
|
IN: xkcd
|
|
|
|
<PRIVATE
|
|
|
|
: comic-image. ( url -- )
|
|
http-get nip
|
|
R" http://imgs\.xkcd\.com/comics/[^\.]+\.(png|jpg)"
|
|
first-match >string load-http-image image. ;
|
|
|
|
: comic-text. ( url -- )
|
|
http-get nip string>xml
|
|
"transcript" "id" deep-tag-with-attr children>string
|
|
80 wrap-lines [ print ] each ;
|
|
|
|
: comic. ( url -- )
|
|
ui-running? [ comic-image. ] [ comic-text. ] if ;
|
|
|
|
PRIVATE>
|
|
|
|
: xkcd. ( n -- )
|
|
"http://xkcd.com/%s/" sprintf comic. ;
|
|
|
|
: random-xkcd. ( -- )
|
|
"http://dynamic.xkcd.com/random/comic/" comic. ;
|
|
|
|
: latest-xkcd. ( -- )
|
|
"http://xkcd.com" comic. ;
|