|
|
|
@ -15,8 +15,8 @@ I've modified the code a little bit to fit my needs but it's, for the most part,
|
|
|
|
|
as I found it (`BUTTON-RANGE' is the main thing I've added). |
|
|
|
|
|# |
|
|
|
|
|
|
|
|
|
(defun make-pagination (&key (page 1) (nb-elements 0) (page-size 200) |
|
|
|
|
(max-nb-buttons 5)) |
|
|
|
|
(defun make-pagination |
|
|
|
|
(&key (page 1) (nb-elements 0) (page-size 200) (max-nb-buttons 5)) |
|
|
|
|
"From a current page number, a total number of elements, a page size, |
|
|
|
|
return a dict with all of that, and the total number of pages. |
|
|
|
|
Example: |
|
|
|
|