wisp

get interweb fluff
Log | Files | Refs

commit 96fba8d1e6436b258998921546537e74e338e00e
parent 44d2d7d631f8a2122fdc3c9d34cf09b0175c58d5
Author: rsiddharth <s@ricketyspace.net>
Date:   Tue, 18 Jun 2019 19:49:32 -0400

hn/g: Add athings:hash

* hn/g (athings:hash): New function.

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

diff --git a/hn/g b/hn/g @@ -73,3 +73,8 @@ (define (athings:file) (build-path (athings:data-dir) (slug))) +(define (athings:hash f) + (cond ((file-exists? f) + (call-with-input-file f (λ (in) (read-json in)))) + (else (make-immutable-hash)))) +