diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 16:26:29 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-17 16:26:29 +0200 |
| commit | d150ec3abc015650b137abe552c0964d915dff10 (patch) | |
| tree | 5e86db8dec5bd81c0062260f3329c62760c41c0d /module | |
| parent | Fix height when creating long events. (diff) | |
| download | calp-d150ec3abc015650b137abe552c0964d915dff10.tar.gz calp-d150ec3abc015650b137abe552c0964d915dff10.tar.xz | |
Can add events spanning midnight.
Diffstat (limited to 'module')
| -rw-r--r-- | module/html/vcomponent.scm | 21 |
1 files changed, 15 insertions, 6 deletions
diff --git a/module/html/vcomponent.scm b/module/html/vcomponent.scm index 6801365b..7d2cace1 100644 --- a/module/html/vcomponent.scm +++ b/module/html/vcomponent.scm @@ -66,19 +66,28 @@ (div ,(call-with-values (lambda () (fmt-time-span ev)) (case-lambda [(start) - `(div (span (@ (class "dtstart") - (data-fmt ,(string-append "~L" start))) + `(div (time (@ (class "dtstart") + (data-fmt ,(string-append "~L" start)) + (datetime ,(datetime->string + (as-datetime (prop ev 'DTSTART)) + "~1T~3"))) ,(datetime->string (as-datetime (prop ev 'DTSTART)) start)))] [(start end) - `(div (span (@ (class "dtstart") - (data-fmt ,(string-append "~L" start))) + `(div (time (@ (class "dtstart") + (data-fmt ,(string-append "~L" start)) + (datetime ,(datetime->string + (as-datetime (prop ev 'DTSTART)) + "~1T~3"))) ,(datetime->string (as-datetime (prop ev 'DTSTART)) start)) " — " - (span (@ (class "dtend") - (data-fmt ,(string-append "~L" end))) + (time (@ (class "dtend") + (data-fmt ,(string-append "~L" end)) + (datetime ,(datetime->string + (as-datetime (prop ev 'DTSTART)) + "~1T~3"))) ,(datetime->string (as-datetime (prop ev 'DTEND)) end)))])) ,(when (and=> (prop ev 'LOCATION) (negate string-null?)) |