+(define* (tag-uri prefix tag #:optional (ext ".html"))
+ "Return a URI relative to the site's root for a page listing entries
+in PREFIX that are tagged with TAG."
+ (string-append "/" my-tag-prefix "/" tag ext))
+
+(define* (tag-pages #:key
+ (theme bandali-theme)
+ (prefix "")
+ (filter posts/reverse-chronological))
+ "Return a builder procedure that renders a list page for every tag
+used in a post. All arguments are optional:
+
+PREFIX: The directory in which to write the posts
+FILTER: The procedure called to manipulate the posts list before rendering"
+ (lambda (site posts)
+ (define (tag-list tag posts all-posts)
+ (define (render-list title posts prefix)
+ (let ((body ((theme-collection-template theme)
+ site title posts prefix all-posts tag)))
+ ((theme-layout theme) site title body)))
+ (make-page (tag-uri my-tag-prefix tag)
+ (render-list (string-append "Notes tagged ‘" tag "’")
+ (filter posts)
+ prefix)
+ sxml->html))
+ (let ((tag-groups (posts/group-by-tag posts)))
+ (map (match-lambda
+ ((tag . tagged-posts) (tag-list tag tagged-posts posts)))
+ tag-groups))))
+
+(define (tag-links posts)
+ "Generate an alphabetically sorted list of links to tagged posts.
+The link text consists of the tag name and the number of tagged posts
+in parentheses."
+ `(ul (@ (class "tag-list"))
+ ,(map (match-lambda
+ ((tag . posts)
+ `(li
+ ,(aa (string-append tag
+ " ("
+ (number->string (length posts))
+ ")")
+ (tag-uri my-tag-prefix tag)))))
+ ;; sort by tag
+ (sort (posts/group-by-tag posts)
+ (lambda (a b) (string<? (car a) (car b)))))))
+
+(register-metadata-parser! 'updated string->date*)
+
+(define (intersperse lst delim)
+ "Return the elements of LST delimited by DELIM, such that the
+resulting list is of an odd length and every second element is DELIM."
+ (if (<= (length lst) 1)
+ lst
+ (cons* (car lst)
+ delim
+ (intersperse (cdr lst) delim))))
projects / ~bandali / bndl.org / blobdiff