optional font and accesibility

src/Render.hs

@@ -14,6 +14,7 @@ import Text.Printf (printf)
 renderHead :: Html ()
 renderHead = do
   doctype_
+  html_ [lang_ "es"] $ do
     head_ $ do
       meta_ [charset_ "UTF-8"]
       meta_
@@ -77,8 +78,6 @@ renderEventList events = mapM_ renderDayGroup (groupEvents events)
 
 renderFrontpage :: [Event] -> Html ()
 renderFrontpage events = do
-  doctype_
-  html_ [lang_ "es"] $ do
   renderHead
   body_ $ do
     renderHeader 0
@@ -171,6 +170,7 @@ renderMonthview (year, month) today groupedEvents = do
           label
 
   renderHead
+  body_ $ do
     renderHeader 1
     div_ [class_ "calendar-wrapper"] $ do
       header_ [class_ "calendar-header"] $ do

static/style.css

@@ -47,9 +47,9 @@
 }
 
 @font-face {
-	font-family: Geo;
 	src: url("/Geo-Regular.woff2");
-	/* url of the font */
+	font-family: Geo;
+	font-display: optional;
 }
 
 /* idk this is good? */
@@ -182,7 +182,7 @@ figure {
 
 figcaption {
 	font-size: 0.9rem;
-	color: var(--grey-muted);
+	color: var(--ui-blue);
 	margin-top: 5px;
 	text-align: right;
 }