Limit showed pages and add first, previous, next and last page links

1 files changed, 5 insertions, 2 deletions

diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 45b1cbc..e3dd824 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -54,11 +54,12 @@ global = do
 
     ".exceedingPayers" ? do
       margin (px 0) (px 20) (px 45) (px 20)
-      padding (px 10) (px 10) (px 10) (px 10)
+      padding (px 15) (px 15) (px 15) (px 15)
       backgroundColor C.green
       color C.white
       fontWeight bold
       borderRadius (px 5) (px 5) (px 5) (px 5)
+      fontSize (pct 120)
 
       ".exceedingPayer" Clay.** ".userName" ? marginRight (px 10)
 
@@ -174,9 +175,9 @@ global = do
       ".page" ? do
         display inlineBlock
         border solid (px 2) C.darkGrey
+        color 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)
@@ -184,6 +185,8 @@ global = do
         textAlign (alignSide (sideCenter))
         fontWeight bold
 
+        ":not(.current)" & cursor pointer
+
         ".current" & do
           borderColor C.red
           color C.red