diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-11 22:20:13 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-11 23:50:35 +0200 |
commit | 8b0cbceec2487f50dd6c950d766e36714affdce0 (patch) | |
tree | 3b963da0847621ee8ec79287f37b628b463e839f /module/c | |
parent | Document web stuff. (diff) | |
download | calp-8b0cbceec2487f50dd6c950d766e36714affdce0.tar.gz calp-8b0cbceec2487f50dd6c950d766e36714affdce0.tar.xz |
Fix a few strings where translations wheren't applied.
Diffstat (limited to '')
-rw-r--r-- | module/calp/html/vcomponent.scm | 4 | ||||
-rw-r--r-- | module/calp/server/routes.scm | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm index 574ad954..9e70f910 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -481,7 +481,7 @@ ;; description in sidebar / tab of popup ;; Template data for <vevent-description /> (define-public (description-template) - '(template + `(template (@ (id "vevent-description")) (div (@ (class " vevent eventtext summary-tab " ())) (h3 ((span (@ (class "repeating")) @@ -563,7 +563,7 @@ (dd (input-list (@ (name ,name)) (input (@ (type "number") (min ,min) (max ,max))))))) - '((bysecond ,(_ "By Second") 0 60) + `((bysecond ,(_ "By Second") 0 60) (byminute ,(_ "By Minute") 0 59) (byhour ,(_ "By Hour") 0 23) (bymonthday ,(_ "By Month Day") -31 31) ; except 0 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) |