link-server-hook: include item count with page count
++ page-size 25
++ get-paginated
|* [l=(list) p=(unit @ud)]
- ^- [pages=@ud page=_l]
- :- +((div (lent l) page-size))
+ ^- [total=@ud pages=@ud page=_l]
+ :+ (lent l)
+ +((div (lent l) page-size))
?~ p l
%+ scag page-size
%+ slag (mul u.p page-size)
::
++ page-to-json
=, enjs:format
- |* [[total-pages=@ud page=(list)] item-to-json=$-(* json)]
+ |* $: [total-items=@ud total-pages=@ud page=(list)]
+ item-to-json=$-(* json)
+ ==
^- json
%- pairs
- :~ 'total-pages'^(numb total-pages)
+ :~ 'total-items'^(numb total-items)
+ 'total-pages'^(numb total-pages)
'page'^a+(turn page item-to-json)
==
::
++ get-submissions
|= [=path p=(unit @ud)]
- ^- [@ud submissions]
+ ^- [@ud @ud submissions]
=- (get-paginated - p)
.^ submissions
%gx
::
++ get-local-pages
|= [=path p=(unit @ud)]
- ^- [@ud pages]
+ ^- [@ud @ud pages]
=- (get-paginated - p)
.^ pages
%gx
::
++ get-discussions
|= [=path p=(unit @ud)]
- ^- [@ud comments]
+ ^- [@ud @ud comments]
=- (get-paginated - p)
.^ comments
%gx
