guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

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
Show stats 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
"/repository/" repository-id
"/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
conn
commit-hash))))

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

@ -548,7 +548,8 @@
(samp ,commit-hash)))
(header-link
(string-append
"/revision/" commit-hash)))
"/revision/" commit-hash))
version-history-link)
(let ((metadata
(select-package-metadata-by-revision-name-and-version
conn
@ -600,7 +601,9 @@
git-repositories
lint-warnings
#: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)))))
(define* (render-revision-derivations mime-types

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

@ -159,7 +159,8 @@
derivations git-repositories
lint-warnings
#:key header-text
header-link)
header-link
version-history-link)
(layout
#:body
`(,(header)
@ -175,6 +176,12 @@
(@ (class "row"))
(div
(@ (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)))
(div
(@ (class "row"))