diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 16:41:58 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 16:41:58 +0200 |
| commit | 79b9876aa8f3611264be4d665b51051b17c3c8b7 (patch) | |
| tree | 251c0f5d0e0565a3d7a32f03647b2cf22991912f /module/html/vcomponent.scm | |
| parent | Can add events spanning midnight. (diff) | |
| download | calp-79b9876aa8f3611264be4d665b51051b17c3c8b7.tar.gz calp-79b9876aa8f3611264be4d665b51051b17c3c8b7.tar.xz | |
Selected event now glows.
Diffstat (limited to 'module/html/vcomponent.scm')
| -rw-r--r-- | module/html/vcomponent.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/html/vcomponent.scm b/module/html/vcomponent.scm index 7d2cace1..6836e777 100644 --- a/module/html/vcomponent.scm +++ b/module/html/vcomponent.scm @@ -123,7 +123,8 @@ (class "CAL_" ,(html-attr (or (prop (parent ev) 'NAME) "unknown")))) fmt-header: (lambda body - `(a (@ (href "#" ,(date-link (as-date (prop ev 'DTSTART)))) + `(a (@ (href "#" ,(html-id ev) #; (date-link (as-date (prop ev 'DTSTART))) + ) (class "hidelink")) ,@body)))) (stream-filter |