From 022cbc68efed31983309627a60b2043019f01df5 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 14 Nov 2019 21:08:23 +0000 Subject: Link to the formatted derivation page --- guix-data-service/web/view/html.scm | 26 ++++++++++++++++++++++++-- 1 file changed, 24 insertions(+), 2 deletions(-) diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 9381b2b..93d44a9 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -516,7 +516,18 @@ (@ (class "row")) (div (@ (class "col-sm-12")) - ,(display-store-item-title file-name))))) + ,(display-store-item-title file-name) + (div + (@ (class "btn-group pull-right") + (role "group")) + (a (@ (class "btn btn-lg btn-default disabled") + (href ,file-name) + (role "button")) + "Detail view") + (a (@ (class "btn btn-lg btn-default") + (href ,(string-append file-name "/formatted")) + (role "button")) + "Formatted view")))))) (div (@ (class "row")) (div @@ -600,7 +611,18 @@ (@ (class "row")) (div (@ (class "col-sm-12")) - ,(display-store-item-title file-name))))) + ,(display-store-item-title file-name) + (div + (@ (class "btn-group pull-right") + (role "group")) + (a (@ (class "btn btn-lg btn-default") + (href ,file-name) + (role "button")) + "Detail view") + (a (@ (class "btn btn-lg btn-default disabled") + (href ,(string-append file-name "/formatted")) + (role "button")) + "Formatted view")))))) (div (@ (class "row")) (div -- cgit v1.2.3