andros/lirve.el
1
0
Fork 0
mirror of https://github.com/tanrax/lirve.el.git synced 2024-09-19 20:47:20 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Add cond set-translation

Browse Source
This commit is contained in:
Andros Fenollosa 2024-02-20 12:08:04 +01:00
parent efafde487f
commit aae90a6ad1
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

@ -154,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-simple-past (cdr (assq 'simple-past verb-to-learn)))
(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))))))
(when (not (null 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)
(setq lirve--verbs-shuffle (cdr lirve--verbs-shuffle))))
@ -228,7 +228,7 @@ Argument INFINITIVE verb to remove."
:size 20
:notify (lambda (&rest ignore) (lirve--kill-app))
lirve--text-button-quit))
(widget-backward 2))
(eval-when-compile (widget-backward 2)))
(progn
(when (not (eq lirve--widget-item-space-before-success nil)) (widget-delete lirve--widget-item-space-before-success))
(when (not (eq lirve--widget-message-success nil)) (widget-delete lirve--widget-message-success))
@ -293,7 +293,7 @@ Argument INFINITIVE verb to remove."
"Replay the challenge."
(interactive)
(lirve--start)
(widget-backward 1))
(eval-when-compile (widget-backward 1)))
(defun lirve--update ()
"Update state and show temps layouts."
@ -376,7 +376,7 @@ Argument INFINITIVE verb to remove."
(lirve--load-verbs-unresolved)
(lirve--main-layout)
(lirve--start)
(widget-backward 4))
(eval-when-compile (widget-backward 4)))
(provide 'lirve)