diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-11-14 21:19:38 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-11-21 19:54:54 +0000 |
| commit | 81eb5f88d15d47a7702bd2e96f0d113cbff0f3f9 (patch) | |
| tree | f0153c280246b43a4c9a638d995174640e5cad09 | |
| parent | 022cbc68efed31983309627a60b2043019f01df5 (diff) | |
| download | data-service-81eb5f88d15d47a7702bd2e96f0d113cbff0f3f9.tar data-service-81eb5f88d15d47a7702bd2e96f0d113cbff0f3f9.tar.gz | |
Add a generic way of presenting values that may be store items
| -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)) |