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 '()))))
+