From 1e167679f6827c7119d616633b21fffef269cd75 Mon Sep 17 00:00:00 2001 From: Joris Date: Sat, 31 Oct 2020 15:24:26 +0100 Subject: Use only HTML and CSS --- css/Header.hs | 53 ----------------------------------------------------- 1 file changed, 53 deletions(-) delete mode 100644 css/Header.hs (limited to 'css/Header.hs') diff --git a/css/Header.hs b/css/Header.hs deleted file mode 100644 index ab58b0c..0000000 --- a/css/Header.hs +++ /dev/null @@ -1,53 +0,0 @@ -{-# LANGUAGE OverloadedStrings #-} - -module Header - ( style - ) where - -import Data.Monoid ((<>)) - -import Clay hiding (style) -import Clay.Display (displayTable) - -import qualified Color as Color -import qualified Media as Media - -style :: Css -style = do - - ".Header__Container" ? do - backgroundColor Color.red - color Color.white - fontSize (px 28) - display flex - - ".Header__Link" ? do - display flex - justifyContent center - alignItems center - flexGrow 1 - flexBasis (px 0) - 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) - Media.tablet $ fontSize (em 0.8) - Media.mobile $ fontSize (em 0.6) - - (".Header__Link" # hover <> ".Header__Link" # focus <> ".Header__LinkCurrent") ? 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) - - ".Header__Icon" ? do - display flex - height (px 40) - marginRight (px 20) - Media.mobile $ display none -- cgit v1.2.3