diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-07 22:12:29 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-07 22:12:29 +0200 |
| commit | e377df7b305514d721510fe1f15921647ebc7552 (patch) | |
| tree | 35dd17aaf5e29c44c0f13401b6cb86e4d7df5acd /module/vcomponent/util/parse-cal-path.scm | |
| parent | Rename filename-extension{ => ?}. (diff) | |
| parent | Fix translation for (vcomponent datetime output). (diff) | |
| download | calp-e377df7b305514d721510fe1f15921647ebc7552.tar.gz calp-e377df7b305514d721510fe1f15921647ebc7552.tar.xz | |
Merge branch '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 df3fbf75..4baa647e 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,14 +20,14 @@ (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) (scm-error 'misc-error "parse-cal-path" - "Can't parse file of type ~s" + (_ "Can't parse file of type ~s") (list t) #f))])) |