From 8b0cbceec2487f50dd6c950d766e36714affdce0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 11 Jun 2022 22:20:13 +0200 Subject: Fix a few strings where translations wheren't applied. --- module/calp/server/routes.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'module/calp/server') diff --git a/module/calp/server/routes.scm b/module/calp/server/routes.scm index 0876aed4..896219cd 100644 --- a/module/calp/server/routes.scm +++ b/module/calp/server/routes.scm @@ -66,7 +66,7 @@ (drop-right 1) (xcons "/static") path-join))) - "Return up"))) + ,(_ "Return up")))) ,@(map (lambda (k) (let* ((stat (lstat (path-append prefix dir k)))) `(tr (td ,(case (stat:type stat) @@ -440,7 +440,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) -- cgit v1.2.3