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

Check if term is available in l10n

Browse source
This commit is contained in:
Marcus Kammer 2023-09-13 21:32:49 +02:00
parent 642324ad25
commit d6e26417bc
Signed by: marcuskammer
GPG key ID: C374817BE285268F
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/main.lisp
View file

@ -97,4 +97,7 @@
KEY: The key to look up the localization for.
LANG: The language to get the localized string for."
(cadr (member lang (cadr (assoc key alist :test #'string=)) :test #'string=)))
(let ((term (cadr (assoc key alist :test #'string=))))
(if term
(cadr (member lang term :test #'string=))
"Translation not found")))