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

Improve the way the field fields work on various pages

Browse source 
Remove the brackets from the values since this makes the set of values more
consistent, and don't display the no additional fields value on the page.
This commit is contained in:
Christopher Baines 2022-01-31 20:25:06 +00:00
parent f1418c4e88
commit 752d21ad05
2 changed files with 29 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -680,7 +680,8 @@
(lambda (field)
(cons field
(hyphenate-words
(string-downcase field))))
(remove-brackets
(string-downcase field)))))
'("(no additional fields)" "Builds")))
(define fields

45
guix-data-service/web/revision/html.scm
View file

@ -549,14 +549,18 @@
any-translations-available?
#:key path-base
header-text header-link)
(define fields
'("Version" "Synopsis" "Description"
"Home page" "Location" "Licenses"))
(define field-options
(map
(lambda (field)
(cons field
(hyphenate-words
(string-downcase field))))
'("Version" "Synopsis" "Description"
"Home page" "Location" "Licenses")))
(remove-brackets
(string-downcase field)))))
`("(no additional fields)" ,@fields)))
(layout
#:title
@ -642,12 +646,12 @@
(tr
(th (@ (class "col-md-3")) "Name")
,@(filter-map
(match-lambda
((label . value)
(if (member value (assq-ref query-parameters 'field))
`(th (@ (class "col-md-3")) ,label)
#f)))
field-options)
(lambda (field)
(if (member (assoc-ref field-options field)
(assq-ref query-parameters 'field))
`(th (@ (class "col-md-3")) ,field)
#f))
fields)
(th (@ (class "col-md-3")) "")))
(tbody
,@(let ((fields (assq-ref query-parameters 'field)))
@ -1543,7 +1547,8 @@ figure {
(lambda (field)
(cons field
(hyphenate-words
(string-downcase field))))
(remove-brackets
(string-downcase field)))))
'("(no additional fields)" "System" "Target" "Builds")))
(define fields
@ -2210,13 +2215,17 @@ figure {
any-translated-lint-warnings?
#:key path-base
header-text header-link)
(define fields
'("Linter" "Message" "Location"))
(define field-options
(map
(lambda (field)
(cons field
(hyphenate-words
(string-downcase field))))
'("Linter" "Message" "Location")))
(remove-brackets
(string-downcase field)))))
`("(no additional fields)" ,@fields)))
(layout
#:title
@ -2300,12 +2309,12 @@ figure {
(tr
(th (@ (class "col-md-3")) "Package")
,@(filter-map
(match-lambda
((label . value)
(if (member value (assq-ref query-parameters 'field))
`(th (@ (class "col-md-3")) ,label)
#f)))
field-options)
(lambda (field)
(if (member (assoc-ref field-options field)
(assq-ref query-parameters 'field))
`(th (@ (class "col-md-3")) ,field)
#f))
fields)
(th (@ (class "col-md-3")) "")))
(tbody
,@(let ((fields (assq-ref query-parameters 'field)))