From 88bc14f9be31d82a0d0d08b8b35bd2637ed600eb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 12 Apr 2022 02:18:39 +0200 Subject: Fix some translations not being evaluated. --- module/calp/html/caltable.scm | 4 +++- module/calp/html/vcomponent.scm | 4 ++-- 2 files changed, 5 insertions(+), 3 deletions(-) (limited to 'module/calp') 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")))))))))) -- cgit v1.2.3