From f7211cbd0786fecd95cc6a0837f9192aba07cf49 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 7 Apr 2020 23:56:19 +0200
Subject: Show EXDATES in text format.

---
 module/output/html.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'module/output')

diff --git a/module/output/html.scm b/module/output/html.scm
index 371edba9..bd81e706 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -15,6 +15,7 @@
   #:use-module (output general)
   #:use-module (ice-9 curried-definitions)
   #:use-module (ice-9 match)
+  #:use-module (output text)
 
 
   #:use-module (git)
@@ -331,7 +332,17 @@
                             ,((compose (@ (vcomponent recurrence display) format-recurrence-rule)
                                        (@ (vcomponent recurrence parse) parse-recurrence-rule))
                               it)
-                            ;; TODO exdate
+                            ,@(awhen (attr ev 'EXDATE)
+                                     (list
+                                      ", undantaget "
+                                      (add-enumeration-punctuation
+                                       (map (lambda (d) (if (date? d)
+                                                       ;; TODO show year?
+                                                       (date->string d "~e ~b")
+                                                       ;; TODO only show time when it's different than the start time?
+                                                       ;; or possibly only when FREQ is hourly or lower.
+                                                       (datetime->string d "~e ~b ~k:~M")))
+                                            it))))
                             "."))
              ,(when (attr ev 'LAST-MODIFIED)
                 `(span (@ (class "last-modified")) "Senast ändrad "
-- 
cgit v1.2.3