diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-02-22 11:19:19 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-02-22 21:08:41 +0100 |
| commit | 093ef72e6489d96fb6ffae8d58d7cb1cb7ff77ee (patch) | |
| tree | d164e37c20e562588700d86379cfda1b0ca3c596 /module/vcomponent/util/parse-cal-path.scm | |
| parent | Datetime restrict imports. (diff) | |
| download | calp-093ef72e6489d96fb6ffae8d58d7cb1cb7ff77ee.tar.gz calp-093ef72e6489d96fb6ffae8d58d7cb1cb7ff77ee.tar.xz | |
Prepare code for translation.
Diffstat (limited to 'module/vcomponent/util/parse-cal-path.scm')
| -rw-r--r-- | module/vcomponent/util/parse-cal-path.scm | 5 |
1 files changed, 3 insertions, 2 deletions
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") |