aboutsummaryrefslogtreecommitdiff
path: root/module/vcomponent/recurrence
diff options
context:
space:
mode:
Diffstat (limited to 'module/vcomponent/recurrence')
-rw-r--r--module/vcomponent/recurrence/display.scm3
-rw-r--r--module/vcomponent/recurrence/internal.scm20
-rw-r--r--module/vcomponent/recurrence/parse.scm24
3 files changed, 24 insertions, 23 deletions
diff --git a/module/vcomponent/recurrence/display.scm b/module/vcomponent/recurrence/display.scm
index 8a9f33e6..8aa9f506 100644
--- a/module/vcomponent/recurrence/display.scm
+++ b/module/vcomponent/recurrence/display.scm
@@ -1,10 +1,11 @@
(define-module (vcomponent recurrence display)
:use-module (vcomponent recurrence display common)
:use-module (hnh util language)
+ :use-module (srfi srfi-88)
:re-export (rrule-month->string)
:export (format-recurrence-rule))
-(define* (format-recurrence-rule rrule #:optional (language (resolve-language)))
+(define* (format-recurrence-rule rrule optional: (language (resolve-language)))
((module-ref (resolve-interface `(vcomponent recurrence display ,language))
'format-recurrence-rule)
rrule))
diff --git a/module/vcomponent/recurrence/internal.scm b/module/vcomponent/recurrence/internal.scm
index 9cb6b115..94c4cccf 100644
--- a/module/vcomponent/recurrence/internal.scm
+++ b/module/vcomponent/recurrence/internal.scm
@@ -1,14 +1,14 @@
(define-module (vcomponent recurrence internal)
- #:use-module (srfi srfi-1)
- #:use-module (srfi srfi-71)
- #:use-module (srfi srfi-88) ; better keywords
- #:use-module ((vcomponent base) :select (prop))
- #:use-module (ice-9 i18n)
- #:use-module (srfi srfi-9)
- #:use-module (srfi srfi-9 gnu)
- #:use-module (ice-9 format)
- #:use-module (hnh util)
- #:use-module (datetime)
+ :use-module (srfi srfi-1)
+ :use-module (srfi srfi-71)
+ :use-module (srfi srfi-88) ; better keywords
+ :use-module ((vcomponent base) :select (prop))
+ :use-module (ice-9 i18n)
+ :use-module (srfi srfi-9)
+ :use-module (srfi srfi-9 gnu)
+ :use-module (ice-9 format)
+ :use-module (hnh util)
+ :use-module (datetime)
:replace (count)
:export (repeating?
diff --git a/module/vcomponent/recurrence/parse.scm b/module/vcomponent/recurrence/parse.scm
index 91209dc7..12b6a622 100644
--- a/module/vcomponent/recurrence/parse.scm
+++ b/module/vcomponent/recurrence/parse.scm
@@ -1,16 +1,16 @@
(define-module (vcomponent recurrence parse)
- #:duplicates (last) ; Replace @var{count}
-
- #:use-module (srfi srfi-1)
- #:use-module (srfi srfi-71)
- #:use-module (datetime)
- #:use-module (srfi srfi-26)
- #:use-module (vcomponent recurrence internal)
- #:use-module (hnh util)
- #:use-module (hnh util exceptions)
- #:use-module (ice-9 match)
-
- #:export (rfc->datetime-weekday
+ :duplicates (last) ; Replace @var{count}
+
+ :use-module (srfi srfi-1)
+ :use-module (srfi srfi-71)
+ :use-module (datetime)
+ :use-module (srfi srfi-26)
+ :use-module (vcomponent recurrence internal)
+ :use-module (hnh util)
+ :use-module (hnh util exceptions)
+ :use-module (ice-9 match)
+
+ :export (rfc->datetime-weekday
parse-recurrence-rule))