Adding paging (need some fixes)

1 files changed, 22 insertions, 2 deletions

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