From c83671ad8cc3eec7f7af216ae54af8a5a5d673fa Mon Sep 17 00:00:00 2001
From: "Collin J. Doering" <collin.doering@rekahsoft.ca>
Date: Sun, 28 Jun 2015 03:47:47 -0400
Subject: [PATCH] General CSS touch ups

Added margin to bottom of business-card and tidied up spacing of h1 and
hr elements.

Signed-off-by: Collin J. Doering <collin.doering@rekahsoft.ca>
---
 clay/Main.hs           | 8 ++++++--
 clay/PageComponents.hs | 2 +-
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/clay/Main.hs b/clay/Main.hs
index 9c6caf6..6efca9b 100644
--- a/clay/Main.hs
+++ b/clay/Main.hs
@@ -107,7 +107,9 @@ theElements = do
 
   h1 <> h2 <> h3 <> h4 <> h5 <> h6 ?
     fontFamily ["FreeMono"] [monospace]
-  h1 ? fontSize (em 2.5)
+  h1 ? do
+    fontSize (em 2.5)
+    marginBottom nil
   h2 ? fontSize (em 2)
   h3 ? fontSize (em 1.75)
   h4 ? fontSize (em 1.5)
@@ -116,7 +118,9 @@ theElements = do
 
   ul <> ol ?
     paddingLeft (em 1)
-  hr ? marginBottom (em 0.5)
+  hr ? do
+    marginBottom (em 0.65)
+    marginTop (em 0.65)
 
   --sup ? verticalAlign (VerticalAlignValue "super")
   sup ? do
diff --git a/clay/PageComponents.hs b/clay/PageComponents.hs
index bcb488d..c274ee6 100644
--- a/clay/PageComponents.hs
+++ b/clay/PageComponents.hs
@@ -127,7 +127,7 @@ businessCard = do
     sym padding (px 10)
     minHeight (px 215)
     maxWidth (px 550)
-    sym2 margin nil auto
+    margin nil auto (em 1) auto
 
     ".photo" ? do
       backgroundImage $ url "/images/business-card.png"