wisp

get interweb fluff
Log | Files | Refs

commit d6ada43cacdd28cd0eecfa1bdeb67941e05738ba
parent 3486c51ebe5e3c2c2855a27d0094fdc3cf20767d
Author: rsiddharth <s@ricketyspace.net>
Date:   Tue, 18 Jun 2019 19:42:10 -0400

hn/g: Add athings:data-dir.

* hn/g (athings:data-dir): New function.

Diffstat:
hn/g | 5+++++
1 file changed, 5 insertions(+), 0 deletions(-)

diff --git a/hn/g b/hn/g @@ -53,4 +53,9 @@ (athings:latest (hash-set h (string->symbol id) link) (cdr athings:sxml)))))) +(define (athings:data-dir) + (let ((dir (build-path (find-system-path 'orig-dir) "data"))) + (unless (directory-exists? dir) (make-directory dir)) + dir)) +