diff options
Diffstat (limited to 'guix-data-service/web/repository/html.scm')
| -rw-r--r-- | guix-data-service/web/repository/html.scm | 27 |
1 files changed, 26 insertions, 1 deletions
diff --git a/guix-data-service/web/repository/html.scm b/guix-data-service/web/repository/html.scm index 37aaadc..4503f08 100644 --- a/guix-data-service/web/repository/html.scm +++ b/guix-data-service/web/repository/html.scm @@ -290,9 +290,11 @@ (rationalize width 1))))))))))) versions-by-revision-range)))))))))) -(define (view-branch-package-derivations git-repository-id +(define (view-branch-package-derivations query-parameters + git-repository-id branch-name package-name + valid-systems build-server-urls derivations-by-revision-range) (define versions-list @@ -335,6 +337,29 @@ (h1 (@ (style "white-space: nowrap;")) (samp ,package-name)))) (div + (@ (class "col-md-12")) + (div + (@ (class "well")) + (form + (@ (method "get") + (action "") + (class "form-horizontal")) + ,(form-horizontal-control + "System" query-parameters + #:options valid-systems + #:allow-selecting-multiple-options #f + #:help-text "Show derivations with this system.") + ,(form-horizontal-control + "Target" query-parameters + #:options valid-systems + #:allow-selecting-multiple-options #f + #:help-text "Show derivations with this target.") + (div (@ (class "form-group form-group-lg")) + (div (@ (class "col-sm-offset-2 col-sm-10")) + (button (@ (type "submit") + (class "btn btn-lg btn-primary")) + "Update results")))))) + (div (@ (class "row")) (div (@ (class "col-md-12")) |