+ (href ,(string-append "css/" name ".css")))))
+
+(define (static-page title file-name body)
+ (lambda (site posts)
+ (make-page file-name
+ (with-layout flex-theme site title body)
+ sxml->html)))
+
+(define (get-tags post)
+ (or (assoc-ref (post-metadata post) 'tags) '()))
+
+(define (post-date-and-tags date tags)
+ (let ((div `(div (@ (class "date-and-tags"))
+ (time (@ (datetime ,(date->string date "~Y-~m-~dT~H:~M:~S")))
+ ,(date->string date "~Y-~m-~d")))))
+ (cond ((> (length tags) 0)
+ (append div
+ `(" "
+ (span (@ (style "margin: 0 3px")) ⦿)
+ (span (@ (class "tags"))
+ ,@(drop-right
+ (apply
+ append
+ (map (lambda (tag)
+ `((a (@ (href ,(format #f "tags/~a.html" tag))) ,tag) ", "))
+ tags))
+ 1)))))
+ (else
+ div))))