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

images.http: allow urls to be used with http-image.

db4
John Benediktsson 2011-01-27 20:00:42 -08:00
parent 0b6dae0a93
commit f4cc2bcdaa
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/images/http/http.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs http.client images.loader USING: accessors assocs http.client images.loader
images.loader.private images.viewer io.pathnames kernel images.loader.private images.viewer io.pathnames kernel
namespaces sequences ; namespaces present sequences ;
IN: images.http IN: images.http
<PRIVATE <PRIVATE
@ -14,7 +14,8 @@ IN: images.http
PRIVATE> PRIVATE>
: load-http-image ( path -- image ) : load-http-image ( path -- image )
[ http-get swap content-type ] [ file-extension ] bi or [ http-get swap content-type ]
[ present file-extension ] bi or
(image-class) load-image* ; (image-class) load-image* ;
: http-image. ( path -- ) : http-image. ( path -- )