aboutsummaryrefslogtreecommitdiff
path: root/module/calp/server/routes.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2022-04-08 00:40:50 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2022-04-11 19:02:33 +0200
commit3f1846959712e899d35de01bff251204484c0e59 (patch)
treee157d84bda0393940a0af102b5bf32f50e2980ca /module/calp/server/routes.scm
parentMerge branch 'translation' (diff)
downloadcalp-3f1846959712e899d35de01bff251204484c0e59.tar.gz
calp-3f1846959712e899d35de01bff251204484c0e59.tar.xz
Fixup translatable strings.
Diffstat (limited to 'module/calp/server/routes.scm')
-rw-r--r--module/calp/server/routes.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/calp/server/routes.scm b/module/calp/server/routes.scm
index d05451eb..e3237914 100644
--- a/module/calp/server/routes.scm
+++ b/module/calp/server/routes.scm
@@ -131,7 +131,7 @@
(GET "/" ()
(return '((content-type text/html))
(sxml->html-string
- '(body (a (@ (href "/today")) ,(_ "Go to Today"))
+ `(body (a (@ (href "/today")) ,(_ "Go to Today"))
(script "window.onload = function() {
document.getElementsByTagName('a')[0].click();}")))))
@@ -443,7 +443,7 @@
'((content-type text/html))
(sxml->html-string
`(html
- (head (title "Calp directory listing for " path)
+ (head (title (_ "Calp directory listing for ") path)
,((@ (calp html components) include-css) "/static/directory-listing.css"))
(body ,(directory-table (static-dir) path))))))
(lambda (err proc fmt fmt-args data)