basis/images/http/http.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: http.client images.loader images.loader.private kernel ;
   4 IN: images.http
   5
   6 : load-http-image ( path -- image )
   7     [ http-get nip ] [ image-class new ] bi load-image* ;