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 lirve--set-translation

Browse Source
This commit is contained in:
Andros Fenollosa 2024-02-20 12:02:45 +01:00
parent 7029385d1e
commit efafde487f
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.md
View File

@ -31,7 +31,7 @@ Shows the translation of the verb when resolving or failing.
Only available in Spanish (at the moment). Only available in Spanish (at the moment).
```elisp ```elisp
(setq lirve--show-translation 'es) (setq lirve--set-translation 'es)
``` ```
I also recommend creating a function to make it easier to remember the command. I also recommend creating a function to make it easier to remember the command.

3
lirve.el
View File

@ -30,6 +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--emoji-valid "✅") (defvar lirve--emoji-valid "✅")
(defvar lirve--emoji-error "👎") (defvar lirve--emoji-error "👎")
(defvar lirve--widget-title nil) (defvar lirve--widget-title nil)
@ -153,7 +154,7 @@ Argument INFINITIVE verb to remove."
(setq lirve--verb-to-learn-infinitive (cdr (assq 'infinitive verb-to-learn))) (setq lirve--verb-to-learn-infinitive (cdr (assq 'infinitive verb-to-learn)))
(setq lirve--verb-to-learn-simple-past (cdr (assq 'simple-past verb-to-learn))) (setq lirve--verb-to-learn-simple-past (cdr (assq 'simple-past verb-to-learn)))
(setq lirve--verb-to-learn-past-participle (cdr (assq 'past-participle verb-to-learn))) (setq lirve--verb-to-learn-past-participle (cdr (assq 'past-participle verb-to-learn)))
(when (not (null (boundp 'learning-irregular-verbs-in-English--show-translation))) (setq lirve--translation (cdr (assq lirve--show-translation (cdr (assq 'translations verb-to-learn)))))) (when lirve--set-translation (setq lirve--translation (cdr (assq lirve--set-translation (cdr (assq 'translations verb-to-learn))))))
;; Remove the verb from the list ;; Remove the verb from the list
(when (not turn-unresolved) (when (not turn-unresolved)
(setq lirve--verbs-shuffle (cdr lirve--verbs-shuffle)))) (setq lirve--verbs-shuffle (cdr lirve--verbs-shuffle))))