From 1976980d4a272fb7fc3694c734bfc6825edfc721 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 23 Jun 2022 03:23:44 +0200 Subject: Centralize (almost) all exports to :export in define-module. --- module/vcomponent/formats/vdir/parse.scm | 5 +++-- module/vcomponent/formats/vdir/save-delete.scm | 5 +++-- 2 files changed, 6 insertions(+), 4 deletions(-) (limited to 'module/vcomponent/formats/vdir') diff --git a/module/vcomponent/formats/vdir/parse.scm b/module/vcomponent/formats/vdir/parse.scm index b21a5f2b..46626402 100644 --- a/module/vcomponent/formats/vdir/parse.scm +++ b/module/vcomponent/formats/vdir/parse.scm @@ -18,7 +18,8 @@ :use-module (calp translation) :use-module (vcomponent formats ical parse) - ) + + :export (parse-vdir)) @@ -26,7 +27,7 @@ ;; All VTIMEZONE's seem to be in "local" time in relation to ;; themselves. Therefore, a simple comparison should work, ;; and then the TZOFFSETTO properties can be subtd. -(define-public (parse-vdir path) +(define (parse-vdir path) ;; TODO empty files here cause "#" to appear in the output XML, which is *really* bad. (let ((color (catch 'system-error diff --git a/module/vcomponent/formats/vdir/save-delete.scm b/module/vcomponent/formats/vdir/save-delete.scm index fb84d59c..ac520463 100644 --- a/module/vcomponent/formats/vdir/save-delete.scm +++ b/module/vcomponent/formats/vdir/save-delete.scm @@ -17,10 +17,11 @@ :use-module (vcomponent) :use-module (calp translation) :use-module ((hnh util io) :select (with-atomic-output-to-file)) + :export (save-event remove-event) ) -(define-public (save-event event) +(define (save-event event) (define calendar (parent event)) (unless calendar @@ -50,7 +51,7 @@ uid)) -(define-public (remove-event event) +(define (remove-event event) (define calendar (parent event)) (unless (eq? 'vdir (prop calendar '-X-HNH-SOURCETYPE)) (scm-error 'wrong-type-arg "remove-event" -- cgit v1.2.3