hn/g: Add athings:data-dir.

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

1 files changed, 5 insertions, 0 deletions

diff --git a/hn/g b/hn/g
index cd201b8..57d9fa3 100755
--- 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))
+