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

Add a textual search to the packages page

Browse source
This commit is contained in:
Christopher Baines 2019-05-12 21:17:08 +01:00
parent b151d8bb78
commit 9aaab6b751
2 changed files with 71 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

21
guix-data-service/web/view/html.scm
View file

@ -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))))
@ -439,6 +440,10 @@
(@ (method "get")
(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
@ -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