aboutsummaryrefslogtreecommitdiff
path: root/src/client/View/Payments
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/View/Payments')
-rw-r--r--src/client/View/Payments/Paging.elm88
1 files changed, 77 insertions, 11 deletions
diff --git a/src/client/View/Payments/Paging.elm b/src/client/View/Payments/Paging.elm
index 7be4c7b..c3db819 100644
--- a/src/client/View/Payments/Paging.elm
+++ b/src/client/View/Payments/Paging.elm
@@ -14,18 +14,84 @@ import ServerCommunication as SC exposing (serverCommunications)
import Update exposing (..)
import Update.Payment exposing (..)
+import View.Icon exposing (renderIcon)
+
+showedPages : Int
+showedPages = 5
+
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) ]
+ pages = truncatePages paymentView.currentPage [1..maxPage]
+ in if maxPage == 1
+ then
+ text ""
+ else
+ ul
+ [ class "pages" ]
+ ( ( if paymentView.currentPage > 1
+ then [ firstPage, previousPage paymentView ]
+ else []
+ )
+ ++ ( List.map (paymentsPage paymentView) pages)
+ ++ ( if paymentView.currentPage < maxPage
+ then [ nextPage paymentView, lastPage maxPage ]
+ else []
)
- )
+ )
+
+truncatePages : Int -> List Int -> List Int
+truncatePages currentPage pages =
+ let totalPages = List.length pages
+ showedLeftPages = ceiling ((toFloat showedPages - 1) / 2)
+ showedRightPages = floor ((toFloat showedPages - 1) / 2)
+ truncatedPages =
+ if | currentPage < showedLeftPages ->
+ [1..showedPages]
+ | currentPage > totalPages - showedRightPages ->
+ [(totalPages - showedPages)..totalPages]
+ | otherwise ->
+ [(currentPage - showedLeftPages)..(currentPage + showedRightPages)]
+ in List.filter (flip List.member pages) truncatedPages
+
+firstPage : Html
+firstPage =
+ li
+ [ class "page"
+ , onClick serverCommunications.address (SC.UpdatePage 1)
+ ]
+ [ renderIcon "fast-backward" ]
+
+previousPage : PaymentView -> Html
+previousPage paymentView =
+ li
+ [ class "page"
+ , onClick serverCommunications.address (SC.UpdatePage (paymentView.currentPage - 1))
+ ]
+ [ renderIcon "backward" ]
+
+nextPage : PaymentView -> Html
+nextPage paymentView =
+ li
+ [ class "page"
+ , onClick serverCommunications.address (SC.UpdatePage (paymentView.currentPage + 1))
+ ]
+ [ renderIcon "forward" ]
+
+lastPage : Int -> Html
+lastPage maxPage =
+ li
+ [ class "page"
+ , onClick serverCommunications.address (SC.UpdatePage maxPage)
+ ]
+ [ renderIcon "fast-forward" ]
+
+paymentsPage : PaymentView -> Int -> Html
+paymentsPage paymentView page =
+ let onCurrentPage = page == paymentView.currentPage
+ in li
+ [ class ("page" ++ (if onCurrentPage then " current" else ""))
+ , onClick serverCommunications.address <|
+ if onCurrentPage then SC.NoCommunication else SC.UpdatePage page
+ ]
+ [ text (toString page) ]