From 11052951b74b9ad4b6a9412ae490086235f9154b Mon Sep 17 00:00:00 2001 From: Joris Date: Sun, 3 Jan 2021 13:40:40 +0100 Subject: Rewrite in Rust --- server/src/Design/Helper.hs | 48 --------------------------------------------- 1 file changed, 48 deletions(-) delete mode 100644 server/src/Design/Helper.hs (limited to 'server/src/Design/Helper.hs') diff --git a/server/src/Design/Helper.hs b/server/src/Design/Helper.hs deleted file mode 100644 index e586d56..0000000 --- a/server/src/Design/Helper.hs +++ /dev/null @@ -1,48 +0,0 @@ -module Design.Helper - ( clearFix - , button - , centeredWithMargin - , verticalCentering - ) where - -import Prelude hiding (span) - -import Clay hiding (button) - -import Design.Constants - -clearFix :: Css -clearFix = - after & do - content (stringContent "") - display displayTable - clear both - -button :: Color -> Color -> Size a -> (Color -> Color) -> Css -button backgroundCol textCol h focusOp = do - display flex - alignItems center - justifyContent center - backgroundColor backgroundCol - padding (px 0) (px 10) (px 0) (px 10) - color textCol - borderRadius radius radius radius radius - verticalAlign middle - cursor pointer - lineHeight h - height h - textAlign (alignSide sideCenter) - hover & backgroundColor (focusOp backgroundCol) - focus & backgroundColor (focusOp backgroundCol) - -centeredWithMargin :: Css -centeredWithMargin = do - width (pct blockPercentWidth) - marginLeft auto - marginRight auto - -verticalCentering :: Css -verticalCentering = do - position absolute - top (pct 50) - "transform" -: "translateY(-50%)" -- cgit v1.2.3