From bf47f02282ad38a239e298895f601ef7226aa665 Mon Sep 17 00:00:00 2001
From: James Eversole <james@eversole.co>
Date: Wed, 13 Mar 2024 18:42:29 -0500
Subject: [PATCH] Invert full pre blocks; give the footer some room to breathe

---
 sampu.cabal             |  2 +-
 src/Fragments/Styles.hs | 10 +++++++++-
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/sampu.cabal b/sampu.cabal
index 0f10b96..08b78aa 100644
--- a/sampu.cabal
+++ b/sampu.cabal
@@ -1,6 +1,6 @@
 cabal-version:   3.0
 name:            sampu
-version:         0.9.0
+version:         0.9.1
 license:         ISC
 author:          James Eversole
 maintainer:      james@eversole.co
diff --git a/src/Fragments/Styles.hs b/src/Fragments/Styles.hs
index 33372bc..7af4a65 100644
--- a/src/Fragments/Styles.hs
+++ b/src/Fragments/Styles.hs
@@ -30,6 +30,7 @@ core_ = do
   footer_
   html_
   p_
+  pre_
 
 a_ :: Css
 a_ = do
@@ -84,7 +85,7 @@ p_ = do
 main_ :: Css
 main_ = do
   ".main" ? do
-    margin     (em 0) auto (em 0) auto
+    margin     (em 0) auto (em 2) auto
     width    $ pct 60
 
 notFound_ :: Css
@@ -114,6 +115,13 @@ code_ = do
     backgroundColor terColor
     overflowX       scroll
 
+pre_ :: Css
+pre_ = do
+  pre ? do
+    color           priColor
+    backgroundColor terColor
+    overflowX       scroll
+
 nav_ :: Css
 nav_ = do
   ".navContainer" ? do