From 51e2f10645441ded9dbc181cf465cc902c8e1b5d Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 18 Nov 2018 20:46:36 -0500 Subject: post: Add post-ref-all procedure. * haunt/post.scm (post-ref-all): New procedure. --- haunt/post.scm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/haunt/post.scm b/haunt/post.scm index 2b97629..0a0bb8d 100644 --- a/haunt/post.scm +++ b/haunt/post.scm @@ -36,6 +36,7 @@ post-sxml post-metadata post-ref + post-ref-all post-slug %default-date post-date @@ -57,6 +58,13 @@ "Return the metadata corresponding to KEY within POST." (assq-ref (post-metadata post) key)) +(define (post-ref-all post key) + "Return a list of all metadata values for KEY within POST." + (filter-map (match-lambda + ((k . v) + (and (eq? key k) v))) + (post-metadata post))) + (define char-set:slug (char-set-union char-set:letter+digit (char-set #\-))) -- cgit v1.2.3