summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xhn/g6
1 files changed, 6 insertions, 0 deletions
diff --git a/hn/g b/hn/g
index 76a262d..f2920d6 100755
--- a/hn/g
+++ b/hn/g
@@ -91,3 +91,9 @@
(call-with-output-file f (λ (out) (write-json (cons slug l) out))
#:exists 'truncate))))
+(define (g)
+ (let* ((f (athings:file))
+ (h (athings:latest (athings:hash f) (athings))))
+ (call-with-output-file f (λ (out) (write-json h out)) #:exists 'truncate)
+ (athings:index (slug))))
+