Adding paging (need some fixes)

2 files changed, 24 insertions, 4 deletions

diff --git a/src/server/Design/Color.hs b/src/server/Design/Color.hs
index c1c4057..adbe50f 100644
--- a/src/server/Design/Color.hs
+++ b/src/server/Design/Color.hs
@@ -23,8 +23,8 @@ blue = C.rgb 108 162 164
 paymentFocus :: C.Color
 paymentFocus = C.rgb 255 223 196
 
-darkgrey :: C.Color
-darkgrey = C.rgb 150 150 150
+darkGrey :: C.Color
+darkGrey = C.rgb 150 150 150
 
 grey :: C.Color
 grey = C.rgb 200 200 200
diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 4933300..5efb2bf 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -78,7 +78,7 @@ global = do
           display inlineBlock
           width (px 60)
           textAlign (alignSide sideCenter)
-          backgroundColor C.darkgrey
+          backgroundColor C.darkGrey
           color C.white
           height (px inputHeight)
           lineHeight (px inputHeight)
@@ -167,6 +167,26 @@ global = do
           color C.white
           visibility hidden
 
+    ".pages" ? do
+      padding (px 30) (px 30) (px 30) (px 30)
+      clearFix
+      ".page" ? do
+        border solid (px 2) C.darkGrey
+        borderRadius (px 2) (px 2) (px 2) (px 2)
+        marginRight (px 10)
+        cursor pointer
+        let side = 50
+        width (px side)
+        height (px side)
+        lineHeight (px side)
+        textAlign (alignSide (sideCenter))
+        float floatLeft
+        fontWeight bold
+
+        ".current" & do
+          borderColor C.red
+          color C.red
+
   ".signIn" ? do
 
     form ? do
@@ -214,6 +234,6 @@ defaultInput inputHeight = do
   height (px inputHeight)
   padding (px 10) (px 10) (px 10) (px 10)
   borderRadius (px 3) (px 3) (px 3) (px 3)
-  border solid (px 1) C.darkgrey
+  border solid (px 1) C.darkGrey
   focus & borderColor C.grey
   verticalAlign middle