Prepare code for translation.

40 files changed, 452 insertions, 319 deletions

diff --git a/module/calp/entry-points/benchmark.scm b/module/calp/entry-points/benchmark.scm
index 5db9b9df..31ea958a 100644
--- a/module/calp/entry-points/benchmark.scm
+++ b/module/calp/entry-points/benchmark.scm
@@ -5,6 +5,8 @@
   :use-module (hnh util options)
   :use-module ((srfi srfi-41) :select (stream->list))
 
+  :use-module (calp translation)
+
   :use-module ((vcomponent util instance methods) :select (get-event-set))
   :autoload (vcomponent util instance) (global-event-object)
 
@@ -15,9 +17,9 @@
 (define opt-spec
   `((enable-output (single-char #\o)
                    (description
-                    "Output is be default supressed, since many fields contain way to much data "
-                    "to read. This turns it on again."))
-    (help (single-char #\h) (description "Print this help."))))
+                    ,(_ "Output is by default supressed, since many fields contain way to much data to read. This turns it on again.")
+                    ))
+    (help (single-char #\h) (description ,(_ "Print this help.")))))
 
 
 (define (main args)
diff --git a/module/calp/entry-points/convert.scm b/module/calp/entry-points/convert.scm
index 3f602b07..5f298de4 100644
--- a/module/calp/entry-points/convert.scm
+++ b/module/calp/entry-points/convert.scm
@@ -4,18 +4,19 @@
   :use-module (hnh util options)
   :use-module (ice-9 getopt-long)
   :use-module (sxml simple)
+  :use-module (calp translation)
   )
 
 
 
 (define opt-spec
-  `((from (single-char #\f) (value (options "xcal" "ical")) 
-          (description "Input format (infered from " (i "infile") ")"))
+  `((from (single-char #\f) (value (options "xcal" "ical"))
+          (description ,(xml->sxml (_ "<group>Input format (otherwise infered from <i>infile</i>)</group>"))))
     (to (single-char #\t) (value (options "xcal" "ical"))
-        (description "Output format (infered from " (i "outfile") ")"))
-    (infile (value #t) (single-char #\i) (description "Input file"))
-    (outfile (value #t) (single-char #\o) (description "Output file"))
-    (help (single-char #\h) (description "Print this help."))))
+        (description ,(xml->sxml (_ "<group>Output format (otherwise infered from <i>outfile</i>)</group>"))))
+    (infile (value #t) (single-char #\i) (description ,(_ "Input file")))
+    (outfile (value #t) (single-char #\o) (description ,(_ "Output file")))
+    (help (single-char #\h) (description ,(_ "Print this help.")))))
 
 
 (define (filename-to-type filename)
diff --git a/module/calp/entry-points/html.scm b/module/calp/entry-points/html.scm
index 7c4fe257..2a559794 100644
--- a/module/calp/entry-points/html.scm
+++ b/module/calp/entry-points/html.scm
@@ -18,9 +18,10 @@
   :use-module ((vcomponent util instance methods)
                 :select (get-calendars get-event-set))
 
-  :use-module ((sxml simple) :select (sxml->xml))
+  :use-module ((sxml simple) :select (sxml->xml xml->sxml))
   :use-module ((sxml transformations) :select (href-transformer))
   :use-module ((xdg basedir) :prefix xdg-)
+  :use-module (calp translation)
 
   :autoload (vcomponent util instance) (global-event-object)
   )
@@ -28,39 +29,35 @@
 
 (define opt-spec
   `((from (value #t) (single-char #\F)
-          (description "Start date of output.")
+          (description ,(_ "Start date of output."))
           )
     (count (value #t)
-           (description "How many pages should be rendered."
-                        "If --style=" (b "week") " and --from=" (b "2020-04-27")
-                        " then --count=" (b 4) " would render the four pages "
-                        "2020-04-27, 2020-05-04, 2020-05-11, and 2020-05-25. "
-                        "Defaults to 12 to give a whole year when --style=" (b "month") "."
-                        ))
+           (description ,(xml->sxml (_ "<group>How many pages should be rendered.
+If --style=<b>week</b> and --from=<b>2020-04-27</b>;
+then --count=<b>4</b> would render the four pages
+2020-04-27, 2020-05-04, 2020-05-11, and 2020-05-25.
+Defaults to 12 to give a whole year when --style=<b>month</b></group>"))))
 
     (target (single-char #\t) (value #t)
-            (description "Directory where html files should end up. Default to " (b "./html")))
+            (description ,(xml->sxml (_ "<group>Directory where html files should end up. Default to <b>./html</b></group>"))))
 
     (style (value #t) (predicate ,(lambda (v) (memv (string->symbol v)
                                             '(small wide week table))))
-           (description "How the body of the HTML page should be layed out. "
-                        (br) (b "week")
-                        " gives a horizontally scrolling page with 7 elements, "
-                        "where each has events graphically laid out hour by hour."
-                        (br) (b "table")
-                        " gives a month in overview as a table. Each block contains "
-                        "the events for the given day, in order of start time. They are "
-                        "however not graphically sized. "
-                        (br) (b "wide")
-                        " is the same as week, but gives a full month.")
-           )
+           (description ,(xml->sxml (_ "<group>How the body of the HTML page should be layed out.
+<br/><b>week</b>
+gives a horizontally scrolling page with 7 elements, where each has events
+graphically laid out hour by hour.
+<br/><b>table</b>
+gives a month in overview as a table. Each block contains the events for the
+given day, in order of start time. They are however not graphically sized.
+<br/><b>wide</b>
+is the same as week, but gives a full month.</group>"))))
 
     (standalone
-     (description "Creates a standalone document instead of an HTML fragment "
-                  "for embedding in a larger page. Currently only applies to the "
-                  (i "small") "style"))
+     (description ,(xml->sxml (_ "<group>Creates a standalone document instead of an HTML fragment
+for embedding in a larger page. Currently only applies to the <i>small</i> style</group>"))))
 
-    (help (single-char #\h) (description "Print this help."))))
+    (help (single-char #\h) (description ,(_ "Print this help.")))))
 
 
 
@@ -99,7 +96,7 @@
   (stream-for-each
    (lambda (start-date)
      (define fname (path-append target-directory (date->string start-date "~1.xml")))
-     (format (current-error-port) "Writing to [~a]~%" fname)
+     (format (current-error-port) (_ "Writing to [~a]~%") fname)
      (with-output-to-file fname
        (lambda () (sxml->xml (re-root-static
                          (apply html-generate
@@ -167,7 +164,7 @@
              pre-start: (start-of-week start)
              post-end: (end-of-week (end-of-month start)))]
     [else
-     (error "Unknown html style: ~a" style)])
+     (error (_ "Unknown html style: ~a") style)])
 
-  ((@ (calp util time) report-time!) "all done")
+  ((@ (calp util time) report-time!) (_ "all done"))
   )
diff --git a/module/calp/entry-points/ical.scm b/module/calp/entry-points/ical.scm
index 938b0b35..e164c340 100644
--- a/module/calp/entry-points/ical.scm
+++ b/module/calp/entry-points/ical.scm
@@ -5,14 +5,16 @@
   :use-module (vcomponent formats ical output)
   :use-module (ice-9 getopt-long)
   :use-module (datetime)
+  :use-module (calp translation)
+  :use-module (calp translation)
   )
 
 (define opt-spec
-  '((from (value #t) (single-char #\F))
+  `((from (value #t) (single-char #\F))
     (to (value #t) (single-char #\T)
-        (description "Returns all elements between these two dates."))
+        (description ,(_ "Returns all elements between these two dates.")))
     (help (single-char #\h)
-          (description "Print this help."))))
+          (description ,(_ "Print this help.")))))
 
 (define (main args)
   (define opts (getopt-long args (getopt-opt opt-spec)))
diff --git a/module/calp/entry-points/import.scm b/module/calp/entry-points/import.scm
index 441ff527..28fb72a6 100644
--- a/module/calp/entry-points/import.scm
+++ b/module/calp/entry-points/import.scm
@@ -11,16 +11,17 @@
   :use-module (vcomponent)
   ;; :use-module ((vcomponent formats ical parse) :select (parse-cal-path))
   :use-module ((vcomponent util parse-cal-path) :select (parse-cal-path))
+  :use-module (calp translation)
   :autoload (vcomponent util instance) (global-event-object)
   )
 
 (define options
-  '((calendar (value #t) (single-char #\c)
-              (description "Name of calendar to import into"))
+  `((calendar (value #t) (single-char #\c)
+              (description ,(_ "Name of calendar to import into")))
     (file (value #t) (single-char #\f)
-          (description "ics file to import"))
+          (description ,(_ "ics file to import")))
     (help (single-char #\h)
-          (description "Print this help."))))
+          (description ,(_ "Print this help.")))))
 
 (define (main args)
   (define opts (getopt-long args (getopt-opt options)))
@@ -39,27 +40,24 @@
                      (get-calendars global-event-object)))))
 
     (unless calendar
-      (format (current-error-port) "No calendar named ~s~%" cal-name)
+      (format (current-error-port) (_ "No calendar named ~s~%") cal-name)
       (throw 'return))
 
     (let ((new-events (parse-cal-path fname)))
 
-      (format #t "About to the following ~a events into ~a~%~{~a~^~%~}~%"
+      (format #t (_ "About to import the following ~a events into ~a~%")
               (length (children new-events))
-              (prop calendar 'NAME)
+              (prop calendar 'NAME))
+      (format #t "~{~a~^~%~}~%"
               (map (extract 'SUMMARY) (children new-events)))
 
-      (format #t "Continue? [Y/n] ")
+      (format #t (_ "Continue? [Y/n] "))
 
-      (let loop ((c #\space))
-        (case c
-          [(#\n #\N) (throw 'return)]
-          [(#\y #\Y) (map (lambda (e)
-                            (add-event calendar e)
-                            (save-event e))
-                          (children new-events))]
-          [else
-           (let ((line (read-line)))
-             (loop (if (string-null? line)
-                       #\Y (string-ref line 0))))]))
-      )))
+      (let loop ((line (read-line)))
+        (case (if (string-null? line) 'yes (yes-no-check line))
+          [(no) (throw 'return)]
+          [(yes) (map (lambda (e)
+                       (add-event calendar e)
+                       (save-event e))
+                     (children new-events))]
+          [else (loop line (read-line))])))))
diff --git a/module/calp/entry-points/server.scm b/module/calp/entry-points/server.scm
index c9ff339a..d42a5d3a 100644
--- a/module/calp/entry-points/server.scm
+++ b/module/calp/entry-points/server.scm
@@ -6,6 +6,8 @@
   :use-module (srfi srfi-1)
 
   :use-module (ice-9 getopt-long)
+  :use-module (calp translation)
+  :use-module (sxml simple)
 
   :use-module ((calp server server) :select (start-server))
 
@@ -13,25 +15,23 @@
 
 
 (define options
-  '((port (value #t) (single-char #\p)
-          (description "Bind to TCP port, defaults to " (i 8080) "."
-                       (br) "Can also be set through the config variable "
-                       (i "port") "."))
+  `((port (value #t) (single-char #\p)
+          (description ,(xml->sxml (_ "<group>Bind to TCP port, defaults to <i>8080</i>.
+<br/>Can also be set through the config variable
+<i>port</i>.</group>"))))
     (addr (value #t)
-
-          (description "Address to use, defaults to " (i "0.0.0.0")
-                       " for IPv4, and " (i "[::]") " for IPv6.")
-          )
+          (description ,(xml->sxml (_ "<group>Address to use, defaults to <i>0.0.0.0</i> for IPv4,
+and <i>[::]</i> for IPv6</group>"))))
     ;; numbers as single-char doesn't work.
-    (six (description "Use IPv6."))
-    (four (description "Use IPv4."))
-    (sigusr (description "Reload events on SIGUSR1"))
+    (six (description ,(_ "Use IPv6.")))
+    (four (description ,(_ "Use IPv4.")))
+    (sigusr (description ,(_ "Reload events on SIGUSR1")))
     (help (single-char #\h)
-          (description "Print this help."))))
+          (description ,(_ "Print this help.")))))
 
 
 (define-config port 8080
-  description: "Port to which the web server should bind.")
+  description: (_ "Port to which the web server should bind."))
 
 (define-public (main args)
 
@@ -60,18 +60,22 @@
             "::" "0.0.0.0")))
 
   (when (option-ref opts 'sigusr #f)
-    (display "Listening for SIGUSR1\n" (current-error-port))
+    (format (current-error-port) (_ "Listening for SIGUSR1~%"))
     ;; NOTE this uses the main thread, and does therefore block HTTP requests
     ;; while reloading. However, it appears to not cause any race conditions.
     (sigaction SIGUSR1
       (lambda _
-        (display "Received SIGUSR1, reloading calendars\n"
-                 (current-error-port))
+        (format (current-error-port) (_ "Received SIGUSR1, reloading calendars~%"))
         ((@ (vcomponent util instance) reload)))))
 
 
 
-  (format #t "Starting server on ~a:~a~%I'm ~a, runing from ~a~%"
+  ;; Arguments are
+  ;; IP-address which we bind to
+  ;; Port which we listen to
+  ;; PID of this process
+  ;; PWD of this process
+  (format #t (_ "Starting server on ~a:~a~%I'm ~a, runing from ~a~%")
           addr port
           (getpid) (getcwd))
 
diff --git a/module/calp/entry-points/terminal.scm b/module/calp/entry-points/terminal.scm
index b0be318c..dd35b8f3 100644
--- a/module/calp/entry-points/terminal.scm
+++ b/module/calp/entry-points/terminal.scm
@@ -6,12 +6,13 @@
   :use-module (datetime)
   :use-module (vulgar)
   :use-module (hnh util options)
+  :use-module (calp translation)
   )
 
 (define options
-  '((date (value #t) (single-char #\d)
-          (description "Which date to start on."))
-    (help (single-char #\t) (description "Print this help."))
+  `((date (value #t) (single-char #\d)
+          (description ,(_ "Which date to start on.")))
+    (help (single-char #\t) (description ,(_ "Print this help.")))
     ))
 
 (define (main args)
diff --git a/module/calp/entry-points/text.scm b/module/calp/entry-points/text.scm
index 0a5744b3..921afb80 100644
--- a/module/calp/entry-points/text.scm
+++ b/module/calp/entry-points/text.scm
@@ -4,16 +4,18 @@
   :use-module (ice-9 getopt-long)
   :use-module (hnh util io)
   :use-module (hnh util options)
+  :use-module (calp translation)
+  :use-module (sxml simple)
   )
 
 
 (define options
-  '((width (value #t) (single-char #\w)
-           (description "Width of written text, defaults to 70 chars."))
+  `((width (value #t) (single-char #\w)
+           (description ,(_ "Width of written text, defaults to 70 chars.")))
     (file (value #t) (single-char #\f)
-          (description "Read from " (i "file") " instead of standard input."))
+          (description ,(xml->sxml (_ "<group>Read from <i>file</i> instead of standard input.</group>"))))
     (help (single-char #\h)
-          (description "Prints this help."))))
+          (description ,(_ "Prints this help.")))))
 
 (define (main args)
   (define opts (getopt-long args (getopt-opt options)))
@@ -24,6 +26,9 @@
 
   (for-each (lambda (l) (display l) (newline))
             (flow-text
-             (with-input-from-port (open-input-port (option-ref opts 'file "-"))
+             (with-input-from-port (let ((fname (option-ref opts 'file "-")))
+                                     (if (string=? fname "-")
+                                         (current-input-port)
+                                         (open-input-file fname)))
                (@ (ice-9 rdelim) read-string))
              #:width (or (string->number (option-ref opts 'width "")) 70))))
diff --git a/module/calp/entry-points/tidsrapport.scm b/module/calp/entry-points/tidsrapport.scm
index 5ff43cf7..a05c3b78 100644
--- a/module/calp/entry-points/tidsrapport.scm
+++ b/module/calp/entry-points/tidsrapport.scm
@@ -42,6 +42,8 @@
   :use-module (hnh util)
   :use-module (hnh util options)
   :use-module (ice-9 getopt-long)
+  :use-module (calp translation)
+  :use-module (sxml simple)
   :use-module (datetime)
   )
 
@@ -165,20 +167,20 @@ trailer
 )
 
 (define opt-spec
-  '((pdf (value #t)
-         (description "Input pdf fill"))
+  `((pdf (value #t)
+         (description ,(_ "Input pdf file")))
     (output (single-char #\o) (value optional)
-            (description "Output file"))
+            (description ,(_ "Output file")))
 
     (data (value optional)
-          (description "Static data to fill fields with")
+          (description ,(_ "Static data to fill fields with"))
           )
     (template (value optional)
-              (description "Map between real field names and human readable names." (br)
-                           "If data is given, but not trans, then data is assumed to be in a correct format"))
+              (description ,(xml->sxml (_ "<group>Map between real field names and human readable names.<br/>
+If data is given, but not trans, then data is assumed to be in a correct format</group>"))))
     (search (value #t)
             (description
-             "Search term for dynamic filling. Supports basic globbing"))))
+             ,(_ "Search term for dynamic filling. Supports basic globbing")))))
 
 (define (parse-search str)
   (cond [(string-match "\\{(.*)\\}" str)
@@ -204,7 +206,7 @@ trailer
   (define template
     (call-with-input-file
      (or (option-ref opts 'template #f)
-         (error "Template required"))
+         (error (_ "Template required")))
      read))
 
   (define prepared-data
@@ -232,9 +234,9 @@ trailer
             (define days
               (let ((days (assoc-ref group 'days)))
                 (cond ((not (list? days))
-                       (error "Needs list, not pair"))
+                       (error (_ "Needs list, not pair")))
                       ((null? days)
-                       (error "Need more days"))
+                       (error (_ "Need more days")))
                       ((and (list? (car days)) (eqv? '- (caar days)))
                        (map (lambda (s) (string-append prefix (->string s)))
                             (iota (1+ (- (list-ref (car days) 2)
@@ -250,7 +252,7 @@ trailer
               ,@(build-alist work-hours days)
               (,sum ,(apply + work-hours))))
           (or (assoc-ref template 'groups)
-              (error "Groups required in template"))
+              (error (_ "Groups required in template")))
           search)))
 
   (define report
diff --git a/module/calp/html/caltable.scm b/module/calp/html/caltable.scm
index dd2d4b03..77580844 100644
--- a/module/calp/html/caltable.scm
+++ b/module/calp/html/caltable.scm
@@ -1,4 +1,5 @@
 (define-module (calp html caltable)
+
   :use-module (hnh util)
   :use-module (calp html util)
   :use-module (datetime)
@@ -35,6 +36,7 @@
           ;; making the text red for all holidays, or creating a yellow background
           ;; for events from a specific source.
           (time (@ (datetime ,(date->string date "~Y-~m-~d")))
+                ;; TODO should this field be translated?
                 ,(day date)))))
 
   (define month-start (start-of-month start-date))
@@ -49,11 +51,13 @@
 
         ;; top row, names of week days
         ,@(map (lambda (d) `(div (@ (class "column-head"))
+                            ;; TODO this SHOULD be translated
                             ,(string-titlecase (week-day-name d 2))))
                (weekday-list))
 
         ;; left columun, week numbers
         ,@(map (lambda (v) `(div (@ (class "row-head")) ,v))
+               ;; TODO translate this
                (map week-number
                     (stream->list
                      (stream-take-while (lambda (s) (date<= s post-end))
diff --git a/module/calp/html/components.scm b/module/calp/html/components.scm
index 2f8c85ec..0d6fbf1c 100644
--- a/module/calp/html/components.scm
+++ b/module/calp/html/components.scm
@@ -2,6 +2,7 @@
   :use-module (hnh util)
   :use-module (ice-9 curried-definitions)
   :use-module (ice-9 match)
+  :use-module (calp translation)
   :export (xhtml-doc)
   )
 
@@ -57,7 +58,7 @@
               allow-other-keys:
               rest: args)
   (when (and onclick href)
-    (error "Only give one of onclick, href and submit."))
+    (error (_ "Only give one of onclick, href and submit.")))
 
   (let ((body #f))
     `(,(cond [href 'a]
diff --git a/module/calp/html/config.scm b/module/calp/html/config.scm
index 6bd1e0ec..08a4b2e8 100644
--- a/module/calp/html/config.scm
+++ b/module/calp/html/config.scm
@@ -1,11 +1,12 @@
 (define-module (calp html config)
   :use-module (hnh util)
   :use-module (calp util config)
+  :use-module (calp translation)
   )
 
 (define-public debug (make-parameter #f))
 (define-config debug #f
-  description: "Places the generated thingy in debug mode"
+  description: (_ "Places the generated thingy in debug mode")
   post: debug)
 
 
@@ -13,6 +14,6 @@
 ;;; but this works for the time being.
 (define-public edit-mode (make-parameter #t))
 (define-config edit-mode #t
-  description: "Makes the document editable"
+  description: (_ "Makes the document editable")
   post: edit-mode)
 
diff --git a/module/calp/html/util.scm b/module/calp/html/util.scm
index 75137d4e..aa3d9233 100644
--- a/module/calp/html/util.scm
+++ b/module/calp/html/util.scm
@@ -1,5 +1,6 @@
 (define-module (calp html util)
-  :use-module (hnh util))
+  :use-module (hnh util)
+  :use-module (calp translation))
 
 
 (define-public (date-link date)
@@ -30,6 +31,6 @@
                       #xFF))
             "#000000" "#FFFFFF")))
     (lambda args
-      (format (current-error-port) "Error calculating foreground color?~%~s~%" args)
+      (format (current-error-port) (_ "Error calculating foreground color?~%~s~%") args)
       "#FF0000"
       )))
diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm
index 16f418c5..ffdd37e2 100644
--- a/module/calp/html/vcomponent.scm
+++ b/module/calp/html/vcomponent.scm
@@ -24,6 +24,7 @@
                                       ))
   :use-module ((calp util config) :select (get-config))
   :use-module ((base64) :select (base64encode))
+  :use-module (calp translation)
   )
 
 ;; used by search view
@@ -45,10 +46,13 @@
                                    "unknown")))))
                    (time ,(let ((dt (prop event 'DTSTART)))
                             (if (datetime? dt)
-                                (datetime->string dt "~Y-~m-~d ~H:~M")
-                                (date->string dt "~Y-~m-~d" ))))
+                                ;; Compact event list date + time
+                                (datetime->string dt (_ "~Y-~m-~d ~H:~M"))
+                                ;; Compact event list date only
+                                (date->string dt (_ "~Y-~m-~d") ))))
                    (a (@ (href ,(date->string (as-date (prop event 'DTSTART)) "/week/~Y-~m-~d.html")))
-                      "View 📅")
+                      ;; Button for viewing calendar, accompanied by a calendar icon
+                      ,(_ "View") " 📅")
                    (span ,(prop event 'SUMMARY)))))
   (cons
    (calendar-styles calendars)
@@ -86,6 +90,7 @@
                          (data-property "summary"))
                       ,(prop ev 'SUMMARY))))
          (div
+          ;; TODO localize this?
           ,(call-with-values (lambda () (fmt-time-span ev))
              (case-lambda [(start)
                            `(div (time (@ (class "dtstart")
@@ -118,7 +123,7 @@
 
           (div (@ (class "fields"))
                ,(when (and=> (prop ev 'LOCATION) (negate string-null?))
-                  `(div (b "Plats: ")
+                  `(div (b ,(_ "Location: "))
                         (div (@ (class "location") (data-property "location"))
                              ,(string-map (lambda (c) (if (char=? c #\,) #\newline c))
                                           (prop ev 'LOCATION)))))
@@ -195,8 +200,10 @@
                              ,@(format-recurrence-rule ev)))
 
                ,(when (prop ev 'LAST-MODIFIED)
-                  `(div (@ (class "last-modified")) "Senast ändrad "
-                        ,(datetime->string (prop ev 'LAST-MODIFIED) "~1 ~H:~M"))))
+                  `(div (@ (class "last-modified")) ,(_ "Last modified") " "
+                        ,(datetime->string (prop ev 'LAST-MODIFIED)
+                                           ;; Last modified datetime
+                                           (_ "~1 ~H:~M")))))
 
           ))))
 
@@ -206,7 +213,9 @@
 (define-public (fmt-day day)
   (let* (((date . events) day))
     `(section (@ (class "text-day"))
-              (header (h2 ,(let ((s (date->string date "~Y-~m-~d")))
+              (header (h2 ,(let ((s (date->string date
+                                                  ;; Header for sidebar day
+                                                  (_ "~Y-~m-~d"))))
                              `(a (@ (href "#" ,s)
                                     (class "hidelink")) ,s))))
               ,@(stream->list
@@ -291,12 +300,13 @@
 ;; TODO possibly unused?
 (define (repeat-info event)
   `(div (@ (class "eventtext"))
-        (h2 "Upprepningar")
+        (h2 ,(_ "Recurrences"))
         (table (@ (class "recur-components"))
                ,@((@@ (vcomponent recurrence internal) map-fields)
                   (lambda (key value)
                     `(tr (@ (class ,key)) (th ,key)
                          (td
+                          ;; TODO Should these date string be translated?
                           ,(case key
                              ((wkst) (week-day-name value))
                              ((until) (if (date? value)
@@ -341,6 +351,7 @@
   `(select (@ ,@args)
      (option "-")
      ,@(map (lambda (x) `(option (@ (value ,(car x))) ,(cadr x)))
+            ;; TODO translate
             '((MO "Monday")
               (TU "Tuesday")
               (WE "Wednesday")
@@ -360,7 +371,8 @@
     (div (@ (class " eventtext edit-tab "))
          (form (@ (class "edit-form"))
                (select (@ (class "calendar-selection"))
-                 (option "- Choose a Calendar -")
+                 ;; NOTE flytta "muffarna" utanför
+                 (option ,(_ "- Choose a Calendar -"))
                  ,@(let ((dflt (get-config 'default-calendar)))
                      (map (lambda (calendar)
                             (define name (prop calendar 'NAME))
@@ -370,7 +382,7 @@
                                      ,name))
                           calendars)))
                (h3 (input (@ (type "text")
-                             (placeholder "Sammanfattning")
+                             (placeholder ,(_ "Summary"))
                              (name "summary") (required)
                              (data-property "summary")
                                         ; (value ,(prop ev 'SUMMARY))
@@ -379,24 +391,24 @@
                (div (@ (class "timeinput"))
 
                     ,@(with-label
-                       "Starttid"
+                       (_ "Start time")
                        '(date-time-input (@ (name "dtstart")
                                             (data-property "dtstart")
                                             )))
 
                     ,@(with-label
-                       "Sluttid"
+                       (_ "End time")
                        '(date-time-input (@ (name "dtend")
                                             (data-property "dtend"))))
 
                     (div (@ (class "checkboxes"))
                          ,@(with-label
-                            "Heldag?"
+                            (_ "Whole day?")
                             `(input (@ (type "checkbox")
                                        (name "wholeday")
                                        )))
                          ,@(with-label
-                            "Upprepande?"
+                            (_ "Recurring?")
                             `(input (@ (type "checkbox")
                                        (name "has_repeats")
                                        ))))
@@ -404,8 +416,8 @@
                     )
 
                ,@(with-label
-                  "Plats"
-                  `(input (@ (placeholder "Plats")
+                  (_ "Location")
+                  `(input (@ (placeholder ,(_ "Location"))
                              (name "location")
                              (type "text")
                              (data-property "location")
@@ -413,20 +425,20 @@
                              )))
 
                ,@(with-label
-                  "Beskrivning"
-                  `(textarea (@ (placeholder "Beskrivning")
+                  (_ "Description")
+                  `(textarea (@ (placeholder ,(_ "Description"))
                                 (data-property "description")
                                 (name "description"))
                                         ; ,(prop ev 'DESCRIPTION)
                              ))
 
                ,@(with-label
-                  "Kategorier"
+                  (_ "Categories")
                   `(input-list
                     (@ (name "categories")
                        (data-property "categories"))
                     (input (@ (type "text")
-                              (placeholder "Kattegori")))))
+                              (placeholder (_ "Category"))))))
 
                ;; TODO This should be a "list" where any field can be edited
                ;; directly. Major thing holding us back currently is that
@@ -458,6 +470,7 @@
                     "↺")
               (span (@ (class "summary")
                        (data-property "summary")))))
+         ;; TODO should't the time tags contain something?
          (div (div (time (@ (class "dtstart")
                             (data-property "dtstart")
                             (data-fmt "~L~H:~M")
@@ -474,7 +487,7 @@
                                         ; "20:56"
                          ))
               (div (@ (class "fields"))
-                   (div (b "Plats: ")
+                   (div (b ,("Location: "))
                         (div (@ (class "location")
                                 (data-property "location"))
                                         ; "Alsättersgatan 13"
@@ -496,7 +509,7 @@
                    ;;      "varje vecka"
                    ;;      ".")
                    (div (@ (class "last-modified"))
-                        "Senast ändrad -"
+                        ,(_ "Last Modified") " -"
                                         ; "2021-09-29 19:56"
                         ))))))
 
@@ -504,21 +517,21 @@
   `(template
     (@ (id "vevent-edit-rrule"))
     (div (@ (class "eventtext"))
-         (h2 "Upprepningar")
+         (h2 ,(_ "Recurrences"))
          (dl
-          (dt "Frequency")
+          (dt ,(_ "Frequency"))
           (dd (select (@ (name "freq"))
                 (option "-")
                 ,@(map (lambda (x) `(option (@ (value ,x)) ,(string-titlecase (symbol->string x))))
                        '(SECONDLY MINUTELY HOURLY DAILY WEEKLY MONTHLY YEARLY))))
 
-          (dt "Until")
+          (dt ,(_ "Until"))
           (dd (date-time-input (@ (name "until"))))
 
-          (dt "Conut")
+          (dt ,(_ "Conut"))
           (dd (input (@ (type "number") (name "count") (min 0))))
 
-          (dt "Interval")
+          (dt ,(_ "Interval"))
           (dd (input (@ (type "number") (name "interval") ; min and max depend on FREQ
                         )))
 
@@ -532,14 +545,14 @@
                       (dd (input-list (@ (name ,name))
                                       (input (@ (type "number")
                                                 (min ,min) (max ,max)))))))
-                  '((bysecond "By Second" 0 60)
-                    (byminute "By Minute" 0 59)
-                    (byhour "By Hour" 0 23)
-                    (bymonthday "By Month Day" -31 31) ; except 0
-                    (byyearday "By Year Day" -366 366) ; except 0
-                    (byweekno "By Week Number" -53 53) ; except 0
-                    (bymonth "By Month" 1 12)
-                    (bysetpos "By Set Position" -366 366) ; except 0
+                  '((bysecond ,(_ "By Second") 0 60)
+                    (byminute ,(_ "By Minute") 0 59)
+                    (byhour ,(_ "By Hour") 0 23)
+                    (bymonthday ,(_ "By Month Day") -31 31) ; except 0
+                    (byyearday ,(_ "By Year Day") -366 366) ; except 0
+                    (byweekno ,(_ "By Week Number") -53 53) ; except 0
+                    (bymonth ,(_ "By Month") 1 12)
+                    (bysetpos ,(_ "By Set Position") -366 366) ; except 0
                     )))
 
           ;; (dt "By Week Day")
@@ -550,7 +563,7 @@
           ;;                 ,(week-day-select '())
           ;;                 ))
 
-          (dt "Weekstart")
+          (dt ,(_ "Weekstart"))
           (dd ,(week-day-select '((name "wkst")))))))
   )
 
@@ -565,32 +578,36 @@
 
          (nav (@ (class "popup-control"))
               (button (@ (class "close-button")
-                         (title "Stäng")
+                         ;; Close this popup
+                         (title ,(_ "Close"))
                          (aria-label "Close"))
                       "×")
               (button (@ (class "maximize-button")
-                         (title "Fullskärm")
+                         ;; Make this popup occupy the entire screen
+                         (title ,(_ "Fullscreen"))
                          ;; (aria-label "")
                          )
                       "🗖")
               (button (@ (class "remove-button")
-                         (title "Ta Bort"))
+                         ;; Remove/Trash the event this popup represent
+                         ;; Think garbage can
+                         (title ,(_ "Remove")))
                       "🗑"))
 
          (tab-group (@ (class "window-body"))
                     (vevent-description
-                     (@ (data-label "📅") (data-title "Översikt")
+                     (@ (data-label "📅") (data-title ,(_ "Overview"))
                         (class "vevent")))
 
                     (vevent-edit
-                     (@ (data-label "🖊") (data-title "Redigera")))
+                     (@ (data-label "🖊") (data-title ,(_ "Edit"))))
 
                     ;; (vevent-edit-rrule
                     ;;  (@ (data-label "↺") (data-title "Upprepningar")))
 
                     (vevent-changelog
-                     (@ (data-label "📒") (date-title "Changelog")))
+                     (@ (data-label "📒") (date-title ,(_ "Changelog"))))
 
                     ,@(when (debug)
                         '((vevent-dl
-                           (@ (data-label "🐸") (data-title "Debug")))))))))
+                           (@ (data-label "🐸") (data-title ,(_ "Debug"))))))))))
diff --git a/module/calp/html/view/calendar.scm b/module/calp/html/view/calendar.scm
index ecdce291..c7a5c8c2 100644
--- a/module/calp/html/view/calendar.scm
+++ b/module/calp/html/view/calendar.scm
@@ -27,6 +27,7 @@
   :use-module ((vcomponent util group)
                :select (group-stream get-groups-between))
   :use-module ((base64) :select (base64encode))
+  :use-module (calp translation)
   )
 
 
@@ -72,10 +73,10 @@
              ,display)))
 
   (unless next-start
-    (error 'html-generate "Next-start needs to be a procedure"))
+    (error 'html-generate (_ "Next-start needs to be a procedure")))
 
   (unless prev-start
-    (error 'html-generate "Prev-start needs to be a procedure"))
+    (error 'html-generate (_ "Prev-start needs to be a procedure")))
 
   (xhtml-doc
    (@ (lang sv))
@@ -86,9 +87,11 @@
     (meta (@ (name viewport)
              (content "width=device-width, initial-scale=0.5")))
     (meta (@ (name description)
-             (content "Calendar for the dates between "
-                      ,(date->string start-date) " and "
-                      ,(date->string end-date))))
+             (content ,(format #f (_ "Calendar for the dates between ~a and ~a")
+                               ;; start date metainfo
+                               (date->string start-date (_ "~Y-~m-~d"))
+                               ;; end date metainfo
+                               (date->string end-date   (_ "~Y-~m-~d"))))))
     ;; NOTE this is only for the time actually part of this calendar.
     ;; overflowing times from pre-start and post-end is currently ignored here.
     (meta (@ (name start-time)
@@ -148,10 +151,12 @@ window.default_calendar='~a';"
          ;; Page footer
          (footer
           (@ (style "grid-area: footer"))
-          (span "Page generated " ,(date->string (current-date)))
-          (span "Current time " (current-time (@ (interval 1))))
+          (span ,(_ "Page generated ")
+                ;; Generation data
+                ,(date->string (current-date) (_ "~Y-~m-~d")))
+          (span ,(_ "Current time ") (current-time (@ (interval 1))))
           (span (a (@ (href ,(repo-url)))
-                   "Source Code")))
+                   ,(_ "Source Code"))))
 
          ;; Small calendar and navigation
          (nav (@ (class "calnav") (style "grid-area: nav"))
@@ -161,10 +166,12 @@ window.default_calendar='~a';"
                                     (start-of-week start-date)
                                     start-date)
                                 "/week/~1.html")
-                         "veckovy")
+                         ;; Button to view week
+                         (_ "Week"))
 
                    ,(btn href: (date->string (set (day start-date) 1) "/month/~1.html")
-                         "månadsvy")
+                         ;; button to view month
+                         (_ "Month"))
 
                    (today-button
                     (a (@ (class "btn")
@@ -173,7 +180,8 @@ window.default_calendar='~a';"
                                               [(month) "view=month"]
                                               [(week) "view=week"]
                                               [else ""]))))
-                       "idag")))
+                       ;; Button to go to today
+                       ,(_ "Today"))))
 
               (div (@ (id "jump-to"))
                    ;; Firefox's accessability complain about each date
@@ -193,9 +201,11 @@ window.default_calendar='~a';"
                          ,(btn "➔"))))
 
          (details (@ (open) (style "grid-area: cal"))
-                  (summary "Month overview")
+                  (summary ,(_ "Month overview"))
                   (div (@ (class "smallcall-head"))
-                       ,(string-titlecase (date->string start-date "~B ~Y")))
+                       ,(string-titlecase (date->string start-date
+                                                        ;; Header of small calendar
+                                                        (_ "~B ~Y"))))
                   ;; NOTE it might be a good idea to put the navigation buttons
                   ;; earlier in the DOM-tree/tag order. At least Vimium's
                   ;; @key{[[} keybind sometimes finds parts of events instead.
@@ -220,17 +230,17 @@ window.default_calendar='~a';"
                        (action "/search/text"))
                     (input (@ (type "text")
                               (name "q")
-                              (placeholder "Sök")))
+                              ;; Search placeholder
+                              (placeholder ,(_ "Search"))))
                     (input (@ (type "submit")
                               (value ">"))))
 
               ,(when (or (debug) (edit-mode))
                  `(details (@ (class "sliders"))
-                           (summary "Option sliders")
-
+                           (summary ,(_ "Option sliders"))
 
                            ,@(when (edit-mode)
-                               `((label "Event blankspace")
+                               `((label ,(_ "Event blankspace"))
                                  ,(slider-input
                                    variable: "editmode"
                                    min: 0
@@ -239,7 +249,7 @@ window.default_calendar='~a';"
                                    value: 1)))
 
                            ,@(when (debug)
-                               `((label "Fontsize")
+                               `((label ,(_ "Fontsize"))
                                  ,(slider-input
                                    unit: "pt"
                                    min: 1
@@ -250,7 +260,7 @@ window.default_calendar='~a';"
 
               ;; List of calendars
               (details (@ (class "calendarlist"))
-                       (summary "Calendar list")
+                       (summary ,(_ "Calendar list"))
                        (ul ,@(map
                               (lambda (calendar)
                                 `(li (@ (data-calendar ,(base64encode (prop calendar 'NAME))))
@@ -276,7 +286,7 @@ window.default_calendar='~a';"
               ;; Events which started before our start point,
               ;; but "spill" into our time span.
               (section (@ (class "text-day"))
-                       (header (h2 "Tidigare"))
+                       (header (h2 ,(_ "Earlier")))
                        ;; TODO this group gets styles applied incorrectly.
                        ;; Figure out way to merge it with the below call.
                        ,@(stream->list
@@ -284,8 +294,7 @@ window.default_calendar='~a';"
                            (lambda (ev)
                              (fmt-single-event
                               ev `((id ,(html-id ev))
-                                   (data-calendar ,(base64encode (or (prop (parent ev) 'NAME)
-                                                                     "unknown"))))))
+                                   (data-calendar ,(base64encode (or (prop (parent ev) 'NAME) "unknown"))))))
                            (stream-take-while
                             (compose (cut date/-time<? <> start-date)
                                      (extract 'DTSTART))
diff --git a/module/calp/html/view/calendar/week.scm b/module/calp/html/view/calendar/week.scm
index 5b12a351..921bdb83 100644
--- a/module/calp/html/view/calendar/week.scm
+++ b/module/calp/html/view/calendar/week.scm
@@ -17,6 +17,7 @@
                :select (make-block output-uid) )
   ;; :use-module ((calp html components)
   ;;              :select ())
+  :use-module (calp translation)
   :use-module ((vcomponent util group)
                :select (group-stream get-groups-between))
   )
@@ -30,7 +31,9 @@
            (div (@ (class "days"))
                 ;; Top left area
                 (div (@ (class "week-indicator"))
-                     (span (@ (style "font-size: 50%")) "v.")  ; figure out if we want this...
+                     (span (@ (style "font-size: 50%"))
+                           ;; Week number prefix
+                           ,(_ "v."))
                      ,@(->> (week-number start-date)
                             number->string string->list
                             (map (lambda (c) `(span ,(string c))))))
@@ -43,8 +46,10 @@
                 ,@(map (lambda (day-date)
                          `(div (@ (class "meta"))
                                (span (@ (class "daydate"))
-                                     ,(date->string day-date "~Y-~m-~d"))
+                                     ;; Week view header format
+                                     ,(date->string day-date (_ "~Y-~m-~d")))
                                (span (@ (class "dayname"))
+                                     ;; TODO translation here?
                                      ,(string-titlecase (date->string day-date "~a")))))
                        range)
                 ,@(stream->list
diff --git a/module/calp/html/view/search.scm b/module/calp/html/view/search.scm
index 9b03151b..08436bc5 100644
--- a/module/calp/html/view/search.scm
+++ b/module/calp/html/view/search.scm
@@ -8,6 +8,7 @@
                :select (xhtml-doc include-css))
   :use-module ((calp html vcomponent)
                :select (compact-event-list))
+  :use-module (calp translation)
   )
 
 ;; Display the result of a search term, but doesn't do any searching
@@ -24,25 +25,25 @@
                 errors has-query? search-term search-result page paginator)
   (xhtml-doc
    (@ (lang sv))
-   (head (title "Search results")
+   (head (title ,(_ "Search results"))
          ,(include-css "/static/style.css"))
    (body
-    (a (@ (href ("/today"))) "Till Idag")
-    (h2 "Search term")
+    (a (@ (href ("/today"))) ,(_ "Show today"))
+    (h2 ,(_ "Search term"))
     (form
      (pre (textarea (@ (name "q") (rows 5) (spellcheck false)
                        (style "width:100%"))
                     ,(when has-query?
                        (with-output-to-string
                          (lambda () (pretty-print search-term))))))
-     (label (@ (for "onlyfuture")) "limit to future occurences")
+     (label (@ (for "onlyfuture")) ,(_ "limit to future occurences"))
      (input (@ (name "onlyfuture") (id "onlyfuture") (type checkbox)))
      (input (@ (type submit))))
     ,@(if errors
-          `((h2 "Error searching")
+          `((h2 ,(_ "Error searching"))
             (div (@ (class "error"))
                  (pre ,errors)))
-          `((h2 "Result (page " ,page ")")
+          `((h2 ,(format #f (_ "Result (page ~a)") page))
             (ul ,@(compact-event-list search-result))
             (div (@ (class "paginator"))
                  ,@(paginator->list
diff --git a/module/calp/main.scm b/module/calp/main.scm
index 0ae22927..ebff00fd 100644
--- a/module/calp/main.scm
+++ b/module/calp/main.scm
@@ -24,29 +24,31 @@
 
   :use-module (statprof)
   :use-module (calp repl)
+  :use-module (sxml simple)
 
   :use-module ((xdg basedir) :prefix xdg-)
 
+  :use-module (calp translation)
+
   )
 
 
 (define options
   `((statprof (value display-style)
-              (description "Run the program within Guile's built in statical "
-                           "profiler. Display style is one of "
-                           (b "flat") " or " (b "tree") "."))
+              (description ,(xml->sxml (_ "<group>Run the program within Guile's built in statical
+profiler. Display style is one of <b>flat</b> or <b>tree</b>.</group>"))))
     (repl (value address)
           (description
-           "Start a Guile repl which can be connected to, defaults to the unix socket "
-           (i "/run/user/${UID}/calp-${PID}") ", but it can be bound to any unix or "
-           "TCP socket. ((@ (vcomponent util instance) global-event-object)) "
-           "should contain all events."
-           (br)
-           (b "Should NOT be used in production.")))
+           ,(xml->sxml (_ "<group>Start a Guile repl which can be connected to, defaults to the
+unix socket <i>/run/user/${UID}/calp-${PID}</i>, but it can be bound to any
+unix or TCP socket. ((@ (vcomponent util instance) global-event-object)) should
+contain all events.
+<br/>
+<b>Should NOT be used in production.</b></group>"))))
 
     (config (value #t)
             (description
-             "Path to alterantive configuration file to load instead of the default one. "))
+             ,(_ "Path to alterantive configuration file to load instead of the default one.")))
 
     ;; Techical note:
     ;; Guile's getopt doesn't support repeating keys. Thereby the small jank,
@@ -54,57 +56,54 @@
     (option (single-char #\o)
             (value #t)
             (description
-             "Set configuration options, on the form "
-             (i "key") "=" (i "value")
-             " as if they were set in the config file. These options have "
-             "priority over those from the file. "
-             "Can " (i "not") " be given with an equal after --option."
-             (br) "Can be given multiple times."))
+             ,(xml->sxml (_ "<group>Set configuration options, on the form <i>key</i>=<i>value</i>
+as if they were set in the config file. These options have priority over those
+from the file.  Can <i>not</i> be given with an equal after --option.  <br/>Can
+be given multiple times.</group>"))))
 
     (version (single-char #\v)
-             (description "Display version, which is " ,(@ (calp) version) " btw."))
+             (description ,(format #f (_ "Display version, which is ~a btw.")
+                                   (@ (calp) version))))
 
     (update-zoneinfo)
 
     (help (single-char #\h)
-          (description "Print this help"))
+          (description ,(_ "Print this help")))
 
-    (printconf (description "Print known configuration variables."
-                            (br) (b "NOTE") ": "
-                            "Only those configuration variables which are loaded "
-                            "will be shown, more might be available"))))
+    (printconf (description ,(xml->sxml (_ "<group>Print known configuration variables.
+<br/><b>NOTE</b>:
+Only those configuration variables which are loaded will be shown, more might be
+available</group>"))))))
 
 (define module-help
-  '(*TOP* (br)
-    (center (b "Calp")) (br) (br)
-    "Usage: " (b "calp") " [ " (i flags) " ] " (i mode) " [ " (i "mode flags") " ]" (br)
-
-    (hr)
-    (center (b "Modes")) (br) (br)
-
-    (p (b "html") " reads calendar files from disk, and writes them to static HTML files.")
-
-    (p (b "terminal") " loads the calendars, and startrs an interactive terminal interface.")
-
-    "[UNTESTED]" (br)
-    (p (b "import") "s an calendar object into the database.")
-
-    (p (b "text") " formats and justifies what it's given on standard input, "
-       "and writes it to standard output. Similar to this text.")
-
-    (p (b "ical") " loads the calendar database, and imideately "
-       "reserializes it back into ICAL format. "
-       "Useful for merging calendars.")
-
-    (p (b "benchmark") " " (i "module") (br)
-       "Runs the procedure 'run-benchmark' from the module (calp benchmark " (i "module") ").")
-
-    (p (b "server") " starts an HTTP server which dynamicly loads and displays event. The "
-       (i "/month/{date}.html") " & " (i "/week/{date}.html") " runs the same output code as "
-       (b "html") ". While the " (i "/calendar/{uid}.ics") " uses the same code as " (b "ical") ".")
-
-    (hr) (br)
-    (center (b "Flags")) (br)))
+  (xml->sxml
+   (string-append
+    "<group><br/>
+<center><b>" "Calp" "</b></center>
+<br/><br/>
+" (_ "Usage: <b>calp</b> [ <i>flags</i> ] <i>mode</i> [ <i>mode flags</i> ]") "<br/>
+<hr/>"
+;; Header for following list of modes of operation
+    "<center><b>" (_ "Modes") "</b></center>
+<br/><br/>"
+    (_ "<p><b>html</b> reads calendar files from disk, and writes them to static HTML files.</p>")
+    (_ "<p><b>terminal</b> loads the calendars, and starts an interactive terminal interface.</p>")
+    (_ "[UNTESTED]<br/><p><b>import</b>s a calendar object into the database.</p>")
+    (_ "<p><b>text</b> formats and justifies what it's given on standard input,
+and writes it to standard output. Similar to this text.</p>")
+    (_ "<p><b>ical</b> loads the calendar database, and immediately
+re-serializes it back into iCAL format. Useful for merging calendars.</p>")
+    (_ "<p><b>benchmark</b> <i>module</i><br/>Runs the procedure 'run-benchmark'
+from the module (calp benchmark <i>module</i>).</p>")
+    (_ "<p><b>server</b> starts an HTTP server which dynamically loads and
+displays events. The <i>/month/{date}.html</i> &amp; <i>/week/{date}.html</i> runs
+the same output code as <b>html</b>. While the <i>/calendar/{uid}.ics</i> uses
+the same code as <b>ical</b>.</p>")
+    "<hr/><br/>"
+    ;; Header for list of available flags.
+    ;; Actual list is auto generated elsewhere.
+    "<center><b>" (_ "Flags") "</b></center>
+<br/></group>")))
 
 (define (ornull a b)
   (if (null? a)
@@ -121,7 +120,7 @@
            (if (file-exists? altconfig)
                altconfig
                (throw 'option-error
-                      "Configuration file ~a missing" altconfig))]
+                      (_ "Configuration file ~a missing") altconfig))]
          ;; altconfig could be placed in the list below. But I want to raise an error
          ;; if an explicitly given config is missing.
          [(find file-exists?
@@ -166,7 +165,10 @@
        ))
     (lambda args
       (format (current-error-port)
-              "Failed loading config file ~a~%~s~%"
+              ;; Two arguments:
+              ;; Configuration file path,
+              ;; thrown error arguments
+              (_ "Failed loading config file ~a~%~s~%")
               config-file
               args
               )))
@@ -207,13 +209,13 @@
          (throw 'return))
 
   (when (option-ref opts 'version #f)
-    (format #t "Calp version ~a~%" (@ (calp) version))
+    (format #t (_ "Calp version ~a~%") (@ (calp) version))
     (throw 'return))
 
   (when (option-ref opts 'update-zoneinfo #f)
     (let* ((locations (list "/usr/libexec/calp/tzget" (path-append (xdg-data-home) "tzget")))
            (filename (or (find file-exists? locations)
-                         (error "tzget not installed, please put it in one of ~a" locations)))
+                         (error (_ "tzget not installed, please put it in one of ~a") locations)))
            (pipe (open-input-pipe filename)))
 
       ;; (define path (read-line pipe))
@@ -245,7 +247,7 @@
        ((benchmark) (@ (calp entry-points benchmark) main))
        (else => (lambda (s)
                   (format (current-error-port)
-                          "Unsupported mode of operation: ~a~%"
+                          (_ "Unsupported mode of operation: ~a~%")
                           s)
                   (exit 1))))
      ropt))
@@ -260,7 +262,7 @@
 
 
 (define-public (main args)
-  ((@ (calp util time) report-time!) "Program start")
+  ((@ (calp util time) report-time!) (_ "Program start"))
   (with-throw-handler #t
     (lambda ()
       (dynamic-wind (lambda () 'noop)
diff --git a/module/calp/repl.scm b/module/calp/repl.scm
index e25c2649..9b2df13f 100644
--- a/module/calp/repl.scm
+++ b/module/calp/repl.scm
@@ -7,12 +7,13 @@
   :use-module (ice-9 regex)
   :use-module ((calp util hooks) :select (shutdown-hook))
   :use-module ((hnh util exceptions) :select (warning))
+  :use-module (calp translation)
   )
 
 (define-public (repl-start address)
   (define lst (string->list address))
   (format (current-error-port)
-          "Starting REPL server at ~a~%" address)
+          (_ "Starting REPL server at ~a~%") address)
   (spawn-server
    (case (cond [(memv (car lst) '(#\. #\/)) 'UNIX]
                [(string-match "(\\d{1,3}\\.){3}\\d{1,3}(:\\d+)?" address) 'IPv4]
@@ -22,16 +23,16 @@
      [(UNIX)
       (add-hook! shutdown-hook (lambda () (catch 'system-error (lambda () (delete-file address))
                                        (lambda (err proc fmt . args)
-                                         (warning "Failed to unlink ~a" address args)
+                                         (warning (_ "Failed to unlink ~a") address args)
                                          err))))
       (make-unix-domain-server-socket path: address)]
      [(IPv4) (apply (case-lambda
-                      [() (error "Empty address?")]
+                      [() (error (_ "Empty address?"))]
                       [(address)      (make-tcp-server-socket host: address)]
                       [(address port) (make-tcp-server-socket host: address port: port)])
                     (string-split address #\:))]
      ;; currently impossible
-     [(IPv6) (error "How did you get here?")]))
+     [(IPv6) (error (_ "How did you get here?"))]))
 
   ;; TODO setup repl environment here
 
diff --git a/module/calp/server/routes.scm b/module/calp/server/routes.scm
index 87af983a..2f3544ee 100644
--- a/module/calp/server/routes.scm
+++ b/module/calp/server/routes.scm
@@ -35,6 +35,7 @@
   :use-module (calp html view calendar)
   :use-module ((calp html view search) :select (search-result-page))
 
+  :use-module (calp translation)
 
   )
 
@@ -49,7 +50,9 @@
 (define (directory-table dir)
   `(table
     (thead
-     (tr (th "") (th "Name") (th "Perm")))
+     (tr (th "") (th ,(_ "Name"))
+         ;; File permissions, should be about as long as three digits
+         (th ,(_ "Perm"))))
     (tbody
      ,@(map (lambda (k)
               (let* ((stat (lstat (path-append dir k))))
@@ -63,7 +66,7 @@
                      (scm-error
                       'misc-error
                       "directory-table"
-                      "Scandir argument invalid or not directory: ~a"
+                      (_ "Scandir argument invalid or not directory: ~a")
                       (list dir) '())))))))
 
 
@@ -97,7 +100,7 @@
    (GET "/" ()
         (return '((content-type text/html))
                 (sxml->html-string
-                 '(body (a (@ (href "/today")) "Gå till idag")
+                 '(body (a (@ (href "/today")) ,(_ "Go to Today"))
                         (script "window.onload = function() {
   document.getElementsByTagName('a')[0].click();}")))))
 
@@ -150,7 +153,7 @@
    (POST "/remove" (uid)
          (unless uid
            (return (build-response code: 400)
-                   "uid required"))
+                   (_ "uid required")))
 
          (aif (get-event-by-uid global-event-object uid)
               (begin
@@ -162,10 +165,10 @@
                 (set! (param (prop* it 'X-HNH-REMOVED) 'VALUE) "BOOLEAN")
                 (unless ((@ (vcomponent formats vdir save-delete) save-event) it)
                   (return (build-response code: 500)
-                          "Saving event to disk failed."))
+                          (_ "Saving event to disk failed.")))
                 (return (build-response code: 204)))
               (return (build-response code: 400)
-                      (format #f "No event with UID '~a'" uid))))
+                      (format #f (_ "No event with UID '~a'") uid))))
 
    ;; TODO this fails when dtstart is <date>.
    ;; @var{cal} should be the name of the calendar encoded in base64.
@@ -173,7 +176,7 @@
 
          (unless (and cal data)
            (return (build-response code: 400)
-                   "Both 'cal' and 'data' required\r\n"))
+                   (string-append (_ "Both 'cal' and 'data' required") "\r\n")))
 
 
          ;; NOTE that this leaks which calendar exists,
@@ -186,7 +189,8 @@
 
            (unless calendar
              (return (build-response code: 400)
-                     (format #f "No calendar with name [~a]\r\n" calendar-name)))
+                     (format #f "~@?\r\n" (_ "No calendar with name [~a]")
+                             calendar-name)))
 
            ;; Expected form of data (but in XML) is:
            ;; @example
@@ -215,11 +219,13 @@
                          #f))
                       (lambda (err port . args)
                         (return (build-response code: 400)
-                                (format #f "XML parse error ~{~a~}\r\n" args)))))))
+                                (format #f "~a ~{~a~}\r\n"
+                                        (_ "XML parse error")
+                                        args)))))))
 
              (unless (eq? 'VEVENT (type event))
                (return (build-response code: 400)
-                       "Object not a VEVENT\r\n"))
+                       (string-append (_ "Object not a VEVENT") "\r\n")))
 
              ;; NOTE add-event uses the given UID if one is given,
              ;; but generates its own if not. It might be a good idea
@@ -255,13 +261,14 @@
                     ;; since the two events are guaranteed to have the same UID.
                     (unless ((@ (vcomponent formats vdir save-delete) save-event) event)
                       (return (build-response code: 500)
-                              "Saving event to disk failed."))
+                              (_ "Saving event to disk failed.")))
 
 
                     (unless (eq? calendar (parent old-event))
                         ;; change to a new calendar
                         (format (current-error-port)
-                                "Unlinking old event from ~a~%"
+                                ;; unlinks (removes) a single event, argument is a file name
+                                (_ "Unlinking old event from ~a~%")
                                 (prop old-event '-X-HNH-FILENAME))
                         ;; NOTE that this may fail, leading to a duplicate event being
                         ;; created (since we save beforehand). This is just a minor problem
@@ -271,7 +278,7 @@
 
 
                     (format (current-error-port)
-                            "Event updated ~a~%" (prop event 'UID)))]
+                            (_ "Event updated ~a~%") (prop event 'UID)))]
 
               [else
                (parameterize ((warnings-are-errors #t))
@@ -287,10 +294,10 @@
                ;; That would allow better asyncronous preformance.
                (unless ((@ (vcomponent formats vdir save-delete) save-event) event)
                  (return (build-response code: 500)
-                         "Saving event to disk failed."))
+                         (_ "Saving event to disk failed.")))
 
                (format (current-error-port)
-                       "Event inserted ~a~%" (prop event 'UID))])
+                       (_ "Event inserted ~a~%") (prop event 'UID))])
 
              (return '((content-type application/xml))
                      (with-output-to-string
@@ -342,7 +349,7 @@
                        ;; and "program parent" into different fields.
                        (lambda () (sxml->xml ((@ (vcomponent formats xcal output) vcomponent->sxcal) it)))))
              (return (build-response code: 404)
-                     (format #f "No component with UID=~a found." uid))))
+                     (format #f (_ "No component with UID=~a found.") uid))))
 
    (GET "/calendar/:uid{.*}.ics" (uid)
         (aif (get-event-by-uid global-event-object uid)
@@ -351,7 +358,7 @@
                        (lambda () (print-components-with-fake-parent
                               (list it)))))
              (return (build-response code: 404)
-                     (format #f "No component with UID=~a found." uid))))
+                     (format #f (_ "No component with UID=~a found.") uid))))
 
    (GET "/search/text" (q)
         (return (build-response
diff --git a/module/calp/server/server.scm b/module/calp/server/server.scm
index fc185033..b9d5c6d3 100644
--- a/module/calp/server/server.scm
+++ b/module/calp/server/server.scm
@@ -1,4 +1,5 @@
 (define-module (calp server server)
+
   :use-module (hnh util)
   :use-module (web server)
   :use-module ((calp server routes) :select (make-make-routes))
diff --git a/module/calp/terminal.scm b/module/calp/terminal.scm
index cd1d0c9d..e982c468 100644
--- a/module/calp/terminal.scm
+++ b/module/calp/terminal.scm
@@ -26,6 +26,7 @@
 
   #:use-module (oop goops)
   #:use-module (oop goops describe)
+  #:use-module (calp translation)
 
   #:autoload (vcomponent util instance) (global-event-object)
 
@@ -71,7 +72,7 @@
        " │ "
        (if (prop ev 'LOCATION) "" "\x1b[1;30m")
        (trim-to-width
-        (or (prop ev 'LOCATION) "INGEN LOKAL") location-width)
+        (or (prop ev 'LOCATION) (_ "NO LOCATION")) location-width)
        STR-RESET
        "\n")))
    events
@@ -122,7 +123,7 @@
 
   (cls)
 
-  (display "== Day View ==\n")
+  (display (_ "== Day View ==\n"))
 
   (display-calendar-header! (current-page this))
 
@@ -135,22 +136,35 @@
   ;; display highlighted event
   (unless (null? events)
     (let ((ev (list-ref events (active-element this))))
-      (format #t "~a~%~%  ~a~%~%~a\x1b[1mStart:\x1b[m ~a	\x1b[1mSlut:\x1b[m ~a~%~%~a~%"
-              (prop ev '-X-HNH-FILENAME)
-              (prop ev 'SUMMARY)
-              (or (and=> (prop ev 'LOCATION)
-                         (cut string-append "\x1b[1mPlats:\x1b[m " <> "\n")) "")
-              ;; NOTE RFC 5545 says that DTSTART and DTEND MUST
-              ;; have the same type. However we believe that is
-              ;; another story.
+      (format #t "~a" (prop ev '-X-HNH-FILENAME))
+      (format #t "~%~%")
+      (format #t "  ~a" (prop ev 'SUMMARY))
+      (format #t "~%~%")
+      (awhen (prop ev 'LOCATION)
+             (format #t
+                     "\x1b[1m~a:\x1b[m ~a~%"
+                     (_ "Location")
+                     it))
+      ;; NOTE RFC 5545 says that DTSTART and DTEND MUST
+      ;; have the same type. However we believe that is
+      ;; another story.
+      (format #t "\x1b[1m~a:\x1b[m ~a	"
+              (_ "Start")
               (let ((start (prop ev 'DTSTART)))
                 (if (datetime? start)
-                    (datetime->string (prop ev 'DTSTART) "~Y-~m-~d ~H:~M:~S")
-                    (date->string start)))
-              (let ((end (prop ev 'DTEND)))
-                (if (datetime? end)
-                    (datetime->string (prop ev 'DTEND) "~Y-~m-~d ~H:~M:~S")
-                    (date->string end)))
+                    (datetime->string (prop ev 'DTSTART)
+                                      ;; Event start date-time terminal view
+                                      (_ "~Y-~m-~d ~H:~M:~S"))
+                    (date->string start))))
+      (format #t "\x1b[1m~a:\x1b[m ~a~%~%"
+              (_ "End")
+              (let ((start (prop ev 'DTSTART)))
+                (if (datetime? start)
+                    (datetime->string (prop ev 'DTSTART)
+                                      ;; Event end date-time terminal view
+                                      (_ "~Y-~m-~d ~H:~M:~S"))
+                    (date->string start))))
+      (format #t "~a~%"
               (unlines (take-to (flow-text (or (prop ev 'DESCRIPTION) "")
                                            #:width (min 70 width))
                                 (- height 8 5 (length events) 5)))))))
@@ -191,14 +205,14 @@
            (active-element this) 0))
 
     ((#\/) (set-cursor-pos 0 (1- height))
-     (let ((search-term (get-line "quick search: ")))
+     (let ((search-term (get-line (_ "quick search: "))))
        `(push ,(search-view
                 (format #f "(regexp-exec (make-regexp \"~a\" regexp/icase) (prop event 'SUMMARY))"
                         search-term)
                 (get-event-set this)))))
 
     ((#\() (set-cursor-pos 0 (1- height))
-     (let ((search-term (get-line "search: ")))
+     (let ((search-term (get-line (_ "search: "))))
        `(push ,(search-view search-term (get-event-set this)))))
 
     (else (next-method))))
@@ -244,7 +258,7 @@
 
   (cls)
 
-  (display "== Search View ==\n")
+  (display (_ "== Search View ==\n"))
 
   ;; display search term
   (format #t "~y" (search-term this))
@@ -300,7 +314,7 @@
                                                  'DTSTART)))))
     ((#\h left) (set! (current-page this) = ((lambda (old) (max 0 (1- old))))))
     ((#\l right)
-     (display "\n loading...\n")
+     (format #t "~% ~a~%" (_ "loading..."))
      (set! (current-page this)
        (next-page (slot-ref this 'search-result)
                   (current-page this))))
diff --git a/module/calp/translation.scm b/module/calp/translation.scm
new file mode 100644
index 00000000..c0392d95
--- /dev/null
+++ b/module/calp/translation.scm
@@ -0,0 +1,20 @@
+(define-module (calp translation)
+  :use-module (ice-9 i18n)
+  :use-module (ice-9 regex)
+  :use-module (ice-9 match)
+  :export (_ yes-no-check))
+
+(bindtextdomain "calp" "/home/hugo/code/calp/localization/")
+
+(define (_ . msg)
+  ;; NOTE this doesn't squeese repeated whitespace
+  (string-map (match-lambda
+                (#\newline #\space)
+                (c c))
+              (gettext (string-join msg) "calp")))
+
+(define* (yes-no-check string #:optional (locale %global-locale))
+  (cond ((string-match (locale-yes-regexp locale) string) 'yes)
+        ((string-match (locale-no-regexp  locale) string) 'no)
+        (else #f)))
+
diff --git a/module/calp/util/config.scm b/module/calp/util/config.scm
index 2fe2b9b0..2637cd85 100644
--- a/module/calp/util/config.scm
+++ b/module/calp/util/config.scm
@@ -9,6 +9,7 @@
   :use-module (srfi srfi-1)
   :use-module (ice-9 format) ; for format-procedure
   :use-module (ice-9 curried-definitions) ; for ensure
+  :use-module (calp translation)
   :export (define-config)
 )
 
@@ -38,7 +39,7 @@
 (define (define-config% name default-value kwargs)
   (for (key value) in (group kwargs 2)
        (set! ((or (hashq-ref config-properties key)
-                  (error "Missing config protperty slot " key))
+                  (error (_ "Missing config protperty slot ") key))
               name)
          value))
   (set-config! name (get-config name default-value)))
@@ -53,7 +54,7 @@
 (define-public (set-config! name value)
   (hashq-set! config-values name
               (aif (pre name)
-                   (or (it value) (error "Pre crashed for" name))
+                   (or (it value) (error (_ "Pre crashed for") name))
                    value))
 
   (awhen (post name) (it value)))
@@ -64,7 +65,7 @@
   (if (eq? default %uniq)
       (let ((v (hashq-ref config-values key %uniq)))
         (when (eq? v %uniq)
-          (error "Missing config" key))
+          (error (_ "Missing config") key))
         v)
       (hashq-ref config-values key default)))
 
@@ -112,7 +113,7 @@
               (hash-map->list list config-values)))
 
   `(*TOP*
-    (header "Configuration variables")
+    (header ,(_ "Configuration variables"))
     (dl
      ,@(concatenate
         (for (module values) in groups
@@ -124,7 +125,8 @@
                        `((dt ,key)
                          (dd (p (@ (inline))
                                 ,(or (description key) "")))
-                         (dt "V:")
+                         ;; Configuration variable value indicator
+                         (dt ,(_ "V:"))
                          (dd ,(if (procedure? value)
                                   (format-procedure value)
                                   `(scheme ,value))
diff --git a/module/calp/util/exceptions.scm b/module/calp/util/exceptions.scm
index 1268f9f5..0588840e 100644
--- a/module/calp/util/exceptions.scm
+++ b/module/calp/util/exceptions.scm
@@ -1,7 +1,8 @@
 (define-module (calp util exceptions)
   :use-module (calp util config)
+  :use-module (calp translation)
   :use-module (hnh util exceptions))
 
 (define-config warnings-are-errors #f
-  description: "Crash on warnings."
+  description: (_ "Crash on warnings.")
   post: warnings-are-errors)
diff --git a/module/datetime/instance.scm b/module/datetime/instance.scm
index 5ce312f2..2b060204 100644
--- a/module/datetime/instance.scm
+++ b/module/datetime/instance.scm
@@ -5,10 +5,11 @@
   :use-module ((hnh util path) :select (path-append))
   :use-module (datetime zic)
   :use-module ((xdg basedir) :prefix xdg-)
+  :use-module (calp translation)
   :export (zoneinfo))
 
 (define-config tz-list '()
-  description: "List of default zoneinfo files to be parsed")
+  description: (_ "List of default zoneinfo files to be parsed"))
 
 ;; TODO see (vcomponent uil instance), this has a similar problem with early load
 ;; Takes a list of zoneinfo files relative
@@ -24,7 +25,7 @@
              (()
               (define tz-list (get-config 'tz-list))
               (if (null? tz-list)
-                (warning "Default zoneinfo only available when tz-dir and tz-list are configured")
+                (warning (_ "Default zoneinfo only available when tz-dir and tz-list are configured"))
                 (self tz-list)))
              ((file-list)
               (provide 'zoneinfo)
diff --git a/module/datetime/timespec.scm b/module/datetime/timespec.scm
index 712ff327..ea29a423 100644
--- a/module/datetime/timespec.scm
+++ b/module/datetime/timespec.scm
@@ -11,6 +11,7 @@
   :use-module (datetime)
   :use-module (srfi srfi-1)
   :use-module (srfi srfi-9 gnu)
+  :use-module (calp translation)
   )
 
 
@@ -33,7 +34,7 @@
 
 (define-public (timespec-add . specs)
   (unless (apply eqv? (map timespec-type specs))
-    (warning "Adding timespecs of differing types"))
+    (warning (_ "Adding timespecs of differing types")))
 
   (reduce (lambda (spec done)
             (cond
diff --git a/module/datetime/zic.scm b/module/datetime/zic.scm
index b07c2bfa..0362ec99 100644
--- a/module/datetime/zic.scm
+++ b/module/datetime/zic.scm
@@ -22,6 +22,7 @@
   :use-module (srfi srfi-9 gnu)
   :use-module ((vcomponent recurrence internal)
                :select (byday make-recur-rule bymonthday))
+  :use-module (calp translation)
   )
 
 
@@ -162,7 +163,7 @@
                           day:   (string->number day))
               time: (timespec-time timespec)
               tz: (case (timespec-type timespec)
-                    [(#\s) (warning "what even is \"Standard time\"‽") ""]
+                    [(#\s) (warning (_ "what even is \"Standard time\"‽")) ""]
                     [(#\w) #f]
                     ;; Since we might represent times before UTC existed
                     ;; this is a bit of a lie. But it should work.
@@ -258,8 +259,8 @@
                         ;; NOTE an earlier version of the code the parsers for those.
                         ;; They were removed since they were unused, uneeded, and was
                         ;; technical dept.
-                        (error "Invalid key ~a. Note that leap seconds and
-expries rules aren't yet implemented." type)]
+                        (error (_ "Invalid key ~a. Note that leap seconds and
+expries rules aren't yet implemented.") type)]
                        ))]))))))
 
 
@@ -295,7 +296,7 @@ expries rules aren't yet implemented." type)]
                          (target (link-target link))
                          (target-item (hash-ref zones target #f)))
                     (if (not target-item)
-                        (warning "Unresolved link, target missing ~a -> ~a" name target)
+                        (warning (_ "Unresolved link, target missing ~a -> ~a") name target)
                         (hash-set! zones name target-item))))
                 (car it)))
 
@@ -335,7 +336,7 @@ expries rules aren't yet implemented." type)]
                          (set (day d) base-day)))]))
      tz: (case (timespec-type (rule-at rule))
            ((#\w) #f)
-           ((#\s) (warning "what even is \"Standard time\"‽") #f)
+           ((#\s) (warning (_ "what even is \"Standard time\"‽")) #f)
            ((#\u #\g #\z) 'UTC))))
 
   (let ((timespec (rule-at rule)))
@@ -356,7 +357,7 @@ expries rules aren't yet implemented." type)]
                    until: (let ((to  (rule-to rule)))
                             (case to
                               ((maximum) #f)
-                              ((minimum) (error "Check your input"))
+                              ((minimum) (error (_ "Check your input")))
                               ((only)
                                (datetime
                                 date: (date year: (rule-from rule) month: 1 day: 1)))
@@ -380,7 +381,7 @@ expries rules aren't yet implemented." type)]
                ;; Sun>=8
                (let* (((<> wday base-day) (rule-on rule)))
                  (when (eq? '< <>)
-                   (warning "Counting backward for RRULES unsupported"))
+                   (warning (_ "Counting backward for RRULES unsupported")))
                  ;; NOTE this only realy works when base-day = 7n + 1, n ∈ N
                  ;; something like Sun>=5 is hard to fix, since we can only
                  ;; say which sunday in the month we want (first sunday,
@@ -398,7 +399,8 @@ expries rules aren't yet implemented." type)]
                              idx (+ idx 2))]
       [(#\z)
        ;; NOTE No zones seem to currently use %z formatting.
-       (warning "%z not yet implemented")
+       ;; '%z' is NOT a format string, but information about another format string.
+       (warning (_ "%z not yet implemented"))
        fmt-string]
 
-      [else (error "Invalid format char")])))
+      [else (error (_ "Invalid format char"))])))
diff --git a/module/vcomponent/datetime/output.scm b/module/vcomponent/datetime/output.scm
index fa662286..a0ab9941 100644
--- a/module/vcomponent/datetime/output.scm
+++ b/module/vcomponent/datetime/output.scm
@@ -5,6 +5,7 @@
   :use-module (datetime)
   :use-module (vcomponent base)
   :use-module (text util)
+  :use-module (calp translation)
   )
 
 (define-config summary-filter (lambda (_ a) a)
@@ -14,13 +15,14 @@
   pre: (ensure procedure?))
 
 ;; ev → sxml
+;; TODO translation
 (define-public (format-recurrence-rule ev)
-  `("Upprepas "
+  `(,(_ "Upprepas ")
     ,((@ (vcomponent recurrence display) format-recurrence-rule)
       (prop ev 'RRULE))
     ,@(awhen (prop* ev 'EXDATE)
              (list
-              ", undantaget "
+              (_ ", undantaget ")
               (add-enumeration-punctuation
                (map (lambda (d)
                       (if (date? d)
@@ -43,7 +45,10 @@
 (define-public (format-description ev str)
   (catch #t (lambda () ((get-config 'description-filter) ev str))
     (lambda (err . args)
-      (warning "~a on formatting description, ~s" err args)
+      ;; Warning message for failure to format description.
+      ;; First argument is name of warning/error,
+      ;; second is error arguments
+      (warning (_ "~a on formatting description, ~s") err args)
       str)))
 
 ;; Takes an event, and returns a pretty string for the time interval
diff --git a/module/vcomponent/formats/common/types.scm b/module/vcomponent/formats/common/types.scm
index efe17f36..9768cf70 100644
--- a/module/vcomponent/formats/common/types.scm
+++ b/module/vcomponent/formats/common/types.scm
@@ -5,13 +5,14 @@
   :use-module (datetime)
   :use-module (srfi srfi-9 gnu)
   :use-module (datetime timespec)
+  :use-module (calp translation)
   )
 
 ;; BINARY
 (define (parse-binary props value)
   ;; p 30
   (unless (string=? "BASE64" (hashq-ref props 'ENCODING))
-    (warning "Binary field not marked ENCODING=BASE64"))
+    (warning (_ "Binary field not marked ENCODING=BASE64")))
 
   ;; For icalendar no extra whitespace is allowed in a
   ;; binary field (except for line wrapping). This differs
@@ -23,7 +24,7 @@
   (cond
    [(string=? "TRUE" value) #t]
    [(string=? "FALSE" value) #f]
-   [else (warning "~a invalid boolean" value)]))
+   [else (warning (_ "~a invalid boolean") value)]))
 
 ;; CAL-ADDRESS ⇒ uri
 
@@ -56,7 +57,7 @@
 (define (parse-integer props value)
   (let ((n (string->number value)))
     (unless (integer? n)
-      (warning "Non integer as integer"))
+      (warning (_ "Non integer as integer")))
     n))
 
 ;; PERIOD
@@ -87,7 +88,7 @@
            (case (cadr rem)
              [(#\n #\N) (loop (cddr rem) (cons #\newline str) done)]
              [(#\; #\, #\\) => (lambda (c) (loop (cddr rem) (cons c str) done))]
-             [else => (lambda (c) (warning "Non-escapable character: ~a" c)
+             [else => (lambda (c) (warning (_ "Non-escapable character: ~a") c)
                          (loop (cddr rem) str done))])]
           [(#\,)
            (loop (cdr rem) '() (cons (reverse-list->string str) done))]
@@ -136,4 +137,4 @@
 
 (define-public (get-parser type)
   (or (hashq-ref type-parsers type #f)
-      (error "No parser for type" type)))
+      (error (_ "No parser for type") type)))
diff --git a/module/vcomponent/formats/ical/output.scm b/module/vcomponent/formats/ical/output.scm
index fba8bffc..489cdc00 100644
--- a/module/vcomponent/formats/ical/output.scm
+++ b/module/vcomponent/formats/ical/output.scm
@@ -15,6 +15,7 @@
   :use-module (vcomponent geo)
   :use-module (vcomponent formats ical types)
   :use-module (vcomponent recurrence)
+  :use-module (calp translation)
   :autoload (vcomponent util instance) (global-event-object)
   )
 
@@ -90,7 +91,7 @@
       (get-writer 'TEXT)]
 
      [else
-      (warning "Unknown key ~a" key)
+      (warning (_ "Unknown key ~a") key)
       (get-writer 'TEXT)]))
 
   (catch #t #; 'wrong-type-arg
diff --git a/module/vcomponent/formats/ical/parse.scm b/module/vcomponent/formats/ical/parse.scm
index 34812a2c..8b6cffeb 100644
--- a/module/vcomponent/formats/ical/parse.scm
+++ b/module/vcomponent/formats/ical/parse.scm
@@ -9,6 +9,7 @@
   :use-module (vcomponent base)
   :use-module (vcomponent geo)
   :use-module (vcomponent formats common types)
+  :use-module (calp translation)
  )
 
 (define string->symbol
@@ -120,7 +121,7 @@
     (lambda (params value)
       (let ((vv (parser params value)))
         (when (list? vv)
-          (throw 'parse-error "List in enum field"))
+          (throw 'parse-error (_ "List in enum field")))
         (let ((v (string->symbol vv)))
           (unless (memv v enum)
             (warning "~a ∉ { ~{~a~^, ~} }"
@@ -155,7 +156,7 @@
            (lambda (params value)
              (let ((v ((get-parser 'TEXT) params value)))
                (unless (= 1 (length v))
-                 (warning "List in non-list field: ~s" v))
+                 (warning (_ "List in non-list field: ~s") v))
                (string-join v ",")))]
 
           ;; TEXT, but allow a list
@@ -192,7 +193,7 @@
                           DRAFT FINAL CANCELED))]
 
           [(memv key '(REQUEST-STATUS))
-           (throw 'parse-error "TODO Implement REQUEST-STATUS")]
+           (throw 'parse-error (_ "TODO Implement REQUEST-STATUS"))]
 
           [(memv key '(ACTION))
            (enum-parser '(AUDIO DISPLAY EMAIL
@@ -226,7 +227,7 @@
            (compose car (get-parser 'TEXT))]
 
           [else
-           (warning "Unknown key ~a" key)
+           (warning (_ "Unknown key ~a") key)
            (compose car (get-parser 'TEXT))])))
 
     ;; If we produced a list create multiple VLINES from it.
@@ -273,9 +274,15 @@
                    (lambda (fmt . args)
                      (let ((linedata (get-metadata head*)))
                        (format
-                        #f "WARNING parse error around ~a
+                        #f
+                        ;; arguments:
+                        ;; linedata
+                        ;; ~?
+                        ;; source line
+                        ;; source file
+                        (_ "WARNING parse error around ~a
   ~?
-  line ~a ~a~%"
+  line ~a ~a~%")
                         (get-string linedata)
                         fmt args
                         (get-line linedata)
@@ -321,10 +328,16 @@
             (lambda (err fmt . args)
               (let ((linedata (get-metadata head*)))
                 (display (format
-                          #f "ERROR parse error around ~a
+                          #f
+                          ;; arguments
+                          ;; linedata
+                          ;; ~?
+                          ;; source line
+                          ;; source file
+                          (_ "ERROR parse error around ~a
   ~?
   line ~a ~a
-  Defaulting to string~%"
+  Defaulting to string~%")
                           (get-string linedata)
                           fmt args
                           (get-line linedata)
diff --git a/module/vcomponent/formats/ical/types.scm b/module/vcomponent/formats/ical/types.scm
index 39b3b1e3..67f9f633 100644
--- a/module/vcomponent/formats/ical/types.scm
+++ b/module/vcomponent/formats/ical/types.scm
@@ -4,7 +4,9 @@
   :use-module (hnh util exceptions)
   :use-module (base64)
   :use-module (datetime)
-  :use-module (datetime timespec))
+  :use-module (datetime timespec)
+  :use-module (calp translation)
+  )
 
 ;; TODO shouldn't these really take vline:s?
 
@@ -35,7 +37,7 @@
 
 ;; TODO
 (define (write-period _ value)
-  (warning "PERIOD writer not yet implemented")
+  (warning (_ "PERIOD writer not yet implemented"))
   (with-output-to-string
     (lambda () (write value))))
 
@@ -92,4 +94,4 @@
 
 (define-public (get-writer type)
   (or (hashq-ref type-writers type #f)
-      (error "No writer for type" type)))
+      (error (_ "No writer for type") type)))
diff --git a/module/vcomponent/formats/vdir/parse.scm b/module/vcomponent/formats/vdir/parse.scm
index c4a48889..4fc96e71 100644
--- a/module/vcomponent/formats/vdir/parse.scm
+++ b/module/vcomponent/formats/vdir/parse.scm
@@ -15,6 +15,7 @@
   :use-module ((hnh util path) :select (path-append))
   :use-module (hnh util exceptions)
   :use-module (vcomponent base)
+  :use-module (calp translation)
 
   :use-module (vcomponent formats ical parse)
   )
@@ -58,7 +59,7 @@
               ;; by RECURRENCE-ID. As far as I can tell this goes against
               ;; the standard. Section 3.8.4.4.
               (case (length events)
-                [(0) (warning "No events in component~%~a"
+                [(0) (warning (_ "No events in component~%~a")
                               (prop item '-X-HNH-FILENAME))]
                 [(1)
                  (let ((child (car events)))
diff --git a/module/vcomponent/formats/xcal/output.scm b/module/vcomponent/formats/xcal/output.scm
index 81fab41c..26018d92 100644
--- a/module/vcomponent/formats/xcal/output.scm
+++ b/module/vcomponent/formats/xcal/output.scm
@@ -7,6 +7,7 @@
   :use-module (ice-9 match)
   :use-module (datetime)
   :use-module (srfi srfi-1)
+  :use-module (calp translation)
   )
 
 
@@ -69,7 +70,7 @@
      (get-writer 'TEXT)]
 
     [else
-     (warning "Unknown key ~a" key)
+     (warning (_ "Unknown key ~a") key)
      (get-writer 'TEXT)]))
 
   (writer ((@@ (vcomponent base) get-vline-parameters) vline) (value vline)))
diff --git a/module/vcomponent/formats/xcal/parse.scm b/module/vcomponent/formats/xcal/parse.scm
index 7dee8d67..66bb8460 100644
--- a/module/vcomponent/formats/xcal/parse.scm
+++ b/module/vcomponent/formats/xcal/parse.scm
@@ -9,6 +9,7 @@
   :use-module (vcomponent formats common types)
   :use-module (datetime)
   :use-module (srfi srfi-1)
+  :use-module (calp translation)
   )
 
 ;; symbol, ht, (list a) -> non-list
@@ -83,7 +84,7 @@
                  (string->number value))
                 (else (throw
                        'key-error
-                       "Invalid type ~a, with value ~a"
+                       (_ "Invalid type ~a, with value ~a")
                        type value))))))
 
        ;; freq until count interval wkst
@@ -153,7 +154,7 @@
   (case tag-name
     [(request-status)
      ;; TODO
-     (warning "Request status not yet implemented")
+     (warning (_ "Request status not yet implemented"))
      #f]
 
     ((transp) (parse-enum
diff --git a/module/vcomponent/formats/xcal/types.scm b/module/vcomponent/formats/xcal/types.scm
index 05fbc8c6..8f13d3d1 100644
--- a/module/vcomponent/formats/xcal/types.scm
+++ b/module/vcomponent/formats/xcal/types.scm
@@ -2,6 +2,7 @@
   :use-module (hnh util)
   :use-module (vcomponent formats ical types)
   :use-module (datetime)
+  :use-module (calp translation)
   )
 
 (define (write-boolean _ v)
@@ -51,4 +52,4 @@
 
 (define-public (get-writer type)
   (or (hashq-ref sxml-writers type #f)
-      (error "No writer for type" type)))
+      (error (_ "No writer for type") type)))
diff --git a/module/vcomponent/util/instance.scm b/module/vcomponent/util/instance.scm
index 6e1e765f..d17b672a 100644
--- a/module/vcomponent/util/instance.scm
+++ b/module/vcomponent/util/instance.scm
@@ -2,6 +2,7 @@
   :use-module (hnh util)
   :use-module ((calp util config) :select (get-config))
   :use-module ((oop goops) :select (make))
+  :use-module (calp translation)
   :export (global-event-object)
 )
 
@@ -18,5 +19,5 @@
 (define-public (reload)
   (let ((new-value (make (@@ (vcomponent util instance methods) <events>)
                      calendar-files: (get-config 'calendar-files))))
-    (display "Reload done\n" (current-error-port))
+    (format (current-error-port) (_ "Reload done~%"))
     (set! global-event-object new-value)))
diff --git a/module/vcomponent/util/instance/methods.scm b/module/vcomponent/util/instance/methods.scm
index 120ab2fe..e2e8a777 100644
--- a/module/vcomponent/util/instance/methods.scm
+++ b/module/vcomponent/util/instance/methods.scm
@@ -11,6 +11,8 @@
   :use-module ((vcomponent datetime) :select (ev-time<?))
   :use-module (oop goops)
 
+  :use-module (calp translation)
+
   :export (add-event
            remove-event
 
@@ -50,7 +52,7 @@
 (define-method (initialize (this <events>) args)
   (next-method)
 
-  (format (current-error-port) "Building <events> from~%")
+  (format (current-error-port) (_ "Building <events> from~%"))
   (for calendar in (slot-ref this 'calendar-files)
        (format (current-error-port) "  - ~a~%" calendar))
 
diff --git a/module/vcomponent/util/parse-cal-path.scm b/module/vcomponent/util/parse-cal-path.scm
index 11a32064..7a5fea29 100644
--- a/module/vcomponent/util/parse-cal-path.scm
+++ b/module/vcomponent/util/parse-cal-path.scm
@@ -2,6 +2,7 @@
   :use-module (hnh util)
   :use-module ((calp util time) :select (report-time!))
   :use-module (vcomponent base)
+  :use-module (calp translation)
   :use-module ((vcomponent formats ical parse)
                :select (parse-calendar))
   :use-module ((vcomponent formats vdir parse)
@@ -19,13 +20,13 @@
          (set! (prop comp '-X-HNH-SOURCETYPE) 'file)
          comp) ]
       [(directory)
-       (report-time! "Parsing ~a" path)
+       (report-time! (_ "Parsing ~a") path)
        (let ((comp (parse-vdir path)))
          (set! (prop comp '-X-HNH-SOURCETYPE) 'vdir
                (prop comp '-X-HNH-DIRECTORY) path)
          comp)]
       [(block-special char-special fifo socket unknown symlink)
-       => (lambda (t) (error "Can't parse file of type " t))]))
+       => (lambda (t) (error (_ "Can't parse file of type ") t))]))
 
   (unless (prop cal "NAME")
     (set! (prop cal "NAME")