diff options
Diffstat (limited to 'guix-data-service/web/view/html.scm')
| -rw-r--r-- | guix-data-service/web/view/html.scm | 44 |
1 files changed, 6 insertions, 38 deletions
diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm index ab09644..480b066 100644 --- a/guix-data-service/web/view/html.scm +++ b/guix-data-service/web/view/html.scm @@ -43,7 +43,6 @@ index readme general-not-found - view-statistics view-builds view-derivation view-formatted-derivation @@ -305,10 +304,6 @@ (style "margin-top: 1.3rem;") (role "group")) (a (@ (class "btn btn-lg btn-default") - (href "/statistics") - (role "button")) - "Statistics") - (a (@ (class "btn btn-lg btn-default") (href "/jobs") (role "button")) "Jobs")))) @@ -335,30 +330,6 @@ branches-with-most-recent-commits))))))) git-repositories-and-revisions))))) -(define (view-statistics guix-revisions-count derivations-count) - (define page-header "Statistics") - (layout - #:title - page-header - #:body - `(,(header) - (div - (@ (class "container")) - (div - (@ (class "row")) - (div - (@ (class "col-md-6")) - (h3 "Guix revisions") - (strong (@ (class "text-center") - (style "font-size: 2em; display: block;")) - ,guix-revisions-count)) - (div - (@ (class "col-md-6")) - (h3 "Derivations") - (strong (@ (class "text-center") - (style "font-size: 2em; display: block;")) - ,derivations-count))))))) - (define (table/branches-with-most-recent-commits git-repository-id branches-with-most-recent-commits) `(table @@ -752,9 +723,9 @@ (or hash-algorithm "")) "\"" "," - "\"" ,hash "\"" + "\"" ,(or hash "") "\"" ")" - ,@(if (eq? count-down 0) + ,@(if (= count-down 0) '() '(","))))) derivation-outputs @@ -792,7 +763,7 @@ ",") "]" ")" - ,@(if (eq? count-down 0) + ,@(if (= count-down 0) '() '(","))))) derivation-inputs @@ -818,7 +789,7 @@ (a (@ (href ,source)) ,(display-store-item source)) "\"" - ,@(if (eq? count-down 0) + ,@(if (= count-down 0) '() '(",")))) derivation-sources @@ -879,7 +850,7 @@ `(div "\"" ,(display-possible-store-item arg) "\"" - ,@(if (eq? count-down 0) + ,@(if (= count-down 0) '() '(",")))) args @@ -998,10 +969,7 @@ (h1 "An error occurred") (p "Sorry about that!") ,@(if error - (match error - ((key . args) - `((b ,key) - (pre ,args)))) + `((pre ,error)) '()))))) (define* (server-starting-up-page) |