andros/lirve.el
1
0
Fork 0
mirror of https://github.com/tanrax/lirve.el.git synced 2024-11-09 23:35:42 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix set translation

Browse Source
This commit is contained in:
Andros Fenollosa 2024-02-20 12:14:29 +01:00
parent cf70d4b683
commit 54e6b8429a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lirve.el
View File

@ -30,7 +30,7 @@
(defvar lirve--verb-to-learn-simple-past nil) (defvar lirve--verb-to-learn-simple-past nil)
(defvar lirve--verb-to-learn-past-participle nil) (defvar lirve--verb-to-learn-past-participle nil)
(defvar lirve--translation "") (defvar lirve--translation "")
(defvar lirve--set-translation) ;; Set the translation language (defvar lirve--set-translation nil) ;; Set the translation language
(defvar lirve--emoji-valid "✅") (defvar lirve--emoji-valid "✅")
(defvar lirve--emoji-error "👎") (defvar lirve--emoji-error "👎")
(defvar lirve--widget-title nil) (defvar lirve--widget-title nil)
@ -187,7 +187,7 @@ Argument INFINITIVE verb to remove."
(defun lirve--show-translation () (defun lirve--show-translation ()
"Show translation if `lirve--show-translation' is t." "Show translation if `lirve--show-translation' is t."
(when (not (null lirve--translation)) (when lirve--set-translation
(widget-value-set lirve--widget-item-verb (concat (lirve--format-value-infinitive) " 🇪🇸 " lirve--translation)))) (widget-value-set lirve--widget-item-verb (concat (lirve--format-value-infinitive) " 🇪🇸 " lirve--translation))))
(defun lirve--toggle-layout-finish () (defun lirve--toggle-layout-finish ()