] with-scope ;
: generate-help ( -- )
- "docs" temp-file
+ "docs" cache-file
[ make-directories ]
[
[
] { } make ;
: staging-image-name ( profile -- name )
- "-" join "staging." ".image" surround temp-file ;
+ "-" join "staging." ".image" surround cache-file ;
DEFER: ?make-staging-image
ascii [ parse-model ] with-file-reader
[ normals ] 2keep 3array ;
-: model-path ( -- path ) "bun_zipper.ply" temp-file ;
+: model-path ( -- path ) "bun_zipper.ply" cache-file ;
: model-url ( -- url ) "http://duriansoftware.com/joe/media/bun_zipper.ply" ;
strings math splitting grouping arrays combinators.smart ;
IN: geo-ip
-: db-path ( -- path ) "IpToCountry.csv" temp-file ;
+: db-path ( -- path ) "IpToCountry.csv" cache-file ;
CONSTANT: db-url "http://software77.net/geo-ip/?DL=1"
[ length ] bi
] bi* ;
-: bunny-model-path ( -- path ) "bun_zipper.ply" temp-file ;
+: bunny-model-path ( -- path ) "bun_zipper.ply" cache-file ;
CONSTANT: bunny-model-url "http://duriansoftware.com/joe/media/bun_zipper.ply"
f <watching-site> select-tuples
[ site-id>> site new swap >>site-id select-tuple ] map ;
-: site-watcher-path ( -- path ) "site-watcher.db" temp-file ; inline
+: site-watcher-path ( -- path ) "site-watcher.db" cache-file ; inline
: with-site-watcher-db ( quot -- )
site-watcher-path <sqlite-db> swap with-db ; inline