diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-26 17:56:46 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-26 17:56:46 +0200 |
| commit | a03b9b78ab33e2d5db3e72686c6ec51e404da906 (patch) | |
| tree | e1dfa50afc60a9c76c9ce2bf8fc9e199aacd5889 | |
| parent | All HTML graphical events now use same render code. (diff) | |
| download | calp-a03b9b78ab33e2d5db3e72686c6ec51e404da906.tar.gz calp-a03b9b78ab33e2d5db3e72686c6ec51e404da906.tar.xz | |
Table cells date now in <time> tag.
| -rw-r--r-- | module/output/html.scm | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index cf59f22d..bc8eefae 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -433,22 +433,25 @@ ;; For all other days I'm only interested in the parts that change. (let* (((day-date . events) (stream-car event-groups))) `(div (@ (class "cal-cell")) - (div (@ (class "date-info")) - (span (@ (class "day-number")) ,(date->string day-date "~e")) - (span (@ (class "month-name")) ,(date->string day-date "~b")) - (span (@ (class "year-number")) ", " ,(date->string day-date "~Y"))) + (time (@ (class "date-info") + (datetime ,(date->string day-date "~1"))) + (span (@ (class "day-number")) ,(date->string day-date "~e")) + (span (@ (class "month-name")) ,(date->string day-date "~b")) + (span (@ (class "year-number")) ", " ,(date->string day-date "~Y"))) ,@(stream->list (stream-map make-small-block events)))) (stream->list (stream-map (match-lambda [(day-date . events) `(div (@ (class "cal-cell")) - (div (@ (class "date-info " + (time (@ (class "date-info " ,(if (or (date< day-date start-date) (date< end-date day-date)) "non-current" "current") - )) + ) + (datetime ,(date->string day-date "~1")) + ) (span (@ (class "day-number")) ,(date->string day-date "~e")) ,(when (= 1 (day day-date)) `(span (@ (class "month-name")) ,(date->string day-date "~b"))) |