From 6777ceaf4779947c5698ab1005f26e2987e546c0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sat, 4 Apr 2020 00:58:30 +0200
Subject: Move nav buttons away from smallcal.

---
 module/output/html.scm | 39 ++++++++++++++++++++-------------------
 1 file changed, 20 insertions(+), 19 deletions(-)

(limited to 'module')

diff --git a/module/output/html.scm b/module/output/html.scm
index 14912490..55b05b17 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -528,6 +528,7 @@
            (div (@ (class "root"))
                 ;; Actuall calendar
                 (main
+                 ;; Actuall calendar
                  (@ (style "grid-area: main"))
                  ,(render-calendar calendars: calendars
                                    events: events
@@ -551,7 +552,7 @@
                     `(span "Version " (a (@ (href ,url)) ,short-hash))))
 
                 ;; Small calendar and navigation
-                (nav (@ (class "calnav") (style "grid-area: cal"))
+                (nav (@ (class "calnav") (style "grid-area: nav"))
                  (div (@ (class "change-view"))
                   (a (@ (href "/week/" ,(date->string
                                          (if (= 1 (day start-date))
@@ -564,24 +565,24 @@
 
                   (a (@ (href "/month/" ,(date->string (set (day start-date) 1) "~1")
                               ".html"))
-                     "monthly"))
-
-                 (details (@ (open) (style "grid-area: details"))
-                  (summary "Month overwiew")
-                  (div (@ (class "smallcall-head")) ,(string-titlecase (date->string start-date "~B ~Y")))
-                  (div (@ (class "smallcal"))
-                       ;; prev button
-                       ,(nav-link "«" (prev-start start-date))
-
-                       ;; calendar table
-                       ;; TODO
-                       (div ,(cal-table start-date: start-date end-date: end-date
-                                        next-start: next-start
-                                        prev-start: prev-start
-                                        ))
-
-                       ;; next button
-                       ,(nav-link "»" (next-start start-date)))))
+                     "monthly")))
+
+                (details (@ (open) (style "grid-area: cal"))
+                         (summary "Month overwiew")
+                         (div (@ (class "smallcall-head")) ,(string-titlecase (date->string start-date "~B ~Y")))
+                         (div (@ (class "smallcal"))
+                              ;; prev button
+                              ,(nav-link "«" (prev-start start-date))
+
+                              ;; calendar table
+                              ;; TODO
+                              (div ,(cal-table start-date: start-date end-date: end-date
+                                               next-start: next-start
+                                               prev-start: prev-start
+                                               ))
+
+                              ;; next button
+                              ,(nav-link "»" (next-start start-date))))
 
 
                 ;; List of calendars
-- 
cgit v1.2.3