hn/g: Add g

* hn/g (g): New function.

At least the baby didn't die.

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