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

Add indications for no translations available in the packages page

Browse source 
Signed-off-by: Christopher Baines <mail@cbaines.net>
This commit is contained in:
Danjela Lura 2020-06-23 13:44:18 +02:00 • committed by Christopher Baines
parent 7d85372acc
commit f16fdb44f1
3 changed files with 34 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
guix-data-service/model/package.scm
View file

@ -32,7 +32,9 @@
select-package-versions-for-revision
package-versions-for-branch
package-derivations-for-branch
package-outputs-for-branch))
package-outputs-for-branch
any-package-synopsis-or-descriptions-translations?))
(define (select-existing-package-entries package-entries)
(string-append "SELECT id, packages.name, packages.version, "
@ -530,3 +532,11 @@ ORDER BY first_datetime DESC, package_version DESC")
output-name
system
target))))
(define (any-package-synopsis-or-descriptions-translations? packages locale)
(any
(match-lambda
((name version synopsis synopsis-locale description description-locale _ _ _ _ _)
(or (string=? synopsis-locale locale)
(string=? description-locale locale))))
packages))