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

Add a View JSON button to the packages page

Browse source
This commit is contained in:
Christopher Baines 2019-05-16 22:44:07 +01:00
parent dfb1da3197
commit f04690f38c
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -490,6 +490,7 @@
(form (form
(@ (method "get") (@ (method "get")
(action "") (action "")
(style "padding-bottom: 0")
(class "form-horizontal")) (class "form-horizontal"))
,(form-horizontal-control ,(form-horizontal-control
"Search query" query-parameters "Search query" query-parameters
@ -512,6 +513,19 @@
(button (@ (type "submit") (button (@ (type "submit")
(class "btn btn-lg btn-primary")) (class "btn btn-lg btn-primary"))
"Update results"))))))) "Update results")))))))
(div
(@ (class "row"))
(div
(@ (class "col-sm-12"))
(a (@ (class "btn btn-default btn-lg pull-right")
(href ,(let ((query-parameter-string
(query-parameters->string query-parameters)))
(string-append
"/revision/" revision-commit-hash "/packages.json"
(if (string-null? query-parameter-string)
""
(string-append "?" query-parameter-string))))))
"View JSON")))
(div (div
(@ (class "row")) (@ (class "row"))
(div (div