From 38896af4281d2e191cbde15836a23e4c0274fff6 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 4 Jun 2016 11:02:43 +0200
Subject: Add mean payment by month

---
 src/client/elm/LoggedIn/Home/View/Paging.elm | 13 ++++++++-----
 src/client/elm/LoggedIn/Home/View/Table.elm  |  6 +++---
 2 files changed, 11 insertions(+), 8 deletions(-)

(limited to 'src/client/elm/LoggedIn/Home/View')

diff --git a/src/client/elm/LoggedIn/Home/View/Paging.elm b/src/client/elm/LoggedIn/Home/View/Paging.elm
index b8d7db9..9166d23 100644
--- a/src/client/elm/LoggedIn/Home/View/Paging.elm
+++ b/src/client/elm/LoggedIn/Home/View/Paging.elm
@@ -2,7 +2,7 @@ module LoggedIn.Home.View.Paging exposing
   ( paymentsPaging
   )
 
-import Color
+import Color exposing (Color)
 
 import FontAwesome
 
@@ -60,7 +60,7 @@ firstPage homeModel =
         ]
     , onClick (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| 1)
     ]
-    [ FontAwesome.fast_backward Color.darkGrey 20 ]
+    [ FontAwesome.fast_backward grey 20 ]
 
 previousPage : HomeModel.Model -> Html Msg
 previousPage homeModel =
@@ -71,7 +71,7 @@ previousPage homeModel =
           then (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| homeModel.currentPage - 1)
           else Msg.NoOp
     ]
-    [ FontAwesome.backward Color.darkGrey 20 ]
+    [ FontAwesome.backward grey 20 ]
 
 nextPage : HomeModel.Model -> Int -> Html Msg
 nextPage homeModel maxPage =
@@ -82,7 +82,7 @@ nextPage homeModel maxPage =
           then (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| homeModel.currentPage + 1)
           else Msg.NoOp
     ]
-    [ FontAwesome.forward Color.darkGrey 20 ]
+    [ FontAwesome.forward grey 20 ]
 
 lastPage : HomeModel.Model -> Int -> Html Msg
 lastPage homeModel maxPage =
@@ -90,7 +90,7 @@ lastPage homeModel maxPage =
     [ class "page"
     , onClick (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| maxPage)
     ]
-    [ FontAwesome.fast_forward Color.darkGrey 20 ]
+    [ FontAwesome.fast_forward grey 20 ]
 
 paymentsPage : HomeModel.Model -> Int -> Html Msg
 paymentsPage homeModel page =
@@ -106,3 +106,6 @@ paymentsPage homeModel page =
               else Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| page
         ]
         [ text (toString page) ]
+
+grey : Color
+grey = Color.greyscale 0.35
diff --git a/src/client/elm/LoggedIn/Home/View/Table.elm b/src/client/elm/LoggedIn/Home/View/Table.elm
index 7c8a800..a03faa2 100644
--- a/src/client/elm/LoggedIn/Home/View/Table.elm
+++ b/src/client/elm/LoggedIn/Home/View/Table.elm
@@ -37,10 +37,10 @@ headerLine : LoggedData -> Html Msg
 headerLine loggedData =
   div
     [ class "header" ]
-    [ div [ class "cell category" ] [ FontAwesome.shopping_cart Color.white 25 ]
+    [ div [ class "cell category" ] [ FontAwesome.shopping_cart Color.white 28 ]
     , div [ class "cell cost" ] [ text loggedData.conf.currency ]
-    , div [ class "cell user" ] [ FontAwesome.user Color.white 25 ]
-    , div [ class "cell date" ] [ FontAwesome.calendar Color.white 25 ]
+    , div [ class "cell user" ] [ FontAwesome.user Color.white 28 ]
+    , div [ class "cell date" ] [ FontAwesome.calendar Color.white 28 ]
     , div [ class "cell" ] []
     ]
 
-- 
cgit v1.2.3