diff options
| -rw-r--r-- | guix-data-service/web/view/html.scm | 13 |
1 files changed, 13 insertions, 0 deletions
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)) |