Added line-height to more body elements.

diff --git a/src/StyleSheet.hs b/src/StyleSheet.hs
index 2b9fe25..1df1eba 100644 (file)
--- a/src/StyleSheet.hs
+++ b/src/StyleSheet.hs
@@ -18,6 +18,7 @@ makeStyle colorAction themeColor = do
   bodyStyle colorAction themeColor
   imageStyle
   paragraphStyle
+  listItemStyle
   codeStyle
   headerStyle
   linkStyle colorAction themeColor
@@ -43,6 +44,9 @@ imageStyle = img ? do
   marginRight auto
   width $ pct 100
 
+listItemStyle :: Css
+listItemStyle = ul ? lineHeight (em 1.4)
+
 paragraphStyle :: Css
 paragraphStyle = p ? do
   fontSize $ rem 1
@@ -51,7 +55,6 @@ paragraphStyle = p ? do
 
 linkStyle :: ColorAction -> Color -> Css
 linkStyle action themeColor = do
-  ul # ("class" @= "blog-links") ? lineHeight (em 1.4)
   let regularColor = fontColor $ action 0.60 $ themeColor +. 0x40
   let visitedColor = fontColor $ action 0.60 $ themeColor -. 0x40
   let highlightedColor = fontColor $ action 0.75 $ themeColor +. 0x50
@@ -85,6 +88,7 @@ codeStyle = do
   pre ? do
     padding (rem 0.5) (rem 0.5) (rem 0.5) (rem 0.5)
     overflowX scroll
+    lineHeight $ em 1.4
 
 navigationStyle :: Css
 navigationStyle = div # ("role" @= "navigation") |> h2 ? smallHeaderStyle