From 4a4a10fd3915b2252608254328bed8bcd38b3938 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Wed, 25 Dec 2019 19:22:50 +0100
Subject: HTML output comments.

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

(limited to 'module')

diff --git a/module/output/html.scm b/module/output/html.scm
index 977c73b9..f0c021c3 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -61,6 +61,7 @@
   (define cs (char-set-adjoin char-set:letter+digit #\- #\_))
   (string-filter (lambda (c) (char-set-contains? cs c)) str))
 
+;; Format single event for graphical display
 (define (vevent->sxml day ev)
   (define time (date->time-utc day))
   (define style
@@ -90,6 +91,7 @@
               (style ,style))
            ,((summary-filter) ev (attr ev 'SUMMARY)))))
 
+;; Lay out complete day (graphical)
 (define (lay-out-day day)
   (let* (((date . events) day))
     (fix-event-widths! (date->time-utc date) (stream->list events))
@@ -129,6 +131,7 @@
          (end (time->string (attr ev 'DTEND) fmt)))
     (values start end)))
 
+;; For sidebar, just text
 (define (fmt-single-event ev)
   `(article (@ (id ,(UID ev))
                (class "eventtext CAL_bg_"
@@ -143,10 +146,10 @@
                 `(div (b "Plats: ") ,(attr ev 'LOCATION)))
              ,(attr ev 'DESCRIPTION))))
 
+;; Single event in side bar (text objects)
 (define (fmt-day day)
   (let* (((date . events) day))
     `(section (@ (class "text-day"))
-              ;; TODO this gives date +1
               (header (h2 ,(let ((s (date->string date "~Y-~m-~d")))
                              `(a (@ (href "#" ,s)
                                     (class "hidelink")) ,s))))
-- 
cgit v1.2.3