diff options
| -rw-r--r-- | module/calp/entry-points/tidsrapport.scm | 25 | ||||
| -rw-r--r-- | module/vcomponent/recurrence/internal.scm | 7 |
2 files changed, 15 insertions, 17 deletions
diff --git a/module/calp/entry-points/tidsrapport.scm b/module/calp/entry-points/tidsrapport.scm index a05c3b78..a50f0659 100644 --- a/module/calp/entry-points/tidsrapport.scm +++ b/module/calp/entry-points/tidsrapport.scm @@ -38,26 +38,23 @@ (define-module (calp entry-points tidsrapport) - :export (main) :use-module (hnh util) :use-module (hnh util options) :use-module (ice-9 getopt-long) :use-module (calp translation) :use-module (sxml simple) :use-module (datetime) - ) - -(use-modules (srfi srfi-41) - (srfi srfi-41 util) - (srfi srfi-1) - (vcomponent) - (datetime) - (vcomponent util instance) - (vcomponent util instance methods) - (hnh util) - (ice-9 regex) - (ice-9 popen) - ) + :use-module (srfi srfi-41) + :use-module (srfi srfi-41 util) + :use-module (srfi srfi-1) + :use-module (vcomponent) + :use-module (datetime) + :use-module (vcomponent util instance) + :use-module (vcomponent util instance methods) + :use-module (hnh util) + :use-module (ice-9 regex) + :use-module (ice-9 popen) + :export (main)) (define event-set diff --git a/module/vcomponent/recurrence/internal.scm b/module/vcomponent/recurrence/internal.scm index 0503081c..2e04dd64 100644 --- a/module/vcomponent/recurrence/internal.scm +++ b/module/vcomponent/recurrence/internal.scm @@ -1,15 +1,19 @@ (define-module (vcomponent recurrence internal) #:export (repeating? format-recur-rule make-recur-rule) + #: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) ) + ;; EXDATE is also a property linked to recurense rules ;; but that property alone don't create a recuring event. (define (repeating? ev) @@ -87,9 +91,6 @@ (week-day-name day 2 locale: (make-locale (list LC_TIME) "C")))))) -(use-modules (ice-9 i18n) - (datetime) - (srfi srfi-1)) (define (field->string field value) (case field |