Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-04-29 23:29:41 +02:00
Code Issues Releases Wiki Activity

Correction to translation of rms.ny

Browse Source 
Update Russian translation in rms.ny and make variables local to
underscore function.
This commit is contained in:
Steve Daulton 2018-10-09 01:04:05 +01:00
parent 5d34d022a5
commit 665e2d0e9c
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
nyquist/init.lsp
View File

@ -17,10 +17,9 @@
;; ("cc" ((list "string" "translated-string") [(list "string" "translated-string") ...]))
;; where "cc" is the quoted country code.
;;
(setf underscore (function _))
(setfn underscore _)
;;
(defun _(txt)
(setf translated nil)
(defun _(txt &aux translated language-list)
(when (boundp '*locale*)
(if (not (listp *locale*))
(format t "Warning: Invalid *locale* (not a list).~%")
@ -41,8 +40,9 @@
(format t "Error: Invalid translation for ~s in *locale*.~%" txt)
(setf translated (second translation))))))))))))
(if translated
translated
(funcall underscore txt)))
translated)
(progn (setf *locale* '*unbound*)
(underscore txt)))
;;; Some helpers for parsing strings returned by (aud-do "GetInfo: ...

2
plug-ins/rms.ny
View File

@ -21,7 +21,7 @@
'(("de" (("Left" "Links")("Right" "Rechts")("Stereo" "Stereo")("Mono" "Mono")("dB" "dB")))
("es" (("Left" "Izquierda") ("Right" "Derecha") ("Stereo" "Estéreo") ("Mono" "Mono")("dB" "dB")))
("fr" (("Left" "Gauche")("Right" "Droite")("Stereo" "Stéréo")("Mono" "Mono")("dB" "dB")))
("ru" (("Left" "Левая")("Right" "Правая")("Stereo" "Стерео")("Mono" "Моно")("dB" "дБ")))))
("ru" (("Left" "Слева")("Right" "Направо")("Stereo" "Стерео")("Mono" "Моно")("dB" "дБ")))))
(let ((rms (get '*selection* 'rms)))