From bac7f8019d4a1573525c8ef869cbfb181dabeff8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Reynir=20Bj=C3=B6rnsson?= <reynir@reynir.dk>
Date: Wed, 9 Dec 2020 13:45:09 +0100
Subject: [PATCH] More css

---
 lib/views.ml | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/lib/views.ml b/lib/views.ml
index 69c371e..b784c6d 100644
--- a/lib/views.ml
+++ b/lib/views.ml
@@ -23,12 +23,24 @@ let layout ~title:title_ body_ =
     (head (title (txt title_))
        [style ~a:[a_mime_type "text/css"]
           [
+            txt "body {\
+                 margin: 40px auto;\
+                 line-height: 1.6;\
+                 color: #444;\
+                 padding: 0 10px;\
+                 }";
+            txt "h1,h2,h3{line-height:1.2}";
             txt ".output-ts {\
                  white-space: nowrap;\
                  cursor: pointer;\
                  user-select: none;\
                  }";
-            txt ".output-code { overflow: visible; }"
+            txt ".output-ts a {text-decoration: none;}";
+            txt ".output-ts a:hover {text-decoration: underline;}";
+            txt ".output-code {\
+                 overflow: visible;\
+                 white-space: pre;\
+                 }";
           ]])
     (body body_)