guix
/
guix-artwork
mirror of git://git.savannah.gnu.org/guix/guix-artwork.git
2
0
Fork 0
Code Issues Releases Wiki Activity

website: Add comments to po and pot files. 

* website/scripts/sexp-xgettext.scm (make-simple-po-entry)
(complex-marked-list->po-entries): Add `xml-text' comment for weblate to
enable more checks.
* website/po/guix-website.pot: Update.
This commit is contained in:
Julien Lepiller 2021-02-22 22:22:25 +01:00
parent 306049a93c
commit 6489cba5c0
No known key found for this signature in database
GPG Key ID: 53D457B2D636EE82
2 changed files with 432 additions and 52 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

478
website/po/guix-website.pot
View File

File diff suppressed because it is too large Load Diff

6
website/scripts/sexp-xgettext.scm
View File

@ -441,7 +441,7 @@ nothing if LIST is no list but e.g. an empty 'program."
(let ((po (make-po-entry
(%ecomments-string)
(current-ref)
#f ;TODO: Use scheme-format for format strings?
'("xml-text"); to enable xml checks on weblate
#f ;no ctxt
msgid
#f)))
@ -528,7 +528,7 @@ Otherwise return #f."
(let ((po (make-po-entry
(%ecomments-string)
(current-ref)
#f ;TODO: Use scheme-format for format strings?
'("xml-text"); to enable xml checks on weblate
(string-take val idx)
(string-drop val (1+ idx))
#f))) ;plural forms are unsupported here
@ -547,7 +547,7 @@ Otherwise return #f."
(let ((po (make-po-entry
(%ecomments-string)
(current-ref)
#f ;TODO: Use scheme-format for format strings?
'("xml-text"); to enable xml checks on weblate
(and c (token->string-symbol-or-keyw
(nth-exp parse-tree c)))
sg-id