Add option to change language of lint messages for the revision page

Signed-off-by: Christopher Baines <mail@cbaines.net>
This commit is contained in:
Danjela lura 2020-04-04 05:02:11 +02:00 committed by Christopher Baines
parent a50bc3342f
commit e514471fc9
4 changed files with 43 additions and 5 deletions

View file

@ -21,7 +21,7 @@
#:use-module (guix-data-service database)
#:use-module (guix-data-service model utils)
#:export (lint-warning-message-data->lint-warning-message-ids
lint-warning-message-locales-for-revision
lint-warning-message-data->lint-warning-message-set-id))
(define (lint-warning-message-data->lint-warning-message-ids conn
@ -73,3 +73,19 @@
(((id)) id)
(()
(insert-lint-warning-message-set conn lint-warning-message-ids))))))
(define (lint-warning-message-locales-for-revision conn commit-hash)
(exec-query
conn
"SELECT DISTINCT lint_warning_messages.locale
from lint_warning_messages
INNER JOIN lint_warning_message_sets
ON lint_warning_messages.id = ANY (lint_warning_message_sets.message_ids)
INNER JOIN lint_warnings
ON lint_warning_message_sets.id = lint_warnings.lint_warning_message_set_id
INNER JOIN guix_revision_lint_warnings
ON lint_warnings.id = guix_revision_lint_warnings.lint_warning_id
INNER JOIN guix_revisions
ON guix_revision_lint_warnings.guix_revision_id = guix_revisions.id
WHERE guix_revisions.commit = $1"
(list commit-hash)))

View file

@ -53,6 +53,7 @@
(define* (lint-warnings-for-guix-revision conn commit-hash
#:key
locale
package-query
linters
message-query)
@ -72,8 +73,9 @@ INNER JOIN locations
INNER JOIN lint_warning_message_sets
ON lint_warning_message_sets.id = lint_warning_message_set_id
INNER JOIN lint_warning_messages
ON lint_warning_messages.locale = 'en_US.utf8'
AND lint_warning_messages.id = ANY (lint_warning_message_sets.message_ids)
ON lint_warning_messages.locale = "
"'" locale "'"
" AND lint_warning_messages.id = ANY (lint_warning_message_sets.message_ids)
"
(if linters
(string-append