andros/lirve.el
1
0
Fork 0
mirror of https://github.com/tanrax/lirve.el.git synced 2024-11-10 07:45:41 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix comment

Browse Source
This commit is contained in:
Andros Fenollosa 2024-02-20 11:57:08 +01:00
parent 3591b590fc
commit 7029385d1e
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
README.md
View File

@ -11,7 +11,7 @@ You need to have `straight` installed.
Then, add it to your `init.el`. Then, add it to your `init.el`.
```elisp ```elisp
(use-package learning-irregular-verbs-in-english (use-package lirve
:straight (:host github :repo "tanrax/learning-irregular-verbs-in-english.el" :files ("lirve-verbs.el" "lirve.el")) :straight (:host github :repo "tanrax/learning-irregular-verbs-in-english.el" :files ("lirve-verbs.el" "lirve.el"))
:ensure t) :ensure t)
``` ```

6
lirve.el
View File

@ -77,7 +77,7 @@
"Apply the Fisher-Yates shuffle algorithm. "Apply the Fisher-Yates shuffle algorithm.
The parameter SHUFFLED-LIST is used for recursion The parameter SHUFFLED-LIST is used for recursion
and should not be used by the user. and should not be used by the user.
Example: (lirve--shuffle '(1 2 3 4 5)) => (3 1 5 2 4) Example: (lirve--shuffle (list (1 2 3 4 5))) -> (3 1 5 2 4)
Argument ORIGINAL-LIST List to shuffle." Argument ORIGINAL-LIST List to shuffle."
(if (null original-list) (if (null original-list)
;; End recursion, return the shuffled list ;; End recursion, return the shuffled list
@ -153,7 +153,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 learning-irregular-verbs-in-English--show-translation (cdr (assq 'translations 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))))))
;; 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))))
@ -185,7 +185,7 @@ Argument INFINITIVE verb to remove."
lirve--emoji-valid lirve--emoji-error)))) lirve--emoji-valid lirve--emoji-error))))
(defun lirve--show-translation () (defun lirve--show-translation ()
"Show translation if `learning-irregular-verbs-in-English--show-translation' is t." "Show translation if `lirve--show-translation' is t."
(when (not (null lirve--translation)) (when (not (null lirve--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))))