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

Use lint checker related translations on some pages

Browse source 
Signed-off-by: Christopher Baines <mail@cbaines.net>
This commit is contained in:
Danjela Lura 2020-05-28 23:00:10 +02:00 • committed by Christopher Baines
parent b8abe38352
commit d3096de655
8 changed files with 176 additions and 42 deletions
Download patch file Download diff file Expand all files Collapse all files

34
guix-data-service/web/revision/controller.scm
View file

@ -157,11 +157,16 @@
commit-hash)))
(('GET "revision" commit-hash "package" name version)
(if (guix-commit-exists? conn commit-hash)
(render-revision-package-version mime-types
conn
commit-hash
name
version)
(let ((parsed-query-parameters
(parse-query-parameters
request
`((locale ,identity #:default "en_US.utf8")))))
(render-revision-package-version mime-types
conn
commit-hash
name
version
parsed-query-parameters))
(render-unknown-revision mime-types
conn
commit-hash)))
@ -287,7 +292,7 @@
(let ((parsed-query-parameters
(parse-query-parameters
request
`((locale ,identity #:default "en_US.utf8")
`((locale ,identity #:default "en_US.utf8")
(package_query ,identity)
(linter ,identity #:multi-value)
(message_query ,identity)
@ -667,6 +672,7 @@
commit-hash
name
version
query-parameters
#:key
(header-text
`("Revision "
@ -675,7 +681,15 @@
(string-append
"/revision/" commit-hash))
version-history-link)
(let ((metadata
(define lint-warnings-locale-options
(map
(match-lambda
((locale)
locale))
(lint-warning-message-locales-for-revision conn commit-hash)))
(let* ((metadata
(select-package-metadata-by-revision-name-and-version
conn
commit-hash
@ -690,12 +704,14 @@
(git-repositories
(git-repositories-containing-commit conn
commit-hash))
(locale (assq-ref query-parameters 'locale))
(lint-warnings
(select-lint-warnings-by-revision-package-name-and-version
conn
commit-hash
name
version)))
version
#:locale locale)))
(case (most-appropriate-mime-type
'(application/json text/html)
mime-types)
@ -725,6 +741,8 @@
derivations
git-repositories
lint-warnings
query-parameters
lint-warnings-locale-options
#:header-text header-text
#:header-link header-link
#:version-history-link