ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2024-12-15 01:52:42 +03:00
Code Issues Packages Projects Releases Wiki Activity

link-server-hook: include item count with page count

Browse Source
This commit is contained in:
Fang 2020-01-10 14:25:17 -08:00
parent 740836348d
commit df2ed4b5a6
No known key found for this signature in database
GPG Key ID: EB035760C1BBA972
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
pkg/arvo/app/link-server-hook.hoon
View File

@ -239,8 +239,9 @@
++ 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)
@ -248,16 +249,19 @@
::
++ 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
@ -270,7 +274,7 @@
::
++ get-local-pages
|= [=path p=(unit @ud)]
^- [@ud pages]
^- [@ud @ud pages]
=- (get-paginated - p)
.^ pages
%gx
@ -283,7 +287,7 @@
::
++ get-discussions
|= [=path p=(unit @ud)]
^- [@ud comments]
^- [@ud @ud comments]
=- (get-paginated - p)
.^ comments
%gx