diff options
Diffstat (limited to 'src/client/View/Payments')
-rw-r--r-- | src/client/View/Payments/Paging.elm | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/src/client/View/Payments/Paging.elm b/src/client/View/Payments/Paging.elm new file mode 100644 index 0000000..7be4c7b --- /dev/null +++ b/src/client/View/Payments/Paging.elm @@ -0,0 +1,31 @@ +module View.Payments.Paging + ( paymentsPaging + ) where + +import Html exposing (..) +import Html.Attributes exposing (..) +import Html.Events exposing (..) + +import Model.View.PaymentView exposing (..) +import Model.Payment exposing (perPage) + +import ServerCommunication as SC exposing (serverCommunications) + +import Update exposing (..) +import Update.Payment exposing (..) + +paymentsPaging : PaymentView -> Html +paymentsPaging paymentView = + let maxPage = ceiling (toFloat paymentView.paymentsCount / toFloat perPage) + pages = [1..maxPage] + in ul + [ class "pages" ] + ( pages + |> List.map (\page -> + li + [ class ("page" ++ (if page == paymentView.currentPage then " current" else "")) + , onClick serverCommunications.address (SC.UpdatePage page) + ] + [ text (toString page) ] + ) + ) |