`(" "
(span (@ (style "margin: 0 3px")) ⦿)
(span (@ (class "tags"))
- ,@(map (lambda (tag)
- `((a (@ (href ,(format #f "tags/~a.html" tag))) ,tag) " "))
- tags)))))
+ ,@(drop-right
+ (apply
+ append
+ (map (lambda (tag)
+ `((a (@ (href ,(format #f "tags/~a.html" tag))) ,tag) ", "))
+ tags))
+ 1)))))
(else
div))))