bodyStyle colorAction themeColor
imageStyle
paragraphStyle
+ listItemStyle
codeStyle
headerStyle
linkStyle colorAction themeColor
marginRight auto
width $ pct 100
+listItemStyle :: Css
+listItemStyle = ul ? lineHeight (em 1.4)
+
paragraphStyle :: Css
paragraphStyle = p ? do
fontSize $ rem 1
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
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