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

Fix some links on the compare page

Browse source
This commit is contained in:
Christopher Baines 2020-11-21 20:10:46 +00:00
parent 12f35c493b
commit 814a5d7cba
1 changed files with 16 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

23
guix-data-service/web/compare/html.scm
View file

@ -54,9 +54,7 @@
(define query-params (define query-params
(unless invalid-query? (unless invalid-query?
(string-append "?base_commit=" base-commit (query-parameters->string query-parameters)))
"&target_commit=" target-commit
"&locale=" locale)))
(layout (layout
#:body #:body
@ -172,17 +170,28 @@
(@ (class "btn-group btn-group-lg") (@ (class "btn-group btn-group-lg")
(role "group")) (role "group"))
(a (@ (class "btn btn-default") (a (@ (class "btn btn-default")
(href ,(string-append "/compare/packages" query-params))) (href ,(string-append
"/"
(cond
((eq? mode 'revision) "compare")
((eq? mode 'datetime) "compare-by-datetime"))
"/packages?"
query-params)))
"Compare packages") "Compare packages")
(a (@ (class "btn btn-default") (a (@ (class "btn btn-default")
(href ,(string-append "/compare/package-derivations" (href ,(string-append
query-params))) "/"
(cond
((eq? mode 'revision) "compare")
((eq? mode 'datetime) "compare-by-datetime"))
"/package-derivations?"
query-params)))
"Compare package derivations"))) "Compare package derivations")))
(div (div
(@ (class "col-sm-6")) (@ (class "col-sm-6"))
(a (@ (class "btn btn-default btn-lg pull-right") (a (@ (class "btn btn-default btn-lg pull-right")
(href ,(string-append (href ,(string-append
"/compare.json" query-params))) "/compare.json?" query-params)))
"View JSON"))) "View JSON")))
(div (div
(@ (class "row")) (@ (class "row"))