diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-08 00:40:50 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-11 19:02:33 +0200 |
commit | 3f1846959712e899d35de01bff251204484c0e59 (patch) | |
tree | e157d84bda0393940a0af102b5bf32f50e2980ca /module/calp/server/routes.scm | |
parent | Merge branch 'translation' (diff) | |
download | calp-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.scm | 4 |
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) |