From a03b9b78ab33e2d5db3e72686c6ec51e404da906 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 26 Apr 2020 17:56:46 +0200
Subject: Table cells date now in <time> tag.

---
 module/output/html.scm | 15 +++++++++------
 1 file 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")))
-- 
cgit v1.2.3