hn/g: Add athings:hash.

1 files changed, 9 insertions, 0 deletions

diff --git a/hn/g b/hn/g
index e8c7640..6d2278b 100755
--- a/hn/g
+++ b/hn/g
@@ -46,3 +46,12 @@
     (list (sxml:attr (car l) 'href)
           (sxml:text l))))
 
+(define (athings:hash h athings:sxml)
+  (cond ((empty? athings:sxml) h)
+        (else
+         (let* ((athing (car athings:sxml))
+                (id (athing:id athing))
+                (link (athing:link athing)))
+           (athings:hash (hash-set h id link)
+                         (cdr athings:sxml))))))
+