From 070b053ff4cea1fc7efb3249a2bddf1bf64bd185 Mon Sep 17 00:00:00 2001 From: rsiddharth Date: Fri, 7 Jun 2019 19:23:16 -0400 Subject: hn/g: Add athings:hash. --- hn/g | 9 +++++++++ 1 file changed, 9 insertions(+) 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)))))) + -- cgit v1.2.3