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>
This commit is contained in:
Collin J. Doering 2015-06-28 03:47:47 -04:00
parent 99ab1162da
commit c83671ad8c
2 changed files with 7 additions and 3 deletions

View File

@ -107,7 +107,9 @@ theElements = do
h1 <> h2 <> h3 <> h4 <> h5 <> h6 ? h1 <> h2 <> h3 <> h4 <> h5 <> h6 ?
fontFamily ["FreeMono"] [monospace] fontFamily ["FreeMono"] [monospace]
h1 ? fontSize (em 2.5) h1 ? do
fontSize (em 2.5)
marginBottom nil
h2 ? fontSize (em 2) h2 ? fontSize (em 2)
h3 ? fontSize (em 1.75) h3 ? fontSize (em 1.75)
h4 ? fontSize (em 1.5) h4 ? fontSize (em 1.5)
@ -116,7 +118,9 @@ theElements = do
ul <> ol ? ul <> ol ?
paddingLeft (em 1) paddingLeft (em 1)
hr ? marginBottom (em 0.5) hr ? do
marginBottom (em 0.65)
marginTop (em 0.65)
--sup ? verticalAlign (VerticalAlignValue "super") --sup ? verticalAlign (VerticalAlignValue "super")
sup ? do sup ? do

View File

@ -127,7 +127,7 @@ businessCard = do
sym padding (px 10) sym padding (px 10)
minHeight (px 215) minHeight (px 215)
maxWidth (px 550) maxWidth (px 550)
sym2 margin nil auto margin nil auto (em 1) auto
".photo" ? do ".photo" ? do
backgroundImage $ url "/images/business-card.png" backgroundImage $ url "/images/business-card.png"