cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't have all the inputs use a monospace font

Browse source 
Only those where it's appropriate for the data, like commit hashes.
This commit is contained in:
Christopher Baines 2019-06-20 14:19:11 +02:00
parent 66364207f4
commit bb02511607
1 changed files with 24 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

37
guix-data-service/web/view/html.scm
View file

@ -102,6 +102,7 @@
help-text help-text
required? required?
options options
font-family
(type "text")) (type "text"))
(define (value->text value) (define (value->text value)
(match value (match value
@ -133,7 +134,10 @@
(@ (class "col-sm-9")) (@ (class "col-sm-9"))
,(if options ,(if options
`(select (@ (class "form-control") `(select (@ (class "form-control")
(style "font-family: monospace;") (style ,(if font-family
(string-append
"font-family: " font-family ";")
""))
(multiple #t) (multiple #t)
(id ,input-id) (id ,input-id)
,@(if show-help-span? ,@(if show-help-span?
@ -149,22 +153,25 @@
(_ '())))) (_ '()))))
(map (match-lambda (map (match-lambda
((option-value)
`(option
(@ ,@(if (member option-value selected-options)
'((selected ""))
'()))
,(value->text option-value)))
((option-label . option-value) ((option-label . option-value)
`(option `(option
(@ ,@(if (member option-value selected-options) (@ ,@(if (member option-value selected-options)
'((selected "")) '((selected ""))
'()) '())
(value ,option-value)) (value ,option-value))
,(value->text option-label)))) ,(value->text option-label)))
(option-value
`(option
(@ ,@(if (member option-value selected-options)
'((selected ""))
'()))
,(value->text option-value))))
options))) options)))
`(input (@ (class "form-control") `(input (@ (class "form-control")
(style "font-family: monospace;") (style ,(if font-family
(string-append
"font-family: " font-family ";")
""))
(id ,input-id) (id ,input-id)
(type ,type) (type ,type)
,@(if required? ,@(if required?
@ -1318,19 +1325,23 @@
,(form-horizontal-control ,(form-horizontal-control
"Base commit" query-parameters "Base commit" query-parameters
#:required? #t #:required? #t
#:help-text "The commit to use as the basis for the comparison.") #:help-text "The commit to use as the basis for the comparison."
#:font-family "monospace")
,(form-horizontal-control ,(form-horizontal-control
"Target commit" query-parameters "Target commit" query-parameters
#:required? #t #:required? #t
#:help-text "The commit to compare against the base commit.") #:help-text "The commit to compare against the base commit."
#:font-family "monospace")
,(form-horizontal-control ,(form-horizontal-control
"System" query-parameters "System" query-parameters
#:options valid-systems #:options valid-systems
#:help-text "Only include derivations for this system.") #:help-text "Only include derivations for this system."
#:font-family "monospace")
,(form-horizontal-control ,(form-horizontal-control
"Target" query-parameters "Target" query-parameters
#:options valid-systems #:options valid-systems
#:help-text "Only include derivations that are build for this system.") #:help-text "Only include derivations that are build for this system."
#:font-family "monospace")
,(form-horizontal-control ,(form-horizontal-control
"Build status" query-parameters "Build status" query-parameters
#:options valid-build-statuses #:options valid-build-statuses