19 lines
536 B
Scheme
19 lines
536 B
Scheme
;;; site/meta/post-ideas.scm
|
|
|
|
(import "util.scm")
|
|
|
|
(define title "Post Ideas")
|
|
|
|
(define post-ideas (include "data/post-ideas.sexp"))
|
|
|
|
|
|
(define (make-category-list name ideas)
|
|
`((h2 ,name)
|
|
(ul ,@(map (lambda (idea) `(li ,idea)) ideas))))
|
|
|
|
`(,@(import "header.scm")
|
|
(p "A collection of ideas that I'd like to write about if I ever feel like it, sorted by category, but in no particular order.")
|
|
(p)
|
|
,@(append-map-with-line-breaks
|
|
(lambda (category) (make-category-list (car category) (cdr category)))
|
|
post-ideas))
|