wisp

get interweb fluff
Log | Files | Refs

commit 289967b72c97f88a2352d9227f8e75b855bb680b
parent b085da5446b58254a82ee457568cf6929f278cfd
Author: rsiddharth <s@ricketyspace.net>
Date:   Tue, 18 Jun 2019 19:53:28 -0400

hn/g: Add g

* hn/g (g): New function.

At least the baby didn't die.

Diffstat:
hn/g | 6++++++
1 file changed, 6 insertions(+), 0 deletions(-)

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