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

Replace (when (not ...)) with (unless ...)

Browse Source
This commit is contained in:
Andros Fenollosa 2024-04-01 14:52:16 +02:00
parent 5c3eef6d5a
commit 2a6f32f73d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lirve.el
View File

@ -157,7 +157,7 @@ Argument INFINITIVE verb to remove."
(setq lirve--verb-to-learn-past-participle (cdr (assq 'past-participle 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
(when (not turn-unresolved)
(unless turn-unresolved
(setq lirve--verbs-shuffle (cdr lirve--verbs-shuffle))))
;; Increase the count of verbs
(setq lirve--count-verbs (1+ lirve--count-verbs)))
@ -277,11 +277,11 @@ Argument INFINITIVE verb to remove."
;; Show the verb in infinitive
(widget-value-set lirve--widget-item-verb (lirve--format-value-infinitive))
;; Reset button check
(when (not lirve--widget-button-check) (lirve--make-button-check))
(unless lirve--widget-button-check (lirve--make-button-check))
;; Reset space after check
(when (not lirve--widget-item-space-before-check) (lirve--make-space-after-check))
(unless lirve--widget-item-space-before-check (lirve--make-space-after-check))
;; Reset button show solution
(when (not lirve--widget-button-show-solution) (lirve--make-button-show-solution))
(unless lirve--widget-button-show-solution (lirve--make-button-show-solution))
;; Clear the fields
(widget-value-set lirve--widget-field-simple-past "")
(widget-value-set lirve--widget-label-check-simple-past "")