diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-23 00:06:02 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-23 12:59:19 +0200 |
commit | e071b96ec0d5cc00e1c9e562205d7d513947afa8 (patch) | |
tree | ff42037bfd2d040e7193e48fd86494943ee7c97a /module/output/ical.scm | |
parent | Cleanup in datetime. (diff) | |
download | calp-e071b96ec0d5cc00e1c9e562205d7d513947afa8.tar.gz calp-e071b96ec0d5cc00e1c9e562205d7d513947afa8.tar.xz |
Made *prodid* global.
Diffstat (limited to '')
-rw-r--r-- | module/output/ical.scm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/module/output/ical.scm b/module/output/ical.scm index 1c9ce187..2edde8c1 100644 --- a/module/output/ical.scm +++ b/module/output/ical.scm @@ -146,15 +146,12 @@ => (lambda (alts) (hash-map->list (lambda (_ comp) (component->ical-string comp)) alts))])) -;; TODO place these somewhere better -(define *prodid* "-//hugo//Calparse 0.9//EN") - ;; TODO tzid prop on dtstart vs tz field in datetime object ;; how do we keep these two in sync? (define (write-event-to-file event calendar-path) (define cal (make-vcomponent 'VCALENDAR)) - (set! (attr cal 'PRODID) *prodid* + (set! (attr cal 'PRODID) (@ (global) *prodid*) (attr cal 'VERSION) "2.0" (attr cal 'CALSCALE) "GREGORIAN") @@ -178,10 +175,10 @@ (define (print-header) (format #t "BEGIN:VCALENDAR\r -PRODID:-//hugo//Calparse 0.5//EN\r +PRODID:~a\r VERSION:2.0\r CALSCALE:GREGORIAN\r -" +" (@ (global) *prodid*) )) |