comic-image ( url -- image )


Vocabulary
xkcd.private

Inputs and outputs
urlan object
imagean object


Definition


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