diff options
| -rw-r--r-- | haunt/post.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/haunt/post.scm b/haunt/post.scm index 7c5051c..964ae6f 100644 --- a/haunt/post.scm +++ b/haunt/post.scm @@ -23,6 +23,7 @@ ;;; Code: (define-module (haunt post) + #:use-module (srfi srfi-1) #:use-module (srfi srfi-9) #:use-module (srfi srfi-19) #:use-module (haunt utils) @@ -34,6 +35,7 @@ post-ref post-slug posts/reverse-chronological + posts/group-by-tag register-metdata-parser! parse-metadata)) @@ -66,6 +68,19 @@ (lambda (a b) (time>? (post->time a) (post->time b))))) +(define (posts/group-by-tag posts) + "Return an alist of tags mapped to the posts that used them." + (let ((table (make-hash-table))) + (for-each (lambda (post) + (for-each (lambda (tag) + (let ((current (hash-ref table tag))) + (if current + (hash-set! table tag (cons post current)) + (hash-set! table tag (list post))))) + (or (post-ref post 'tags) '()))) + posts) + (hash-fold alist-cons '() table))) + ;;; ;;; Metadata ;;; |