marcuskammer/dev.metalisp.sbt
1
1
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Init l10n-hash

Browse source
This commit is contained in:
Marcus Kammer 2024-07-02 08:10:24 +02:00
parent d919dcc85a
commit 390948b572
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/translate.lisp
View file

@ -70,8 +70,9 @@
(loop for (lang translation) on translations by #'cddr (loop for (lang translation) on translations by #'cddr
do (setf (gethash lang (gethash key *l10n-hash*)) translation))) do (setf (gethash lang (gethash key *l10n-hash*)) translation)))
(dolist (entry *l10n*) (when (zerop (hash-table-count *l10n-hash*))
(add-translation (first entry) (rest entry))) (dolist (entry *l10n*)
(add-translation (first entry) (first (rest entry)))))
(defun get-translation (key lang) (defun get-translation (key lang)
"Fetch a translation for KEY in the language LANG." "Fetch a translation for KEY in the language LANG."