From 1976980d4a272fb7fc3694c734bfc6825edfc721 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 23 Jun 2022 03:23:44 +0200
Subject: Centralize (almost) all exports to :export in define-module.

---
 module/vcomponent/formats/ical/output.scm | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

(limited to 'module/vcomponent/formats/ical/output.scm')

diff --git a/module/vcomponent/formats/ical/output.scm b/module/vcomponent/formats/ical/output.scm
index 489cdc00..fbb9c862 100644
--- a/module/vcomponent/formats/ical/output.scm
+++ b/module/vcomponent/formats/ical/output.scm
@@ -17,7 +17,11 @@
   :use-module (vcomponent recurrence)
   :use-module (calp translation)
   :autoload (vcomponent util instance) (global-event-object)
-  )
+  :export (component->ical-string
+           print-components-with-fake-parent
+           print-all-events
+           print-events-in-interval
+           ))
 
 (define (prodid)
   (format #f "-//hugo//calp ~a//EN"
@@ -140,7 +144,7 @@
           (parameters vline)))
     ":" (value-format key vline))))
 
-(define-public (component->ical-string component)
+(define (component->ical-string component)
   (format #t "BEGIN:~a\r\n" (type component))
   (for-each
    ;; Special cases depending on key.
@@ -192,7 +196,7 @@ CALSCALE:GREGORIAN\r
    '("dummy" "local")))
 
 
-(define-public (print-components-with-fake-parent events)
+(define (print-components-with-fake-parent events)
 
   ;; The events are probably sorted before, but until I can guarantee
   ;; that we sort them again here. We need them sorted from earliest
@@ -216,7 +220,7 @@ CALSCALE:GREGORIAN\r
   (print-footer))
 
 
-(define-public (print-all-events)
+(define (print-all-events)
   (print-components-with-fake-parent
    (append (get-fixed-events global-event-object)
            ;; TODO RECCURENCE-ID exceptions
@@ -225,7 +229,7 @@ CALSCALE:GREGORIAN\r
            ;; the given date range.
            (get-repeating-events global-event-object))))
 
-(define-public (print-events-in-interval start end)
+(define (print-events-in-interval start end)
   (print-components-with-fake-parent
    (append (fixed-events-in-range start end)
            ;; TODO RECCURENCE-ID exceptions
-- 
cgit v1.2.3