Pagination

open System
open FSharp.ViewEngine
open Acme.Components.Primitives
open Acme.Components.Application
open type Html
open type Svg
open type Datastar

type PaginationDestination = PaginationPage of int

let paginationDestinationUrl (PaginationPage page) =
    $"/components/pagination/page?page={page}"

let paginationPreview requestedPage =
    let currentPage = Math.Clamp(requestedPage, 1, 8)
    let pageItem page =
        if page = currentPage then PaginationItem.current page
        else PaginationItem.link page (PaginationPage page)
    let middlePages = [ max 2 (currentPage - 1) .. min 7 (currentPage + 1) ]
    let items = [
        pageItem 1
        if List.head middlePages > 2 then PaginationItem.gap
        for page in middlePages do pageItem page
        if List.last middlePages < 7 then PaginationItem.gap
        pageItem 8
    ]
    let firstResult = (currentPage - 1) * 25 + 1
    let lastResult = min 184 (currentPage * 25)

    Pagination.create "Accounts pages" items
    |> (if currentPage > 1 then Pagination.withPrevious (PaginationPage(currentPage - 1)) else id)
    |> (if currentPage < 8 then Pagination.withNext (PaginationPage(currentPage + 1)) else id)
    |> Pagination.withSummary (span { $"Showing {firstResult}–{lastResult} of 184 accounts" })
    |> Pagination.render paginationDestinationUrl