diff options
Diffstat (limited to 'module/vcomponent/formats/vdir')
-rw-r--r-- | module/vcomponent/formats/vdir/parse.scm | 3 | ||||
-rw-r--r-- | module/vcomponent/formats/vdir/save-delete.scm | 6 |
2 files changed, 5 insertions, 4 deletions
diff --git a/module/vcomponent/formats/vdir/parse.scm b/module/vcomponent/formats/vdir/parse.scm index 272674ed..b21a5f2b 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) ) @@ -62,7 +63,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) (add-child! calendar (car events))] diff --git a/module/vcomponent/formats/vdir/save-delete.scm b/module/vcomponent/formats/vdir/save-delete.scm index 96354ce8..01d34f9f 100644 --- a/module/vcomponent/formats/vdir/save-delete.scm +++ b/module/vcomponent/formats/vdir/save-delete.scm @@ -24,13 +24,13 @@ (unless calendar (scm-error 'wrong-type-arg "save-event" - "Can only save events belonging to calendars, event uid = ~s" + (_ "Can only save events belonging to calendars, event uid = ~s") (list (prop event 'UID)) #f)) (unless (eq? 'vdir (prop calendar '-X-HNH-SOURCETYPE)) (scm-error 'wrong-type-arg "save-event" - "Can only save events belonging to vdir calendars. Calendar is of type ~s" + (_ "Can only save events belonging to vdir calendars. Calendar is of type ~s") (list (prop calendar '-X-HNH-SOURCETYPE)) #f)) @@ -50,7 +50,7 @@ (define calendar (parent event)) (unless (eq? 'vdir (prop calendar '-X-HNH-SOURCETYPE)) (scm-error 'wrong-type-arg "remove-event" - "Can only remove events belonging to vdir calendars. Calendar is of type ~s" + (_ "Can only remove events belonging to vdir calendars. Calendar is of type ~s") (list (prop calendar '-X-HNH-SOURCETYPE)) #f)) (delete-file (prop event '-X-HNH-FILENAME))) |