Merge pull request #309 from krymtkts:feature/fix-booklog-calendar

Adjust and bugfix for booklog calendar
krymtkts · Jan 31, 2025 · 810a4bd · 810a4bd
2 parents a1a8d77 + 40e75c2
commit 810a4bd
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/sass/style.scss b/sass/style.scss
@@ -309,6 +309,7 @@ pre code {
       }
     }
     td.dow {
+      line-height: 0.8em;
       width: 2em;
     }
     td.log {

diff --git a/src/Booklog.fs b/src/Booklog.fs
@@ -54,8 +54,8 @@ module Misc =
             if d.DayOfWeek = DayOfWeek.Sunday then
                 d
             else
-                let toMonday = (int d.DayOfWeek + 6) % 7 |> float
-                d.AddDays(-toMonday)
+                let toSunday = d.DayOfWeek |> float
+                d.AddDays(-toSunday)
 
         let endDate =
             let d = DateTime(year, 12, 31)
@@ -110,7 +110,7 @@ module Misc =
             |> List.map (fun (dow, dates) ->
                 let dowCell =
                     match dow with
-                    | DayOfWeek.Sunday
+                    | DayOfWeek.Monday
                     | DayOfWeek.Wednesday
                     | DayOfWeek.Friday ->
                         Html.td [