summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorrsiddharth <s@ricketyspace.net>2019-06-18 19:50:23 -0400
committerrsiddharth <s@ricketyspace.net>2019-06-18 19:50:23 -0400
commit315d13b733b3f41191279a6e897e4bbe89896004 (patch)
treefbcd118c966c1520cdc3cda1a12b557ddb4ac191
parent96fba8d1e6436b258998921546537e74e338e00e (diff)
hn/g: Add athings:list.
* hn/g (athings:list): New function.
-rwxr-xr-xhn/g6
1 files changed, 6 insertions, 0 deletions
diff --git a/hn/g b/hn/g
index d2c8f0d..d8855aa 100755
--- a/hn/g
+++ b/hn/g
@@ -13,6 +13,7 @@
(require racket/format)
(require racket/string)
+(require json)
(require net/http-client)
(require openssl)
@@ -78,3 +79,8 @@
(call-with-input-file f (λ (in) (read-json in))))
(else (make-immutable-hash))))
+(define (athings:list)
+ (let ((f (build-path (athings:data-dir) "list")))
+ (cond ((file-exists? f) (call-with-input-file f (λ (in) (read-json in))))
+ (else '()))))
+