Rename tbody to cal-cell.

2 files changed, 4 insertions, 5 deletions

diff --git a/module/output/html.scm b/module/output/html.scm
index 54ac7538..42955f34 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -301,8 +301,7 @@
            ;; First day is a special case, since I always want to show a full date there.
            ;; For all other days I'm only interested in the parts that change.
            (let* (((day-date . events) (stream-car event-groups)))
-             `(div (@ (class "tbody")) "")
-             `(div (@ (class "tbody"))
+             `(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"))
@@ -312,7 +311,7 @@
             (stream-map
              (match-lambda
                [(day-date . events)
-                `(div (@ (class "tbody"))
+                `(div (@ (class "cal-cell"))
                       (div (@ (class "date-info"))
                            (span (@ (class "day-number")) ,(date->string day-date "~e"))
                            ,(when (= 1 (day day-date))
diff --git a/static/style.css b/static/style.css
index b013e5b7..728de2d1 100644
--- a/static/style.css
+++ b/static/style.css
@@ -143,11 +143,11 @@ body {
 }
 
 .caltable .thead,
-.caltable .tbody {
+.caltable .cal-cell {
     border: 1px solid gray;
 }
 
-.caltable .tbody {
+.caltable .cal-cell {
     overflow-y: auto;
 }