From e071b96ec0d5cc00e1c9e562205d7d513947afa8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 23 May 2020 00:06:02 +0200 Subject: Made *prodid* global. --- module/output/ical.scm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'module/output/ical.scm') 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*) )) -- cgit v1.2.3