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

Link to the versions page from the latest revision package page

Browse source
This commit is contained in:
Christopher Baines 2019-12-27 10:13:34 +00:00
parent 1ce1a405a6
commit 50f550d642
3 changed files with 19 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
guix-data-service/web/repository/controller.scm
View file

@ -255,7 +255,12 @@
(string-append (string-append
"/repository/" repository-id "/repository/" repository-id
"/branch/" branch-name "/branch/" branch-name
"/latest-processed-revision")) "/latest-processed-revision")
#:version-history-link
(string-append
"/repository/" repository-id
"/branch/" branch-name
"/package/" name))
(render-unknown-revision mime-types (render-unknown-revision mime-types
conn conn
commit-hash)))) commit-hash))))

7
guix-data-service/web/revision/controller.scm
View file

@ -548,7 +548,8 @@
(samp ,commit-hash))) (samp ,commit-hash)))
(header-link (header-link
(string-append (string-append
"/revision/" commit-hash))) "/revision/" commit-hash))
version-history-link)
(let ((metadata (let ((metadata
(select-package-metadata-by-revision-name-and-version (select-package-metadata-by-revision-name-and-version
conn conn
@ -600,7 +601,9 @@
git-repositories git-repositories
lint-warnings lint-warnings
#:header-text header-text #:header-text header-text
#:header-link header-link) #:header-link header-link
#:version-history-link
version-history-link)
#:extra-headers http-headers-for-unchanging-content))))) #:extra-headers http-headers-for-unchanging-content)))))
(define* (render-revision-derivations mime-types (define* (render-revision-derivations mime-types

9
guix-data-service/web/revision/html.scm
View file

@ -159,7 +159,8 @@
derivations git-repositories derivations git-repositories
lint-warnings lint-warnings
#:key header-text #:key header-text
header-link) header-link
version-history-link)
(layout (layout
#:body #:body
`(,(header) `(,(header)
@ -175,6 +176,12 @@
(@ (class "row")) (@ (class "row"))
(div (div
(@ (class "col-sm-12")) (@ (class "col-sm-12"))
,@(if version-history-link
`((a (@ (class "btn btn-lg btn-default pull-right")
(href ,version-history-link)
(role "button"))
"Version history"))
'())
(h1 "Package " ,name " @ " ,version))) (h1 "Package " ,name " @ " ,version)))
(div (div
(@ (class "row")) (@ (class "row"))