summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFlorian Pelz <pelzflorian@pelzflorian.de>2017-12-15 16:55:56 +0100
committerFlorian Pelz <pelzflorian@pelzflorian.de>2017-12-15 16:57:49 +0100
commit88de6680319d15d5cd279c7e90ebc73a3b269f6c (patch)
tree0097605ed4edfe92ea5537bf7f29c2119b9045d4
parente2f7082adefe407a9218d67d59ae3ebd80a65f87 (diff)
Simplify top bar with lingua links.
-rw-r--r--haunt.scm17
1 files changed, 8 insertions, 9 deletions
diff --git a/haunt.scm b/haunt.scm
index 547b5c5..4c64a46 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -470,15 +470,14 @@ back button."
`(span (@ (class "horizontally-padded"))
,(if (equal? lingua current-lingua)
lingua
- `(a
- (@
- (href
- ,(string-append
- "/"
- "index-"
- lingua
- ".html")))
- ,lingua))))
+ (a-href
+ ;; TODO LINK TO CORRESPONDING PAGE
+ (string-append
+ "/"
+ "index-"
+ lingua
+ ".html")
+ lingua))))
linguas))))
(div (@ (id "center"))
(nav (@ (id "side-bar"))