From b697acb6a32d12987b60c94990a56271b956c5e5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 10 May 2019 22:53:17 +0200
Subject: Update CSS.

---
 module/output/html.scm       |  2 +-
 module/vcomponent/output.scm |  2 +-
 static/style.css             | 28 +++++++++++++++++++++++-----
 3 files changed, 25 insertions(+), 7 deletions(-)

diff --git a/module/output/html.scm b/module/output/html.scm
index 0ccefec0..394d9237 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -127,7 +127,7 @@
 (define (fmt-time-span ev)
   (let* ((fmt (if (time<? (time-difference (attr ev 'DTEND) (attr ev 'DTSTART))
                           (make-duration (* 3600 24)))
-                  "~H:~M" "~Y-~m-~d ~H:~M"))
+                  "~H:~M" "~Y-~m-~d ~H:~M"))
          (start (time->string (attr ev 'DTSTART) fmt))
          (end (time->string (attr ev 'DTEND) fmt)))
     (values start end)))
diff --git a/module/vcomponent/output.scm b/module/vcomponent/output.scm
index f55adf3b..ee84d359 100644
--- a/module/vcomponent/output.scm
+++ b/module/vcomponent/output.scm
@@ -33,7 +33,7 @@
                    (make-string depth #\:)
                    key
                    (concatenate (hash-map->list list (cdr at)))
-                   (v at))))
+                   (value at))))
     (if descend?
      (for-each (lambda (e) (print-vcomponent e port #:descend? #t #:depth (1+ depth)))
                (children comp)))))
diff --git a/static/style.css b/static/style.css
index 5017e5ef..5f33d4ff 100644
--- a/static/style.css
+++ b/static/style.css
@@ -47,17 +47,21 @@
 .sideinfo {
 	width: 20em;
 	height: 100%;
+	display: flex;
+	flex-direction: column;
 }
 
 .sideinfo .about {
 	display: flex;
 	justify-content: center;
-	height: 20%;
+}
+
+.sideinfo .about > div {
+	margin: 1em;
 }
 
 .sideinfo .eventlist {
 	overflow: scroll;
-	max-height: 80%;
 }
 
 .sideinfo .eventlist article {
@@ -68,7 +72,7 @@
 	padding-left: 2px;
 }
 
-.sideinfo .eventlist main {
+.sideinfo .eventlist {
 	white-space: pre-line;
 	font-size: 10pt;
 }
@@ -85,10 +89,16 @@
 	text-decoration: none;
 }
 
-.calendar {
-	height: 100%;
+.root main {
 	max-width: calc(100% - 20em);
 	display: flex;
+	flex-direction: column;
+}
+
+.calendar {
+	width: 100%;
+	display: flex;
+	flex-grow: 2;
 }
 
 .clockbar {
@@ -206,6 +216,14 @@
 	z-index: 0;
 }
 
+.root footer {
+	font-family: monospace;
+}
+
+.root footer span {
+	margin: 0 1em;
+}
+
 .event.continuing {
 	border-bottom: none;
 	background-image: linear-gradient(to top, #0007 0%,#FFF0 4em);
-- 
cgit v1.2.3