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

Add a "plain" view for derivations

Browse source
This commit is contained in:
Christopher Baines 2019-12-26 09:04:53 +00:00
parent 16879a8182
commit 43013fc16b
2 changed files with 20 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -307,6 +307,16 @@
(render-formatted-derivation conn (render-formatted-derivation conn
(string-append "/gnu/store/" filename)) (string-append "/gnu/store/" filename))
(not-found (request-uri request)))) (not-found (request-uri request))))
(('GET "gnu" "store" filename "plain")
(if (string-suffix? ".drv" filename)
(let ((raw-drv
(select-serialized-derivation-by-file-name
conn
(string-append "/gnu/store/" filename))))
(if raw-drv
(render-text raw-drv)
(not-found (request-uri request))))
(not-found (request-uri request))))
(('GET "gnu" "store" filename "narinfos") (('GET "gnu" "store" filename "narinfos")
(render-narinfos conn filename)) (render-narinfos conn filename))
(((or 'GET 'POST) "build-server" _ ...) (((or 'GET 'POST) "build-server" _ ...)

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

@ -536,7 +536,11 @@
(a (@ (class "btn btn-lg btn-default") (a (@ (class "btn btn-lg btn-default")
(href ,(string-append file-name "/formatted")) (href ,(string-append file-name "/formatted"))
(role "button")) (role "button"))
"Formatted view")))))) "Formatted view")
(a (@ (class "btn btn-lg btn-default")
(href ,(string-append file-name "/plain"))
(role "button"))
"Plain view"))))))
(div (div
(@ (class "row")) (@ (class "row"))
(div (div
@ -640,7 +644,11 @@
(a (@ (class "btn btn-lg btn-default disabled") (a (@ (class "btn btn-lg btn-default disabled")
(href ,(string-append file-name "/formatted")) (href ,(string-append file-name "/formatted"))
(role "button")) (role "button"))
"Formatted view")))))) "Formatted view")
(a (@ (class "btn btn-lg btn-default")
(href ,(string-append file-name "/plain"))
(role "button"))
"Plain view"))))))
(div (div
(@ (class "row")) (@ (class "row"))
(div (div