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

Add support for query parameters to the View JSON button of Jobs

Browse source 
Signed-off-by: Christopher Baines <mail@cbaines.net>
This commit is contained in:
Danjela Lura 2020-04-24 08:31:24 +02:00 • committed by Christopher Baines
parent 5af213a165
commit 0ec2673493
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
guix-data-service/web/jobs/html.scm
View file

@ -20,6 +20,7 @@
#:use-module (ice-9 match)
#:use-module (guix-data-service web html-utils)
#:use-module (guix-data-service web view html)
#:use-module (guix-data-service web query-parameters)
#:export (view-jobs
view-job-events
view-job-queue
@ -112,8 +113,13 @@
(@ (class "btn-group pull-right")
(role "group"))
(a (@ (class "btn btn-lg btn-default")
(href ,(string-append
"/jobs.json"))
(href ,(let ((query-params
(query-parameters->string query-parameters)))
(string-append
"/jobs.json"
(if (string-null? query-params)
""
(string-append "?" query-params)))))
(role "button"))
"View JSON"))