diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-04 00:58:30 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-04 00:58:30 +0200 |
commit | 6777ceaf4779947c5698ab1005f26e2987e546c0 (patch) | |
tree | 544426030b297588e25e6e25d9d8266517f694e5 /module/output/html.scm | |
parent | Add responsivnes, major rework on css. (diff) | |
download | calp-6777ceaf4779947c5698ab1005f26e2987e546c0.tar.gz calp-6777ceaf4779947c5698ab1005f26e2987e546c0.tar.xz |
Move nav buttons away from smallcal.
Diffstat (limited to 'module/output/html.scm')
-rw-r--r-- | module/output/html.scm | 39 |
1 files changed, 20 insertions, 19 deletions
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 |