libs.xkcd: fix regexp for not needing \ all over
parent
ec17b254e6
commit
19510ea5a7
|
@ -13,7 +13,7 @@ PRIVATE<
|
|||
|
||||
: comic-image ( url -- image )
|
||||
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 ;
|
||||
|
||||
: comic-image. ( url -- )
|
||||
|
|
Loading…
Reference in New Issue