diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-20 21:43:29 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-20 21:43:29 +0200 |
| commit | 73cf8eeb8a90749df961a3a4d0e3940205474424 (patch) | |
| tree | 3a830651a0a22dd36ff4703a0bc15571c56c2116 | |
| parent | Improve print-vcomponent. (diff) | |
| download | calp-73cf8eeb8a90749df961a3a4d0e3940205474424.tar.gz calp-73cf8eeb8a90749df961a3a4d0e3940205474424.tar.xz | |
Remove remaining export's.
| -rw-r--r-- | module/vcalendar.scm | 4 | ||||
| -rw-r--r-- | module/vcalendar/recurrence/internal.scm | 7 |
2 files changed, 5 insertions, 6 deletions
diff --git a/module/vcalendar.scm b/module/vcalendar.scm index 433c0a19..829fdf3f 100644 --- a/module/vcalendar.scm +++ b/module/vcalendar.scm @@ -7,6 +7,7 @@ #:use-module (srfi srfi-19) #:use-module (srfi srfi-19 util) #:use-module (srfi srfi-26) + #:use-module ((ice-9 optargs) #:select (define*-public)) #:use-module (util) #:export (make-vcomponent) #:re-export (repeating?)) @@ -53,12 +54,11 @@ (filter (lambda (e) (eqv? t (type e))) lst)) -(define* (children component #:optional only-type) +(define*-public (children component #:optional only-type) (let ((childs (%vcomponent-children component))) (if only-type (type-filter only-type childs) childs))) -(export children) (define (get-attr component attr) (%vcomponent-get-attribute diff --git a/module/vcalendar/recurrence/internal.scm b/module/vcalendar/recurrence/internal.scm index caa6ccca..7a81b2db 100644 --- a/module/vcalendar/recurrence/internal.scm +++ b/module/vcalendar/recurrence/internal.scm @@ -1,5 +1,6 @@ (define-module (vcalendar recurrence internal) #:use-module (util) + #:use-module ((ice-9 optargs) #:select (define*-public)) #:use-module (srfi srfi-88) #:export (make-recur-rule weekdays intervals)) @@ -17,7 +18,7 @@ ;; TODO make this part of define-quick-record. ;; Only "hard" part would be to provide type hints for fields for ;; string conversions. -(define (format-recur-rule r) +(define-public (format-recur-rule r) (define (a f) ((record-accessor <recur-rule> f) r)) (with-output-to-string @@ -34,11 +35,9 @@ (a field))))) (record-type-fields <recur-rule>))))) -(define* (print-recur-rule r #:optional (port (current-output-port))) +(define*-public (print-recur-rule r #:optional (port (current-output-port))) (display (format-recur-rule r) port)) -(export format-recur-rule print-recur-rule) - (define weekdays '(SU MO TU WE TH FR SA)) |