cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve the next page links on the revision pages

Browse source 
To add or update the relevant query parameter, rather than replacing all the
query parameters with the new value.
This commit is contained in:
Christopher Baines 2019-12-13 17:13:41 +00:00
parent fc9c44b715
commit 67710065f0
1 changed files with 15 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

24
guix-data-service/web/revision/html.scm
View file

@ -612,9 +612,11 @@
,@(if show-next-page? ,@(if show-next-page?
`((div `((div
(@ (class "row")) (@ (class "row"))
(a (@ (href ,(string-append path-base (a (@ (href
"?after_name=" ,(next-page-link path-base
(car (last packages))))) query-parameters
'after_name
(car (last packages)))))
"Next page"))) "Next page")))
'()))))) '())))))
@ -755,9 +757,11 @@
,@(if show-next-page? ,@(if show-next-page?
`((div `((div
(@ (class "row")) (@ (class "row"))
(a (@ (href ,(string-append path-base (a (@ (href
"?after_name=" ,(next-page-link path-base
(car (last derivations))))) query-parameters
'after_name
(car (last derivations)))))
"Next page"))) "Next page")))
'()))))))) '())))))))
@ -853,9 +857,11 @@
,@(if show-next-page? ,@(if show-next-page?
`((div `((div
(@ (class "row")) (@ (class "row"))
(a (@ (href ,(string-append path-base (a (@ (href
"?after_path=" ,(next-page-link path-base
(car (last derivation-outputs))))) query-parameters
'after_path
(car (last derivation-outputs)))))
"Next page"))) "Next page")))
'()))))))) '())))))))