Adding paging (need some fixes)

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) ]
+               )
+        )