From c1f44a5890fbb26faf6f17c676662ea1bd495f2e Mon Sep 17 00:00:00 2001
From: Joris
Date: Fri, 4 Sep 2015 09:52:20 +0200
Subject: Adding paging (need some fixes)

---
 src/client/View/Payments/Paging.elm | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 src/client/View/Payments/Paging.elm

(limited to 'src/client/View/Payments/Paging.elm')

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) ]
+               )
+        )
-- 
cgit v1.2.3