diff options
Diffstat (limited to 'guix-data-service/web/view/html.scm')
| -rw-r--r-- | guix-data-service/web/view/html.scm | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 825835b..079b23d 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -414,7 +414,8 @@ (define (view-revision-packages revision-commit-hash query-parameters - packages) + packages + show-next-page?) (layout #:extra-headers '((cache-control . ((max-age . 60)))) @@ -440,6 +441,10 @@ (action "") (class "form-horizontal")) ,(form-horizontal-control + "Search query" query-parameters + #:help-text + "List packages where the name or synopsis match the query.") + ,(form-horizontal-control "After name" query-parameters #:help-text "List packages that are alphabetically after the given name.") @@ -478,12 +483,14 @@ "/package/" name "/" version))) "More information"))))) packages))))) - (div - (@ (class "row")) - (a (@ (href ,(string-append "/revision/" revision-commit-hash - "/packages?after_name=" - (car (last packages))))) - "Next page")))))) + ,@(if show-next-page? + `((div + (@ (class "row")) + (a (@ (href ,(string-append "/revision/" revision-commit-hash + "/packages?after_name=" + (car (last packages))))) + "Next page"))) + '()))))) (define (view-branches branches-with-most-recent-commits) (layout |