mirror of
git://git.savannah.gnu.org/guix/data-service.git
synced 2023-12-14 03:23:03 +01:00
Add some navigation buttons
Both to the packages and derivations packages, as well as the JSON representation of the pages.
This commit is contained in:
Christopher Baines
parent
2836a848cb
commit
46c724456f
|
|
@ -138,6 +138,10 @@
|
|||
removed-packages
|
||||
version-changes
|
||||
other-changes)
|
||||
(define query-params
|
||||
(string-append "?base_commit=" base-commit
|
||||
"&target_commit=" target-commit))
|
||||
|
||||
(layout
|
||||
#:extra-headers
|
||||
'((cache-control . ((max-age . 60))))
|
||||
|
|
@ -145,11 +149,31 @@
|
|||
`(,(header)
|
||||
(div
|
||||
(@ (class "container"))
|
||||
(h1 "Comparing "
|
||||
(div
|
||||
(@ (class "row"))
|
||||
(h1 (@ (class "pull-left"))
|
||||
"Comparing "
|
||||
(samp ,(string-take base-commit 8) "…")
|
||||
" and "
|
||||
(samp ,(string-take target-commit 8) "…"))
|
||||
(h3 "New packages")
|
||||
(div
|
||||
(@ (class "btn-group-vertical btn-group-lg pull-right") (role "group"))
|
||||
(a (@ (class "btn btn-default")
|
||||
(href ,(string-append "/compare/packages" query-params)))
|
||||
"Compare packages")
|
||||
(a (@ (class "btn btn-default")
|
||||
(href ,(string-append "/compare/derivations" query-params)))
|
||||
"Compare derivations")))
|
||||
(div
|
||||
(@ (class "row") (style "clear: left;"))
|
||||
(a (@ (class "btn btn-default btn-lg")
|
||||
(href ,(string-append
|
||||
"/compare.json" query-params)))
|
||||
"View JSON"))
|
||||
(div
|
||||
(@ (class "row"))
|
||||
(h3 (@ (style "clear: both;"))
|
||||
"New packages")
|
||||
,(if (null? new-packages)
|
||||
'(p "No new packages")
|
||||
`(table
|
||||
|
|
@ -165,7 +189,9 @@
|
|||
`(tr
|
||||
(td ,name)
|
||||
(td ,version))))
|
||||
new-packages))))
|
||||
new-packages)))))
|
||||
(div
|
||||
(@ (class "row"))
|
||||
(h3 "Removed packages")
|
||||
,(if (null? removed-packages)
|
||||
'(p "No removed packages")
|
||||
|
|
@ -182,7 +208,9 @@
|
|||
`(tr
|
||||
(td ,name)
|
||||
(td ,version))))
|
||||
removed-packages))))
|
||||
removed-packages)))))
|
||||
(div
|
||||
(@ (class "row"))
|
||||
(h3 "Version changes")
|
||||
,(if (null? version-changes)
|
||||
'(p "No version changes")
|
||||
|
|
@ -209,7 +237,9 @@
|
|||
" (old)"
|
||||
" (new)"))))
|
||||
versions))))))
|
||||
version-changes))))
|
||||
version-changes)))))
|
||||
(div
|
||||
(@ (class "row"))
|
||||
(h3 "Other changed packages")
|
||||
,@(if (null? other-changes)
|
||||
'((p "No other changes"))
|
||||
|
|
@ -227,12 +257,16 @@
|
|||
`(tr
|
||||
(td ,name)
|
||||
(td ,version))))
|
||||
other-changes)))))))))
|
||||
other-changes))))))))))
|
||||
|
||||
(define (compare/derivations base-commit
|
||||
target-commit
|
||||
base-derivations
|
||||
target-derivations)
|
||||
(define query-params
|
||||
(string-append "?base_commit=" base-commit
|
||||
"&target_commit=" target-commit))
|
||||
|
||||
(layout
|
||||
#:extra-headers
|
||||
'((cache-control . ((max-age . 60))))
|
||||
|
|
@ -240,10 +274,18 @@
|
|||
`(,(header)
|
||||
(div
|
||||
(@ (class "container"))
|
||||
(div
|
||||
(@ (class "row"))
|
||||
(h1 "Comparing "
|
||||
(samp ,(string-take base-commit 8) "…")
|
||||
" and "
|
||||
(samp ,(string-take target-commit 8) "…"))
|
||||
(a (@ (class "btn btn-default btn-lg")
|
||||
(href ,(string-append
|
||||
"/compare/derivations.json" query-params)))
|
||||
"View JSON"))
|
||||
(div
|
||||
(@ (class "row"))
|
||||
(h3 "Base ("
|
||||
(samp ,base-commit)
|
||||
")")
|
||||
|
|
@ -259,7 +301,9 @@
|
|||
((id file-name)
|
||||
`(tr
|
||||
(td ,file-name))))
|
||||
base-derivations)))
|
||||
base-derivations))))
|
||||
(div
|
||||
(@ (class "row"))
|
||||
(h3 "Target ("
|
||||
(samp ,target-commit)
|
||||
")")
|
||||
|
|
@ -275,12 +319,16 @@
|
|||
((id file-name)
|
||||
`(tr
|
||||
(td ,file-name))))
|
||||
target-derivations)))))))
|
||||
target-derivations))))))))
|
||||
|
||||
(define (compare/packages base-commit
|
||||
target-commit
|
||||
base-packages-vhash
|
||||
target-packages-vhash)
|
||||
(define query-params
|
||||
(string-append "?base_commit=" base-commit
|
||||
"&target_commit=" target-commit))
|
||||
|
||||
(layout
|
||||
#:extra-headers
|
||||
'((cache-control . ((max-age . 60))))
|
||||
|
|
@ -288,10 +336,18 @@
|
|||
`(,(header)
|
||||
(div
|
||||
(@ (class "container"))
|
||||
(div
|
||||
(@ (class "row"))
|
||||
(h1 "Comparing "
|
||||
(samp ,(string-take base-commit 8) "…")
|
||||
" and "
|
||||
(samp ,(string-take target-commit 8) "…"))
|
||||
(a (@ (class "btn btn-default btn-lg")
|
||||
(href ,(string-append
|
||||
"/compare/packages.json" query-params)))
|
||||
"View JSON"))
|
||||
(div
|
||||
(@ (class "row"))
|
||||
(h3 "Base ("
|
||||
(samp ,base-commit)
|
||||
")")
|
||||
|
|
@ -309,7 +365,9 @@
|
|||
`(tr
|
||||
(td ,name)
|
||||
(td ,version))))
|
||||
(vlist->list base-packages-vhash))))
|
||||
(vlist->list base-packages-vhash)))))
|
||||
(div
|
||||
(@ (class "row"))
|
||||
(h3 "Target ("
|
||||
(samp ,target-commit)
|
||||
")")
|
||||
|
|
@ -327,7 +385,7 @@
|
|||
`(tr
|
||||
(td ,name)
|
||||
(td ,version))))
|
||||
(vlist->list target-packages-vhash))))))))
|
||||
(vlist->list target-packages-vhash)))))))))
|
||||
|
||||
(define (compare-unknown-commit base-commit target-commit
|
||||
base-exists? target-exists?
|
||||
|
|
|
|||
Loading…
Reference in a new issue