diff options
Diffstat (limited to 'module/vcomponent/recurrence/display')
| -rw-r--r-- | module/vcomponent/recurrence/display/en.scm | 5 | ||||
| -rw-r--r-- | module/vcomponent/recurrence/display/sv.scm | 5 |
2 files changed, 6 insertions, 4 deletions
diff --git a/module/vcomponent/recurrence/display/en.scm b/module/vcomponent/recurrence/display/en.scm index 68d435af..c711a75c 100644 --- a/module/vcomponent/recurrence/display/en.scm +++ b/module/vcomponent/recurrence/display/en.scm @@ -6,7 +6,8 @@ :use-module (vcomponent recurrence display common) :use-module ((datetime) :select (time time->string datetime->string - week-day-name))) + week-day-name)) + :export (format-recurrence-rule)) @@ -41,7 +42,7 @@ (map number->string-ordinal lst)))) -(define-public (format-recurrence-rule rrule) +(define (format-recurrence-rule rrule) (string-trim (string-flatten (list diff --git a/module/vcomponent/recurrence/display/sv.scm b/module/vcomponent/recurrence/display/sv.scm index 35b3569b..2bd70657 100644 --- a/module/vcomponent/recurrence/display/sv.scm +++ b/module/vcomponent/recurrence/display/sv.scm @@ -13,7 +13,8 @@ :use-module (vcomponent recurrence display common) :use-module ((datetime) :select (time time->string datetime->string - week-day-name))) + week-day-name)) + :export (format-recurrence-rule)) ;; TODO this currently only groups on offsets, but not on days. ;; So 1MO, 1TU becomes "första måndagen och tisdagen", which is good @@ -49,7 +50,7 @@ (map number->string-ordinal lst) final-delim))) -(define-public (format-recurrence-rule rrule) +(define (format-recurrence-rule rrule) (string-trim (string-flatten (list |