From 28f7cdc8e1cdaf022d4906b924e788ee9eb47789 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 22 May 2020 22:54:18 +0200 Subject: Minor coment cleanup. --- module/entry-points/server.scm | 2 -- module/output/ical.scm | 2 ++ 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index c137a144..604766a5 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -99,7 +99,6 @@ (date day: 1)) next-start: month+ prev-start: month- - ;; internally rounds start-date to start of month render-calendar: render-calendar-table pre-start: (start-of-week start-date (get-config 'week-start)) post-end: (end-of-week (end-of-month start-date) (get-config 'week-start)) @@ -135,7 +134,6 @@ (aif end (parse-iso-date it) (current-date))) (print-all-events)))))) - ;; TODO this fails if there's a period in the uid. (GET "/calendar/:uid{.*}.ics" (uid) (aif (get-event-by-uid uid) (return '((content-type text/calendar)) diff --git a/module/output/ical.scm b/module/output/ical.scm index cd97b346..e289456b 100644 --- a/module/output/ical.scm +++ b/module/output/ical.scm @@ -106,6 +106,8 @@ (define-public (component->ical-string component) (format #t "BEGIN:~a\r\n" (type component)) + ;; TODO this leaks internal information, + ;; write a better API for vcomponent. (hash-for-each ;; Special cases depending on key. ;; Value formatting is handled in @code{value-format}. -- cgit v1.2.3