From 5e59121e087923433713dbc4f607699052560a33 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 7 Dec 2021 16:28:40 +0100
Subject: Deprecate editable-repeat-info, some comments.

---
 module/calp/html/vcomponent.scm    | 5 +++++
 module/calp/html/view/calendar.scm | 2 ++
 2 files changed, 7 insertions(+)

diff --git a/module/calp/html/vcomponent.scm b/module/calp/html/vcomponent.scm
index 9309bcdb..bff219aa 100644
--- a/module/calp/html/vcomponent.scm
+++ b/module/calp/html/vcomponent.scm
@@ -26,6 +26,7 @@
   :use-module ((base64) :select (base64encode))
   )
 
+;; used by search view
 (define-public (compact-event-list list)
 
   (define calendars
@@ -390,6 +391,9 @@
                    events))))))
 
 
+;; Specific styles for each calendar.
+;; TODO only emit the CSS here, requiring the caller to handle the context,
+;; since that would allow us to use this in other contexts.
 (define-public (calendar-styles calendars)
   `(style
        ,(lambda () (format #t "~:{ [data-calendar=\"~a\"] { --color: ~a; --complement: ~a }~%~}"
@@ -468,6 +472,7 @@
 
 ;; TODO bind this into the xcal
 (define (editable-repeat-info event)
+  (warning "editable-repeat-info is deprecated")
   `(div (@ (class "eventtext"))
         (h2 "Upprepningar")
         ,@(when (debug)
diff --git a/module/calp/html/view/calendar.scm b/module/calp/html/view/calendar.scm
index 7d15816c..45309856 100644
--- a/module/calp/html/view/calendar.scm
+++ b/module/calp/html/view/calendar.scm
@@ -396,6 +396,8 @@ window.default_calendar='~a';"
                                        values)))
                    ht)))
 
+          ;; Calendar data for all events in current interval,
+          ;; rendered as xcal.
           (div (@ (style "display:none !important;")
                   (id "xcal-data"))
                ,((@ (vcomponent xcal output) ns-wrap)
-- 
cgit v1.2.3