aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-12-27 10:13:34 +0000
committerChristopher Baines <mail@cbaines.net>2019-12-27 10:13:34 +0000
commit50f550d6429b6297daa264d3924a1123710eaebd (patch)
tree95aa96e6bf917f4814c49e97ef7535026f589f8a /guix-data-service
parent1ce1a405a6048952a3707e3c369f26c94e81e184 (diff)
downloaddata-service-50f550d6429b6297daa264d3924a1123710eaebd.tar
data-service-50f550d6429b6297daa264d3924a1123710eaebd.tar.gz
Link to the versions page from the latest revision package page
Diffstat (limited to 'guix-data-service')
-rw-r--r--guix-data-service/web/repository/controller.scm7
-rw-r--r--guix-data-service/web/revision/controller.scm7
-rw-r--r--guix-data-service/web/revision/html.scm9
3 files changed, 19 insertions, 4 deletions
diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm
index ffa9e40..5838d24 100644
--- a/guix-data-service/web/repository/controller.scm
+++ b/guix-data-service/web/repository/controller.scm
@@ -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))))
diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm
index 90416df..197919f 100644
--- a/guix-data-service/web/revision/controller.scm
+++ b/guix-data-service/web/revision/controller.scm
@@ -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
diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm
index c50c487..5f74cb4 100644
--- a/guix-data-service/web/revision/html.scm
+++ b/guix-data-service/web/revision/html.scm
@@ -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"))