diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-05 22:24:35 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-07 13:10:38 +0200 |
| commit | bb2b6e0fe770c06ec284317e8bc274b2ed57eb03 (patch) | |
| tree | 4932e15c7ac19a1dd8f17b8a705316c23ba99ff2 | |
| parent | Fix check for empty log file. (diff) | |
| download | calp-bb2b6e0fe770c06ec284317e8bc274b2ed57eb03.tar.gz calp-bb2b6e0fe770c06ec284317e8bc274b2ed57eb03.tar.xz | |
TODO's in html.
| -rw-r--r-- | module/output/html.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index df255a25..6d2706ce 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -71,9 +71,10 @@ (define (date-link date) (date->string date "~Y-~m-~d")) -;; Generate an UID for an event -;; TODO currently not guaranteed to be unique -(define (UID ev) +;; Generate an html id for an event. +;; NOTE Not unique if two instances of the same event are placed at the exact +;; same start time. Same event with different start times works fine. +(define (html-id ev) (string-append (datetime->string (as-datetime (prop ev 'DTSTART)) "~Y~m~d~H~M~S") (html-attr (prop ev 'UID)))) @@ -184,7 +185,7 @@ (define popup-id (symbol->string (gensym "popup"))) - `((a (@ (href "#" ,(UID ev)) + `((a (@ (href "#" ,(html-id ev)) (class "hidelink")) (div (@ ,@(assq-merge extra-attributes @@ -421,7 +422,7 @@ ,@(stream->list (stream-map (lambda (ev) (fmt-single-event - ev `((id ,(UID ev))) + ev `((id ,(html-id ev))) fmt-header: (lambda body `(a (@ (href "#" ,(date-link (as-date (prop ev 'DTSTART)))) @@ -578,7 +579,7 @@ (pre-start start-date) (post-end end-date)) - ;; TODO maybe don't do this again for every month + ;; NOTE maybe don't do this again for every month (define evs (get-groups-between (group-stream events) start-date end-date)) @@ -797,7 +798,6 @@ (create-files) ;; NOTE Something here isn't thread safe. - ;; TODO make it thread safe (stream-for-each (match-lambda [(start-date end-date) |