diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-28 01:43:05 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-28 01:43:05 +0200 |
| commit | 64ea347e6026d24060982f2ae52dfe09526d42a9 (patch) | |
| tree | 31e4708f5f19339a6181b2d73ad02c1f6030cc9f | |
| parent | Empty days now work. (diff) | |
| download | calp-64ea347e6026d24060982f2ae52dfe09526d42a9.tar.gz calp-64ea347e6026d24060982f2ae52dfe09526d42a9.tar.xz | |
Comment on marks in small calendar.
| -rw-r--r-- | module/output/html.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 3f2025cd..3969b574 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -509,6 +509,10 @@ "#" ,(date-link date)))] ;; We are in our time interval [else `((href "#" ,(date-link date)))])) + ;; NOTE This time object is the correct place to show the existance + ;; of an event on a given day in this small calendar. For example + ;; making the text red for all holidays, or creating a yellow background + ;; for events from a specific source. (time (@ (datetime ,(date->string date "~Y-~m-~d"))) ,(day date)))) (let* ((last-months current next (month-days (start-of-month start-date) week-start)) |