diff options
Diffstat (limited to '')
-rw-r--r-- | module/calp/html/caltable.scm | 2 | ||||
-rw-r--r-- | module/calp/html/vcomponent.scm | 6 | ||||
-rw-r--r-- | module/calp/html/view/calendar/shared.scm | 3 |
3 files changed, 6 insertions, 5 deletions
diff --git a/module/calp/html/caltable.scm b/module/calp/html/caltable.scm index 77580844..52a18833 100644 --- a/module/calp/html/caltable.scm +++ b/module/calp/html/caltable.scm @@ -47,7 +47,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 5c92e1e7..16189dff 100644 --- a/module/calp/html/vcomponent.scm +++ b/module/calp/html/vcomponent.scm @@ -44,10 +44,10 @@ (configuration-error (lambda (key subr msg args data) (format (current-error-port) - "Error retrieving configuration, ~?~%" msg args))) + (_ "Error retrieving configuration, ~?~%") msg args))) (#t ; for errors when running the filter (lambda (err . args) - (warning "~a on formatting description, ~s" err args) + (warning (_ "~a on formatting description, ~s") err args) str)))) ;; used by search view @@ -510,7 +510,7 @@ ; "20:56" )) (div (@ (class "fields")) - (div (b ,("Location: ")) + (div (b ,(_ "Location: ")) (div (@ (class "location") (data-property "location")) ; "Alsättersgatan 13" diff --git a/module/calp/html/view/calendar/shared.scm b/module/calp/html/view/calendar/shared.scm index e333dc4a..108f3b9a 100644 --- a/module/calp/html/view/calendar/shared.scm +++ b/module/calp/html/view/calendar/shared.scm @@ -14,6 +14,7 @@ :use-module ((calp html vcomponent) :select (make-block format-summary)) :use-module (ice-9 format) + :use-module (calp translation) ) @@ -33,7 +34,7 @@ (unless event-length-key (scm-error 'wrong-type-arg "fix-event-widths!" - "event-length-key is required" + (_ "event-length-key is required") #f #f)) ;; @var{x} is how for left in the container we are. |