From 289967b72c97f88a2352d9227f8e75b855bb680b Mon Sep 17 00:00:00 2001
From: rsiddharth <s@ricketyspace.net>
Date: Tue, 18 Jun 2019 19:53:28 -0400
Subject: hn/g: Add g

* hn/g (g): New function.

At least the baby didn't die.
---
 hn/g | 6 ++++++
 1 file changed, 6 insertions(+)

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