diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-23 00:06:09 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-23 12:59:19 +0200 |
| commit | 6a27bd5e2fa51fd9507ab28b33d8738aaffa028d (patch) | |
| tree | c6b384cd4963e898ff138434e39b2111f1c0698c /module | |
| parent | Made *prodid* global. (diff) | |
| download | calp-6a27bd5e2fa51fd9507ab28b33d8738aaffa028d.tar.gz calp-6a27bd5e2fa51fd9507ab28b33d8738aaffa028d.tar.xz | |
Minor cleanup.
Diffstat (limited to 'module')
| -rw-r--r-- | module/output/html.scm | 4 | ||||
| -rw-r--r-- | module/output/ical.scm | 3 | ||||
| -rw-r--r-- | module/output/terminal.scm | 1 |
3 files changed, 2 insertions, 6 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index b011da15..a80b26e9 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -241,9 +241,6 @@ ev `((class ,(when (date<? (as-date (attr ev 'DTSTART)) date) " continued") - ;; TODO all day events usually have the day after as DTEND. - ;; So a whole day event the 6 june would have a DTEND of the - ;; 7 june. ,(when (date<? date (as-date (attr ev 'DTEND))) " continuing")) (style ,style)))) @@ -531,7 +528,6 @@ ;; We are before our time interval [(date< date start-date) ;; TODO find a prettier way to generate links to previous and next time intervals - ;; TODO also, it would do good with a bit of testing for off-by-one errors `((class "prev") (href ,(date->string (stream-find (lambda (d) (date<= d date (next-start d))) diff --git a/module/output/ical.scm b/module/output/ical.scm index 2edde8c1..d3f26d02 100644 --- a/module/output/ical.scm +++ b/module/output/ical.scm @@ -207,7 +207,8 @@ CALSCALE:GREGORIAN\r (let ((tz-names (get-tz-names events))) (for-each component->ical-string - ;; TODO we realy should send the earliest event from each timezone here. + ;; TODO we realy should send the earliest event from each timezone here, + ;; instead of just the first. (map (lambda (name) (zoneinfo->vtimezone (getf 'zoneinfo) name (car events))) tz-names))) diff --git a/module/output/terminal.scm b/module/output/terminal.scm index bb0377ea..691dcde8 100644 --- a/module/output/terminal.scm +++ b/module/output/terminal.scm @@ -19,7 +19,6 @@ #:use-module (vcomponent datetime) #:use-module (ice-9 format) - ;; #:use-module (parameters) #:export (main-loop)) |