From d6ada43cacdd28cd0eecfa1bdeb67941e05738ba Mon Sep 17 00:00:00 2001
From: rsiddharth <s@ricketyspace.net>
Date: Tue, 18 Jun 2019 19:42:10 -0400
Subject: hn/g: Add athings:data-dir.

* hn/g (athings:data-dir): New function.
---
 hn/g | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'hn/g')

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))
+
 
-- 
cgit v1.2.3