diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-02 23:45:29 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-02 23:45:29 +0200 |
commit | f3825a583b218a02078d2f1adcf6d4db3e418996 (patch) | |
tree | 6703dda24d00bd724be405bda0019bd0c8eb9c29 /module/output | |
parent | Remove (util app). (diff) | |
download | calp-f3825a583b218a02078d2f1adcf6d4db3e418996.tar.gz calp-f3825a583b218a02078d2f1adcf6d4db3e418996.tar.xz |
Module cleanup.
Diffstat (limited to '')
-rw-r--r-- | module/output/html.scm | 6 | ||||
-rw-r--r-- | module/output/ical.scm | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 6b09bebb..d2addd5a 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -19,7 +19,7 @@ #:use-module (text util) #:use-module (vcomponent datetime output) - #:autoload (vcomponent instance) (get-calendars get-event-set global-event-object) + #:autoload (vcomponent instance) (#|get-calendars get-event-set|# global-event-object) #:use-module (git) ;; #:use-module (module config all) @@ -818,7 +818,7 @@ (unless (file-exists? link) (symlink "../static" link)))) -(define (html-chunked-main count start-date chunk-length) +(define-public (html-chunked-main count start-date chunk-length) (define calendars (get-calendars global-event-object)) (define events (get-event-set global-event-object)) @@ -853,7 +853,7 @@ -(define (html-table-main count start-date) +(define-public (html-table-main count start-date) (define calendars (get-calendars global-event-object)) (define events (get-event-set global-event-object)) diff --git a/module/output/ical.scm b/module/output/ical.scm index 9ab80ffb..94622e2f 100644 --- a/module/output/ical.scm +++ b/module/output/ical.scm @@ -221,7 +221,7 @@ CALSCALE:GREGORIAN\r (print-footer)) -(define (print-all-events) +(define-public (print-all-events) (print-components-with-fake-parent (append (get-fixed-events global-event-object) ;; TODO RECCURENCE-ID exceptions @@ -230,7 +230,7 @@ CALSCALE:GREGORIAN\r ;; the given date range. (get-repeating-events global-even-object)))) -(define (print-events-in-interval start end) +(define-public (print-events-in-interval start end) (print-components-with-fake-parent (append (fixed-events-in-range start end) ;; TODO RECCURENCE-ID exceptions |