aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2020-08-13 10:11:26 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2020-08-13 10:11:26 +0200
commit221ddb7ca241dc81b83832f4bb591024dfa278a8 (patch)
tree63a03731cfded20d285947364dcaf20b90471b41
parentPopups are now correcetly rooted. (diff)
downloadcalp-221ddb7ca241dc81b83832f4bb591024dfa278a8.tar.gz
calp-221ddb7ca241dc81b83832f4bb591024dfa278a8.tar.xz
Add TODO's
-rw-r--r--module/html/view/calendar.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/module/html/view/calendar.scm b/module/html/view/calendar.scm
index 52e42078..a15b5c1d 100644
--- a/module/html/view/calendar.scm
+++ b/module/html/view/calendar.scm
@@ -26,7 +26,9 @@
:select (get-git-version))
)
-;; date should be start of month
+;; Small calendar similar to the one below.
+;; TODO highlight days depending on which events they contain
+;; TODO run this standalone, for embedding in other websites.
;; @example
;; må ti on to fr lö sö
;; 1 2 3 4 5 6 7
@@ -35,7 +37,7 @@
;; 22 23 24 25 26 27 28
;; 29 30
;; @end example
-;; date - a date in the month to display
+;; date - The start date of the month to display
(define* (cal-table key: start-date end-date next-start prev-start)
(define (td date)
@@ -95,6 +97,7 @@
;;; and the html-generate procedure also filters, but instead to find earlier eventns.
;;; All this filtering is probably slow, and should be looked into.
+;; TODO place this somewhere proper
(define repo-url (make-parameter "https://git.hornquist.se"))