From 81eb5f88d15d47a7702bd2e96f0d113cbff0f3f9 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 14 Nov 2019 21:19:38 +0000 Subject: Add a generic way of presenting values that may be store items --- guix-data-service/web/view/html.scm | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index 93d44a9..560505a 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -32,6 +32,7 @@ header form-horizontal-control + display-possible-store-item display-store-item display-store-item-short build-status-span @@ -426,6 +427,18 @@ (style "display: inline-block; font-size: 1.2em; margin-top: 0.4em;")) ,(build-status-value->display-string status))) +(define (display-possible-store-item value) + (match (string-split value #\/) + (("" "gnu" "store" item) + `(a (@ (href ,value)) + ,(display-store-item value))) + (("" "gnu" "store" item fileparts ...) + `(a (@ (href ,value)) + ,(display-file-in-store-item-oneline value))) + (_ + `(span (@ (style "font-family: monospace;")) + ,value)))) + (define (display-store-item-short item) `((span (@ (style "font-size: small; font-family: monospace; display: block;")) ,(string-take item 44)) -- cgit v1.2.3