Month view better colors.

2 files changed, 7 insertions, 13 deletions

diff --git a/module/output/html.scm b/module/output/html.scm
index 2b8f52a9..4d8ebc05 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -452,9 +452,10 @@
                 [(day-date . events)
                  `(div (@ (class "cal-cell"))
                        (div (@ (class "date-info "
-                                 ,(when (or (date< day-date start-date)
-                                            (date< end-date day-date))
-                                    "non-current")
+                                 ,(if (or (date< day-date start-date)
+                                          (date< end-date day-date))
+                                      "non-current"
+                                      "current")
                                  ))
                             (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 92f9e446..02f6228c 100644
--- a/static/style.css
+++ b/static/style.css
@@ -308,23 +308,16 @@ along with their colors.
     font-family: arial;
 }
 
-.date-info.non-current {
-    /* TODO
-Find color between gray and lightgray
-*/
-    color: lightgray !important;
-}
-
 .date-info .day-number {
     font-size: 150%;
     padding: 2pt;
 }
 
-.date-info .month-name {
-    color: var(--gray);
+.date-info.current .day-number {
+    color: black;
 }
 
-.date-info .year-number {
+.date-info {
     color: var(--gray);
 }