`(" "
(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))))
(li (@ (id "blog-title-header"))
(a (@ (href "index.html"))
(h1 ,(assoc-ref metadata 'author)))))
- (ul (@ (class "navigation-items center")))
+ (ul (@ (class "navigation-items center"))
+ (li (a (@ (href "https://en.jsancho.org/")) "in english")))
(ul (@ (class "navigation-items right"))
,@(map (lambda (page)
`(li (a (@ (href ,(cdr page))) ,(car page))))