aboutsummaryrefslogtreecommitdiff
path: root/design/main.hs
diff options
context:
space:
mode:
Diffstat (limited to 'design/main.hs')
-rw-r--r--design/main.hs71
1 files changed, 0 insertions, 71 deletions
diff --git a/design/main.hs b/design/main.hs
deleted file mode 100644
index ba7127c..0000000
--- a/design/main.hs
+++ /dev/null
@@ -1,71 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-
-import Clay
-import Data.Monoid ((<>))
-
-color1 = rgb 113 68 30
-color2 = rgb 13 13 81
-
-main :: IO ()
-main = putCss $ do
-
- body ? do
- maxWidth (px 600)
- sym2 margin (px 0) auto
-
- "a.header" ? do
- display block
- sym2 padding (px 15) (px 0)
- margin (px 0) auto (px 30) auto
- backgroundColor color1
- color white
- fontWeight bold
- textAlign center
- fontSize (px 36)
- hover & textDecoration none
-
- a ? do
- textDecoration none
- color color2
- hover & textDecoration underline
-
- h1 ? color color1
- h2 ? color color1
- h3 ? color color1
-
- (ul <> ol) ? do
- listStyleType none
- paddingLeft (px 15)
- fontSize (px 18)
-
- li ? do
- marginBottom (em 0.5)
- lineHeight (em 1.4)
-
- (ol <> ul) |> li |> (ol <> ul) ? do
- marginTop (em 0.5)
- marginLeft (px 30)
-
- ul |> li ? do
- let bulletSize = (px 6)
-
- before & do
- display inlineBlock
- content (stringContent "")
- width bulletSize
- height bulletSize
- backgroundColor color1
- sym borderRadius bulletSize
- marginRight (px 15)
- verticalAlign middle
-
- ol ? do
- "counter-reset" -: "ol"
-
- li ? do
- before & do
- display inline
- "counter-increment" -: "ol"
- "content" -: "counter(ol)\".\""
- marginRight (px 10)
- color color1