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 | |
parent | Cleanup in datetime. (diff) | |
download | calp-e071b96ec0d5cc00e1c9e562205d7d513947afa8.tar.gz calp-e071b96ec0d5cc00e1c9e562205d7d513947afa8.tar.xz |
Made *prodid* global.
Diffstat (limited to 'module/output')
-rw-r--r-- | module/output/ical.scm | 9 | ||||
-rw-r--r-- | module/output/terminal.scm | 1 | ||||
-rw-r--r-- | module/output/text.scm | 1 |
3 files changed, 3 insertions, 8 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*) )) diff --git a/module/output/terminal.scm b/module/output/terminal.scm index 3c7c4ecd..bb0377ea 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -45,7 +45,6 @@ ((@ (texinfo string-utils) center-string) (date->string (attr ev 'DTSTART)) 19)) - ; TODO show truncated string " │ " (if (= i cur-event) "\x1b[7m" "") (color-escape (attr (parent ev) 'COLOR)) diff --git a/module/output/text.scm b/module/output/text.scm index 0716b00a..4697b70a 100644 --- a/module/output/text.scm +++ b/module/output/text.scm @@ -75,7 +75,6 @@ -;; TODO for some cases the final delim should be `or' instead of `and' ;; TODO more options for infix strings (define*-public (add-enumeration-punctuation list optional: (final-delim "&")) |