guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

Extract out the compare form controls

Browse source 
So they can be used for the package derivations page
This commit is contained in:
Christopher Baines 2020-11-21 20:25:26 +00:00
parent 814a5d7cba
commit 56983eb03e
1 changed files with 38 additions and 35 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

73
guix-data-service/web/compare/html.scm
View file

@ -31,6 +31,43 @@
compare/packages
compare-invalid-parameters))
(define (compare-form-controls-for-mode mode query-parameters)
(cond
((eq? mode 'revision)
(list
(form-horizontal-control
"Base commit" query-parameters
#:required? #t
#:help-text "The commit to use as the basis for the comparison."
#:font-family "monospace")
(form-horizontal-control
"Target commit" query-parameters
#:required? #t
#:help-text "The commit to compare against the base commit."
#:font-family "monospace")))
((eq? mode 'datetime)
(list
(form-horizontal-control
"Base branch" query-parameters
#:required? #t
#:help-text "The branch to compare from."
#:font-family "monospace")
(form-horizontal-control
"Base datetime" query-parameters
#:help-text "The date and time to compare from."
#:font-family "monospace")
(form-horizontal-control
"Target branch" query-parameters
#:required? #t
#:help-text "The branch to compare to."
#:font-family "monospace")
(form-horizontal-control
"Target datetime" query-parameters
#:help-text "The date and time to compare to."
#:font-family "monospace")))
(else
'())))
(define (compare query-parameters
mode
cgit-url-bases
@ -112,41 +149,7 @@
(action "")
(style "padding-bottom: 0")
(class "form-horizontal"))
,@(cond
((eq? mode 'revision)
(list
(form-horizontal-control
"Base commit" query-parameters
#:required? #t
#:help-text "The commit to use as the basis for the comparison."
#:font-family "monospace")
(form-horizontal-control
"Target commit" query-parameters
#:required? #t
#:help-text "The commit to compare against the base commit."
#:font-family "monospace")))
((eq? mode 'datetime)
(list
(form-horizontal-control
"Base branch" query-parameters
#:required? #t
#:help-text "The branch to compare from."
#:font-family "monospace")
(form-horizontal-control
"Base datetime" query-parameters
#:help-text "The date and time to compare from."
#:font-family "monospace")
(form-horizontal-control
"Target branch" query-parameters
#:required? #t
#:help-text "The branch to compare to."
#:font-family "monospace")
(form-horizontal-control
"Target datetime" query-parameters
#:help-text "The date and time to compare to."
#:font-family "monospace")))
(else
'()))
,@(compare-form-controls-for-mode mode query-parameters)
,(form-horizontal-control
"Locale" query-parameters
#:name "locale"