Add mocked pages

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)