aboutsummaryrefslogtreecommitdiff
path: root/module/calp
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2022-04-12 02:18:39 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2022-04-21 15:16:42 +0200
commit88bc14f9be31d82a0d0d08b8b35bd2637ed600eb (patch)
treec43d8659b8346458a55a0cfb3378160e6312ed85 /module/calp
parentFix edit popups not auto opening. (diff)
downloadcalp-88bc14f9be31d82a0d0d08b8b35bd2637ed600eb.tar.gz
calp-88bc14f9be31d82a0d0d08b8b35bd2637ed600eb.tar.xz
Fix some translations not being evaluated.
Diffstat (limited to 'module/calp')
-rw-r--r--module/calp/html/caltable.scm4
-rw-r--r--module/calp/html/vcomponent.scm4
2 files changed, 5 insertions, 3 deletions
diff --git a/module/calp/html/caltable.scm b/module/calp/html/caltable.scm
index 52a18833..b81ad18d 100644
--- a/module/calp/html/caltable.scm
+++ b/module/calp/html/caltable.scm
@@ -4,6 +4,8 @@
:use-module (calp html util)
:use-module (datetime)
:use-module (srfi srfi-41)
+
+ :use-module (calp translation)
)
;; Small calendar similar to the one below.
@@ -47,7 +49,7 @@
`(div (@ (class "small-calendar"))
;; Cell 0, 0. The letter v. for week number
- (div (@ (class "column-head row-head")) (_ "v."))
+ (div (@ (class "column-head row-head")) ,(_ "v."))
;; top row, names of week days
,@(map (lambda (d) `(div (@ (class "column-head"))
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm
index c9765f63..9d8cb324 100644
--- a/module/calp/html/vcomponent.scm
+++ b/module/calp/html/vcomponent.scm
@@ -456,7 +456,7 @@
(@ (name "categories")
(data-property "categories"))
(input (@ (type "text")
- (placeholder (_ "Category"))))))
+ (placeholder ,(_ "Category"))))))
;; TODO This should be a "list" where any field can be edited
;; directly. Major thing holding us back currently is that
@@ -630,5 +630,5 @@
(@ (data-label "📒") (date-title ,(_ "Changelog"))))
,@(when (debug)
- '((vevent-dl
+ `((vevent-dl
(@ (data-label "🐸") (data-title ,(_ "Debug"))))))))))