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

Link from the revision package page to the version history page

Browse source
This commit is contained in:
Christopher Baines 2019-10-03 22:08:06 +01:00
parent fb301a8495
commit a104fbc5e1
2 changed files with 19 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
guix-data-service/web/controller.scm
View file

@ -293,7 +293,10 @@
(let ((package-versions (let ((package-versions
(select-package-versions-for-revision conn (select-package-versions-for-revision conn
commit-hash commit-hash
name))) name))
(git-repositories-and-branches
(git-branches-with-repository-details-for-commit conn
commit-hash)))
(case (most-appropriate-mime-type (case (most-appropriate-mime-type
'(application/json text/html) '(application/json text/html)
mime-types) mime-types)
@ -306,6 +309,7 @@
#:sxml (view-revision-package commit-hash #:sxml (view-revision-package commit-hash
name name
package-versions package-versions
git-repositories-and-branches
#:path-base path-base #:path-base path-base
#:header-text header-text #:header-text header-text
#:header-link header-link) #:header-link header-link)

14
guix-data-service/web/view/html.scm
View file

@ -312,6 +312,7 @@
(define* (view-revision-package revision-commit-hash (define* (view-revision-package revision-commit-hash
name name
versions versions
git-repositories-and-branches
#:key path-base #:key path-base
header-text header-text
header-link) header-link)
@ -330,6 +331,19 @@
(@ (class "row")) (@ (class "row"))
(div (div
(@ (class "col-sm-12")) (@ (class "col-sm-12"))
,(append-map
(match-lambda
(((id label url cgit-url-base) . branches)
(map (match-lambda
((branch-name datetime)
`(a (@ (class "btn btn-default btn-lg pull-right")
(href ,(simple-format
#f "/repository/~A/branch/~A/package/~A"
id branch-name name)))
,(simple-format #f "View ~A branch version history"
branch-name))))
branches)))
git-repositories-and-branches)
(h1 "Package " ,name))) (h1 "Package " ,name)))
(div (div
(@ (class "row")) (@ (class "row"))