diff options
| author | Joris | 2016-06-04 11:02:43 +0200 |
|---|---|---|
| committer | Joris | 2016-06-04 11:02:43 +0200 |
| commit | 38896af4281d2e191cbde15836a23e4c0274fff6 (patch) | |
| tree | 0d7df152cc84beaa79cc9fa055db1e7992c4ac91 /src/client/elm/LoggedIn/Home/View/Paging.elm | |
| parent | 9dfa7a7e2c6fac564a456b11623c04d0b26fbce5 (diff) | |
| download | budget-38896af4281d2e191cbde15836a23e4c0274fff6.tar.gz budget-38896af4281d2e191cbde15836a23e4c0274fff6.tar.bz2 budget-38896af4281d2e191cbde15836a23e4c0274fff6.zip | |
Add mean payment by month
Diffstat (limited to 'src/client/elm/LoggedIn/Home/View/Paging.elm')
| -rw-r--r-- | src/client/elm/LoggedIn/Home/View/Paging.elm | 13 |
1 files changed, 8 insertions, 5 deletions
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 |