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

xkcd: Everybody stand back. I know regular expressions.

paths
Doug Coleman 2018-06-16 19:26:47 -05:00
parent 317ceee23c
commit c477757fa0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/xkcd/xkcd.factor
View File

@ -13,8 +13,8 @@ IN: xkcd
: comic-image ( url -- image ) : comic-image ( url -- image )
http-get nip http-get nip
R/ http:\\/\\/imgs\.xkcd\.com\\/comics\\/[^\.]+\.(png|jpg)/ R/ \/\/imgs\.xkcd\.com\\/comics\\/[^\.]+\.(png|jpg)/
first-match >string load-http-image ; first-match >string "http:" prepend load-http-image ;
: comic-image. ( url -- ) : comic-image. ( url -- )
comic-image image. ; comic-image image. ;