diff options
Diffstat (limited to 'src/Design/Header.hs')
-rw-r--r-- | src/Design/Header.hs | 56 |
1 files changed, 0 insertions, 56 deletions
diff --git a/src/Design/Header.hs b/src/Design/Header.hs deleted file mode 100644 index d2bbace..0000000 --- a/src/Design/Header.hs +++ /dev/null @@ -1,56 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} - -module Design.Header - ( headerCss - ) where - -import Data.Monoid ((<>)) - -import Clay -import Clay.Display (displayTable) - -import qualified Design.Color as Color -import qualified Design.Media as Media - -headerCss :: Css -headerCss = do - ".header" ? do - backgroundColor Color.red - color Color.white - fontSize (px 28) - - ul ? do - width (pct 100) - display displayTable - "table-layout" -: "fixed" - - li ? do - display tableCell - - a ? do - display block - height (em 3) - lineHeight (em 3) - textDecoration none - padding (px 0) (px 0) (px 0) (px 0) - textAlign (alignSide sideCenter) - color Color.white - textTransform capitalize - transition "background-color" (ms 500) ease (sec 0) - - i ? marginRight (em 0.5) - - Media.mobile $ do - i ? display none - fontSize (em 0.6) - - Media.tablet $ fontSize (em 0.8) - - (a # hover <> a # focus <> a # ".currentHeader") ? do - backgroundColor Color.red - borderBottomStyle solid - borderBottomColor (Color.red +. 40) - - Media.mobile $ borderBottomWidth (px 6) - Media.tablet $ borderBottomWidth (px 8) - Media.desktop $ borderBottomWidth (px 10) |