diff options
Diffstat (limited to 'module/html/vcomponent.scm')
| -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?)) |