aboutsummaryrefslogtreecommitdiff
path: root/server/src/Design
diff options
context:
space:
mode:
Diffstat (limited to 'server/src/Design')
-rw-r--r--server/src/Design/Color.hs5
-rw-r--r--server/src/Design/View/Payment/Pages.hs6
-rw-r--r--server/src/Design/View/Payment/Table.hs2
3 files changed, 10 insertions, 3 deletions
diff --git a/server/src/Design/Color.hs b/server/src/Design/Color.hs
index 06c468e..9a5797f 100644
--- a/server/src/Design/Color.hs
+++ b/server/src/Design/Color.hs
@@ -1,6 +1,8 @@
module Design.Color where
+import Clay
import qualified Clay.Color as C
+import Data.Text (Text)
-- http://chir.ag/projects/name-that-color/#969696
@@ -33,3 +35,6 @@ silver = C.rgb 200 200 200
dustyGray :: C.Color
dustyGray = C.rgb 150 150 150
+
+toString :: C.Color -> Text
+toString = plain . unValue . value
diff --git a/server/src/Design/View/Payment/Pages.hs b/server/src/Design/View/Payment/Pages.hs
index ade81a8..5fc13f0 100644
--- a/server/src/Design/View/Payment/Pages.hs
+++ b/server/src/Design/View/Payment/Pages.hs
@@ -13,8 +13,8 @@ import qualified Design.Media as Media
design :: Css
design = do
- textAlign (alignSide sideCenter)
- Helper.clearFix
+ display flex
+ justifyContent center
Media.desktop $ do
padding (px 40) (px 30) (px 30) (px 30)
@@ -26,6 +26,8 @@ design = do
padding (px 20) (px 0) (px 20) (px 0)
lineHeight (px 40)
+ svg ? "path" ? ("fill" -: Color.toString Color.dustyGray)
+
".page" ? do
display inlineBlock
fontWeight bold
diff --git a/server/src/Design/View/Payment/Table.hs b/server/src/Design/View/Payment/Table.hs
index a866b40..f8326e4 100644
--- a/server/src/Design/View/Payment/Table.hs
+++ b/server/src/Design/View/Payment/Table.hs
@@ -38,5 +38,5 @@ design = do
marginBottom (em 0.5)
".button" & svg ? do
- "path" ? ("fill" -: (plain . unValue . value $ Color.chestnutRose))
+ "path" ? ("fill" -: Color.toString Color.chestnutRose)
width (px 18)