diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
commit | 2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd (patch) | |
tree | c48c312e1d44306039fc00cfe4b5cd611d7f9a3b /module/vcomponent/recurrence | |
parent | Remove procedure tabset. (diff) | |
download | calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.gz calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.xz |
Normalize keyword syntax.
Diffstat (limited to 'module/vcomponent/recurrence')
-rw-r--r-- | module/vcomponent/recurrence/display.scm | 3 | ||||
-rw-r--r-- | module/vcomponent/recurrence/internal.scm | 20 | ||||
-rw-r--r-- | module/vcomponent/recurrence/parse.scm | 24 |
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)) |