aboutsummaryrefslogtreecommitdiff
path: root/module/vcomponent/recurrence
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2022-06-23 04:14:46 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2022-06-23 04:14:46 +0200
commit2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd (patch)
treec48c312e1d44306039fc00cfe4b5cd611d7f9a3b /module/vcomponent/recurrence
parentRemove procedure tabset. (diff)
downloadcalp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.gz
calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.xz
Normalize keyword syntax.
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))