xkcd: adding words to view XKCD comics in the listener.
parent
06469a4865
commit
66624ce7da
|
@ -0,0 +1 @@
|
|||
John Benediktsson
|
|
@ -0,0 +1,25 @@
|
|||
! Copyright (C) 2011 John Benediktsson
|
||||
! See http://factorcode.org/license.txt for BSD license
|
||||
|
||||
USING: formatting http.client images.http images.viewer kernel
|
||||
regexp strings ;
|
||||
|
||||
IN: xkcd
|
||||
|
||||
<PRIVATE
|
||||
|
||||
: load-comic ( url -- image )
|
||||
http-get nip
|
||||
R" http://imgs\.xkcd\.com/comics/[^\.]+\.(png|jpg)"
|
||||
first-match >string load-http-image ;
|
||||
|
||||
PRIVATE>
|
||||
|
||||
: xkcd. ( n -- )
|
||||
"http://xkcd.com/%s/" sprintf load-comic image. ;
|
||||
|
||||
: random-xkcd. ( -- )
|
||||
"http://dynamic.xkcd.com/random/comic/" load-comic image. ;
|
||||
|
||||
: latest-xkcd. ( -- )
|
||||
"http://xkcd.com" load-comic image. ;
|
Loading…
Reference in New Issue