lirve.el/learning-irregular-verbs-in-English.el

892 lines
26 KiB
EmacsLisp
Raw Normal View History

2023-12-31 10:00:33 +01:00
;;; learning-irregular-verbs-in-English.el --- Application to learn and review irregular verbs in English. -*- lexical-binding: t;
;;
;; Copyright © 2024 Andros Fenollosa
;; Authors: Andros Fenollosa <andros@fenollosa.email>
;; URL: https://github.com/tanrax/learning-irregular-verbs-in-English.el
;; Version: 1.0.0
;; SPDX-License-Identifier: GPL-3.0-or-later
;;; Commentary:
;; Application to learn and review irregular verbs in English.
;;; Code:
2024-01-02 17:32:15 +01:00
;; Imports
(require 'widget)
(eval-when-compile
(require 'wid-edit))
2023-12-31 15:39:31 +01:00
2024-01-02 17:32:15 +01:00
;; Variables
2023-12-31 15:39:31 +01:00
2024-01-08 19:14:11 +01:00
(defvar lire--verbs '(
(
(infinitive . "beat")
(simple-past . "beat")
(past-participle . "beaten")
(translations
(es . "golpear")))
(
(infinitive . "become")
(simple-past . "became")
(past-participle . "become")
(translations
(es . "llegar a ser, convertirse en")))
(
(infinitive . "begin")
(simple-past . "began")
(past-participle . "begun")
(translations
(es . "empezar")))
(
(infinitive . "bend")
(simple-past . "bent")
(past-participle . "bent")
(translations
(es . "doblar")))
(
(infinitive . "bet")
(simple-past . "bet")
(past-participle . "bet")
(translations
(es . "apostar")))
(
(infinitive . "bite")
(simple-past . "bit")
(past-participle . "bitten")
(translations
(es . ("morder"))))
(
(infinitive . "bleed")
(simple-past . "bled")
(past-participle . "bled")
(translations
(es . "sangrar")))
(
(infinitive . "blow")
(simple-past . "blew")
(past-participle . "blown")
(translations
(es . ("soplar"))))
(
(infinitive . "break")
(simple-past . "broke")
(past-participle . "broken")
(translations
(es . "romper")))
(
(infinitive . "bring")
(simple-past . "brought")
(past-participle . "brought")
(translations
(es . "traer")))
(
(infinitive . "build")
(simple-past . "built")
(past-participle . "built")
(translations
(es . "construir")))
(
(infinitive . "burn")
(simple-past . "burnt")
(past-participle . "burnt")
(translations
(es . "quemar")))
(
(infinitive . "buy")
(simple-past . "bought")
(past-participle . "bought")
(translations
(es . "comprar")))
(
(infinitive . "catch")
(simple-past . "caught")
(past-participle . "caught")
(translations
(es . "coger")))
(
(infinitive . "choose")
(simple-past . "chose")
(past-participle . "chosen")
(translations
(es . "escoger")))
(
(infinitive . "come")
(simple-past . "came")
(past-participle . "come")
(translations
(es . "venir")))
(
(infinitive . "cost")
(simple-past . "cost")
(past-participle . "cost")
(translations
(es . "costar")))
(
(infinitive . "cut")
(simple-past . "cut")
(past-participle . "cut")
(translations
(es . "cortar")))
(
(infinitive . "dig")
(simple-past . "dug")
(past-participle . "dug")
(translations
(es . "cavar")))
(
(infinitive . "do")
(simple-past . "did")
(past-participle . "done")
(translations
(es . "hacer")))
(
(infinitive . "draw")
(simple-past . "drew")
(past-participle . "drawn")
(translations
(es . '"(dibujar, trazar")))
(
(infinitive . "dream")
(simple-past . "dreamt")
(past-participle . "dreamt")
(translations
(es . "soñar")))
(
(infinitive . "drink")
(simple-past . "drank")
(past-participle . "drunk")
(translations
(es . "beber")))
(
(infinitive . "drive")
(simple-past . "drove")
(past-participle . "driven")
(translations
(es . "conducir")))
(
(infinitive . "eat")
(simple-past . "ate")
(past-participle . "eaten")
(translations
(es . "comer")))
(
(infinitive . "fall")
(simple-past . "fell")
(past-participle . "fallen")
(translations
(es . "caer(se)")))
(
(infinitive . "feed")
(simple-past . "fed")
(past-participle . "fed")
(translations
(es . "dar de comer, alimentar")))
(
(infinitive . "feel")
(simple-past . "felt")
(past-participle . "felt")
(translations
(es . "sentir")))
(
(infinitive . "fight")
(simple-past . "fought")
(past-participle . "fought")
(translations
(es . "pelear, luchar")))
(
(infinitive . "find")
(simple-past . "found")
(past-participle . "found")
(translations
(es . "encontrar")))
(
(infinitive . "fly")
(simple-past . "flew")
(past-participle . "flown")
(translations
(es . "volar")))
(
(infinitive . "forget")
(simple-past . "forgot")
(past-participle . "forgotten")
(translations
(es . "olvidar")))
(
(infinitive . "forgive")
(simple-past . "forgave")
(past-participle . "forgiven")
(translations
(es . "perdonar")))
(
(infinitive . "freeze")
(simple-past . "froze")
(past-participle . "frozen")
(translations
(es . "helar, congelar")))
(
(infinitive . "get")
(simple-past . "got")
(past-participle . "got")
(translations
(es . "conseguir")))
(
(infinitive . "give")
(simple-past . "gave")
(past-participle . "given")
(translations
(es . "dar")))
(
(infinitive . "go")
(simple-past . "went")
(past-participle . "gone")
(translations
(es . "ir")))
(
(infinitive . "grow")
(simple-past . "grew")
(past-participle . "grown")
(translations
(es . "cultivar, crecer")))
(
(infinitive . "hang")
(simple-past . "hung")
(past-participle . "hung")
(translations
(es . "colgar")))
(
(infinitive . "have")
(simple-past . "had")
(past-participle . "had")
(translations
(es . "tener")))
(
(infinitive . "hear")
(simple-past . "heard")
(past-participle . "heard")
(translations
(es .' ("oír"))))
(
(infinitive . "hide")
(simple-past . "hid")
(past-participle . "hidden")
(translations
(es . "esconder")))
(
(infinitive . "hit")
(simple-past . "hit")
(past-participle . "hit")
(translations
(es . "golpear, pegar")))
(
(infinitive . "hold")
(simple-past . "held")
(past-participle . "held")
(translations
(es . "sostener")))
(
(infinitive . "hurt")
(simple-past . "hurt")
(past-participle . "hurt")
(translations
(es . "herir")))
(
(infinitive . "keep")
(simple-past . "kept")
(past-participle . "kept")
(translations
(es . "mantener")))
(
(infinitive . "know")
(simple-past . "knew")
(past-participle . "known")
(translations
(es . "saber, conocer")))
(
(infinitive . "lay")
(simple-past . "laid")
(past-participle . "laid")
(translations
(es . "poner (la mesa), colocar")))
(
(infinitive . "lead")
(simple-past . "led")
(past-participle . "led")
(translations
(es . "dirigir")))
(
(infinitive . "learn")
(simple-past . "learnt")
(past-participle . "learnt")
(translations
(es . "aprender")))
(
(infinitive . "leave")
(simple-past . "left")
(past-participle . "left")
(translations
(es . "dejar, marcharse(se)")))
(
(infinitive . "lend")
(simple-past . "lent")
(past-participle . "lent")
(translations
(es . "prestar")))
(
(infinitive . "let")
(simple-past . "let")
(past-participle . "let")
(translations
(es . "dejar, permitir")))
(
(infinitive . "lie")
(simple-past . "lay")
(past-participle . "lain")
(translations
(es . "tumbarse")))
(
(infinitive . "light")
(simple-past . "lit")
(past-participle . "lit")
(translations
(es . "iluminar")))
(
(infinitive . "lose")
(simple-past . "lost")
(past-participle . "lost")
(translations
(es . "perder")))
(
(infinitive . "make")
(simple-past . "made")
(past-participle . "made")
(translations
(es . "hacer")))
(
(infinitive . "mean")
(simple-past . "meant")
(past-participle . "meant")
(translations
(es . "significar, querer decir")))
(
(infinitive . "meet")
(simple-past . "met")
(past-participle . "met")
(translations
(es . "conocer")))
(
(infinitive . "pay")
(simple-past . "paid")
(past-participle . "paid")
(translations
(es . "pagar")))
(
(infinitive . "put")
(simple-past . "put")
(past-participle . "put")
(translations
(es . "poner")))
(
(infinitive . "read")
(simple-past . "read")
(past-participle . "read")
(translations
(es . "leer")))
(
(infinitive . "ride")
(simple-past . "rode")
(past-participle . "ridden")
(translations
(es . "montar")))
(
(infinitive . "ring")
(simple-past . "rang")
(past-participle . "rung")
(translations
(es . "sonar, llamar por teléfono")))
(
(infinitive . "rise")
(simple-past . "rose")
(past-participle . "risen")
(translations
(es . "levantarse")))
(
(infinitive . "run")
(simple-past . "ran")
(past-participle . "run")
(translations
(es . "correr")))
(
(infinitive . "say")
(simple-past . "said")
(past-participle . "said")
(translations
(es . "decir")))
(
(infinitive . "see")
(simple-past . "saw")
(past-participle . "seen")
(translations
(es . "ver")))
(
(infinitive . "sell")
(simple-past . "sold")
(past-participle . "sold")
(translations
(es . "vender")))
(
(infinitive . "send")
(simple-past . "sent")
(past-participle . "sent")
(translations
(es . "enviar")))
(
(infinitive . "set")
(simple-past . "set")
(past-participle . "set")
(translations
(es . "colocar, fijar, poner la mesa")))
(
(infinitive . "shake")
(simple-past . "shook")
(past-participle . "shaken")
(translations
(es . "agitar, sacudir")))
(
(infinitive . "shine")
(simple-past . "shone")
(past-participle . "shone")
(translations
(es . "brillar, sacar brillo")))
(
(infinitive . "shoot")
(simple-past . "shot")
(past-participle . "shot")
(translations
(es . "disparar")))
(
(infinitive . "show")
(simple-past . "showed")
(past-participle . "shown")
(translations
(es . "mostrar")))
(
(infinitive . "shut")
(simple-past . "shut")
(past-participle . "shut")
(translations
(es . "cerrar")))
(
(infinitive . "sing")
(simple-past . "sang")
(past-participle . "sung")
(translations
(es . "cantar")))
(
(infinitive . "sink")
(simple-past . "sank")
(past-participle . "sunk")
(translations
(es . "hundir(se)")))
(
(infinitive . "sit")
(simple-past . "sat")
(past-participle . "sat")
(translations
(es . "sentar(se)")))
(
(infinitive . "sleep")
(simple-past . "slept")
(past-participle . "slept")
(translations
(es . "dormir")))
(
(infinitive . "smell")
(simple-past . "smelt")
(past-participle . "smelt")
(translations
(es . "oler")))
(
(infinitive . "speak")
(simple-past . "spoke")
(past-participle . "spoken")
(translations
(es . "hablar")))
(
(infinitive . "spell")
(simple-past . "spelt")
(past-participle . "spelt")
(translations
(es . "deletrear")))
(
(infinitive . "spend")
(simple-past . "spent")
(past-participle . "spent")
(translations
(es . "gastar")))
(
(infinitive . "spill")
(simple-past . "spilt")
(past-participle . "spilt")
(translations
(es . "derramar")))
(
(infinitive . "spit")
(simple-past . "spit")
(past-participle . "spit")
(translations
(es . "escupir")))
(
(infinitive . "stand")
(simple-past . "stood")
(past-participle . "stood")
(translations
(es . "ponerse/estar de pie")))
(
(infinitive . "steal")
(simple-past . "stole")
(past-participle . "stolen")
(translations
(es . "robar")))
(
(infinitive . "swim")
(simple-past . "swam")
(past-participle . "swum")
(translations
(es . "nadar")))
(
(infinitive . "take")
(simple-past . "took")
(past-participle . "taken")
(translations
(es . "tomar, coger")))
(
(infinitive . "teach")
(simple-past . "taught")
(past-participle . "taught")
(translations
(es . "enseñar")))
(
(infinitive . "tear")
(simple-past . "tore")
(past-participle . "torn")
(translations
(es . "romper, rasgar")))
(
(infinitive . "tell")
(simple-past . "told")
(past-participle . "told")
(translations
(es . "decir, contar")))
(
(infinitive . "think")
(simple-past . "thought")
(past-participle . "thought")
(translations
(es . "pensar")))
(
(infinitive . "throw")
(simple-past . "threw")
(past-participle . "thrown")
(translations
(es . "lanzar, tirar")))
(
(infinitive . "understand")
(simple-past . "understood")
(past-participle . "understood")
(translations
(es . "entender")))
(
(infinitive . "wake")
(simple-past . "woke")
(past-participle . "woken")
(translations
(es . "despertar")))
(
(infinitive . "wear")
(simple-past . "wore")
(past-participle . "worn")
(translations
(es . "llevar puesto")))
(
(infinitive . "win")
(simple-past . "won")
(past-participle . "won")
(translations
(es . "ganar")))
(
(infinitive . "write")
(simple-past . "wrote")
(past-participle . "written")
(translations
(es . "escribir")))))
;; Variables
2024-01-03 13:32:56 +01:00
(defvar lire--buffer-name "*Learning irregular verbs in English*")
(defvar lire--state 1) ;; 1: lire--start, 2: playing (before first check), 3: win (show success layout)
(defvar lire--verb-to-learn-infinitive nil)
(defvar lire--verb-to-learn-simple-past nil)
(defvar lire--verb-to-learn-past-participle nil)
2024-01-08 23:07:34 +01:00
(defvar lire--translation "")
2024-01-03 13:32:56 +01:00
(defvar lire--emoji-valid "")
(defvar lire--emoji-error "👎")
(defvar lire--widget-title nil)
(defvar lire--text-title " 🧑‍🎓 Learning irregular verbs in English 🇬🇧")
(defvar lire--widget-item-verb nil)
(defvar lire--widget-field-simple-past nil)
(defvar lire--widget-label-check-simple-past nil)
(defvar lire--widget-field-past-participle nil)
(defvar lire--widget-label-check-past-participle nil)
(defvar lire--text-button-check "Check")
(defvar lire--widget-button-check nil)
(defvar lire--widget-item-space-before-check nil)
(defvar lire--text-button-show-solution "Don't know")
(defvar lire--widget-button-show-solution nil)
(defvar lire--widget-message-success nil)
(defvar lire--widget-item-space-before-success nil)
(defvar lire--text-success "Nice!")
(defvar lire--text-fail "Next time you will do better")
(defvar lire--is-resolve t)
(defvar lire--widget-item-space-after-success nil)
(defvar lire--widget-button-quit nil)
(defvar lire--text-button-quit "Quit")
(defvar lire--widget-item-space-between-buttons nil)
(defvar lire--widget-button-lire--replay nil)
(defvar lire--text-button-lire--replay "New challenge")
2024-01-01 20:39:40 +01:00
2024-01-02 17:32:15 +01:00
;; Functions
2024-01-02 16:18:41 +01:00
2024-01-03 13:32:56 +01:00
(defun lire--kill-app ()
2024-01-02 17:32:15 +01:00
"Kill the application."
2024-01-03 13:32:56 +01:00
(kill-buffer lire--buffer-name))
2024-01-02 16:18:41 +01:00
2024-01-03 13:32:56 +01:00
(defun lire--value-field-simple-past ()
(if (not (eq lire--widget-field-simple-past nil)) (widget-value lire--widget-field-simple-past) ""))
2023-12-31 15:39:31 +01:00
2024-01-03 13:32:56 +01:00
(defun lire--value-field-past-participle ()
(if (not (eq lire--widget-field-past-participle nil)) (widget-value lire--widget-field-past-participle) ""))
2023-12-31 15:39:31 +01:00
2024-01-03 13:32:56 +01:00
(defun lire--set-verb-to-learn ()
2024-01-02 17:32:15 +01:00
"Set the verb to learn."
2024-01-03 13:32:56 +01:00
(let ((verbs-random (nth (random (length lire--verbs)) lire--verbs)))
2024-01-08 19:14:11 +01:00
(setq lire--verb-to-learn-infinitive (alist-get 'infinitive verbs-random))
(setq lire--verb-to-learn-simple-past (alist-get 'simple-past verbs-random))
(setq lire--verb-to-learn-past-participle (alist-get 'past-participle verbs-random))
2024-01-08 22:56:07 +01:00
(when (not (null (boundp 'learning-irregular-verbs-in-English--show-translation))) (setq lire--translation (alist-get learning-irregular-verbs-in-English--show-translation (alist-get 'translations verbs-random))))))
2024-01-08 19:14:11 +01:00
2024-01-03 13:32:56 +01:00
(defun lire--format-value-infinitive ()
2024-01-02 17:32:15 +01:00
"Format the value of the infinitive."
2024-01-03 13:32:56 +01:00
(format "Infinitive ➡️ %s" lire--verb-to-learn-infinitive))
2024-01-01 13:10:45 +01:00
2024-01-03 13:32:56 +01:00
(defun lire--format-check-simple-past ()
2024-01-02 17:32:15 +01:00
"Format the value of the simple past."
2024-01-03 13:32:56 +01:00
(if (eq lire--state 1)
2024-01-02 17:32:15 +01:00
""
(format " %s" (if
(and
2024-01-03 13:32:56 +01:00
(string= (lire--value-field-simple-past) lire--verb-to-learn-simple-past)
(not (string= (lire--value-field-simple-past) "")))
lire--emoji-valid lire--emoji-error))))
2024-01-01 20:39:40 +01:00
2024-01-03 13:32:56 +01:00
(defun lire--format-check-past-participle ()
2024-01-02 17:32:15 +01:00
"Format the value of the past participle."
2024-01-03 13:32:56 +01:00
(if (eq lire--state 1)
2024-01-02 17:32:15 +01:00
""
(format " %s" (if
(and
2024-01-03 13:32:56 +01:00
(string= (lire--value-field-past-participle) lire--verb-to-learn-past-participle)
(not (string= (lire--value-field-past-participle) "")))
lire--emoji-valid lire--emoji-error))))
2024-01-01 13:10:45 +01:00
2024-01-08 19:14:11 +01:00
(defun lire--show-translation ()
"Show translation if learning-irregular-verbs-in-English--show-translation is t"
(when (not (null lire--translation))
2024-01-08 22:56:07 +01:00
(widget-value-set lire--widget-item-verb (concat (lire--format-value-infinitive) " 🇪🇸 " lire--translation))))
2024-01-08 19:14:11 +01:00
2024-01-03 13:32:56 +01:00
(defun lire--toggle-layout-finish ()
2024-01-02 17:32:15 +01:00
"Toggle the layout to success."
2024-01-03 13:32:56 +01:00
(if (eq lire--state 3)
2024-01-02 17:32:15 +01:00
(progn
2024-01-08 19:14:11 +01:00
;; Show translate
(lire--show-translation)
2024-01-02 17:32:15 +01:00
;; Cursor to end
(goto-char (point-max))
;; Remove check button
2024-01-03 13:32:56 +01:00
(widget-delete lire--widget-button-check)
(setq lire--widget-button-check nil)
;; Remove space after check button
(widget-delete lire--widget-item-space-before-check)
(setq lire--widget-item-space-before-check nil)
;; Remove show solution button
(widget-delete lire--widget-button-show-solution)
(setq lire--widget-button-show-solution nil)
2024-01-02 17:32:15 +01:00
;; Text success
2024-01-03 13:32:56 +01:00
(setq lire--widget-item-space-before-success (widget-create 'item
2024-01-08 19:14:11 +01:00
""))
2024-01-03 13:32:56 +01:00
(setq lire--widget-message-success (widget-create 'item
2024-01-08 19:14:11 +01:00
(if lire--is-resolve lire--text-success lire--text-fail)))
2024-01-03 13:32:56 +01:00
(setq lire--widget-item-space-after-success (widget-create 'item
"\n"))
;; Lire--Replay button
(setq lire--widget-button-lire--replay (widget-create 'push-button
2024-01-08 19:14:11 +01:00
:size 20
:notify (lambda (&rest ignore)
(lire--replay))
lire--text-button-lire--replay))
2024-01-02 17:32:15 +01:00
;; Space
2024-01-03 13:32:56 +01:00
(setq lire--widget-item-space-between-buttons (widget-create 'item
2024-01-08 19:14:11 +01:00
"\n"))
2024-01-02 17:32:15 +01:00
;; Quit button
2024-01-03 13:32:56 +01:00
(setq lire--widget-button-quit (widget-create 'push-button
2024-01-08 19:14:11 +01:00
:size 20
:notify (lambda (&rest ignore)
(lire--kill-app))
lire--text-button-quit))
2024-01-02 17:32:15 +01:00
(widget-backward 2)
)
(progn
2024-01-03 13:32:56 +01:00
(when (not (eq lire--widget-item-space-before-success nil)) (widget-delete lire--widget-item-space-before-success))
(when (not (eq lire--widget-message-success nil)) (widget-delete lire--widget-message-success))
(when (not (eq lire--widget-item-space-after-success nil)) (widget-delete lire--widget-item-space-after-success))
(when (not (eq lire--widget-button-lire--replay nil)) (widget-delete lire--widget-button-lire--replay))
(when (not (eq lire--widget-item-space-between-buttons nil)) (widget-delete lire--widget-item-space-between-buttons))
(when (not (eq lire--widget-button-quit nil)) (widget-delete lire--widget-button-quit))
2024-01-02 17:32:15 +01:00
)))
2023-12-31 15:39:31 +01:00
2024-01-03 13:32:56 +01:00
(defun lire--make-button-check ()
2024-01-02 17:32:15 +01:00
"Make the button check."
2024-01-03 13:32:56 +01:00
(setq lire--widget-button-check (widget-create 'push-button
2024-01-08 19:14:11 +01:00
:notify (lambda (&rest ignore)
(lire--update))
lire--text-button-check)))
2024-01-03 13:32:56 +01:00
(defun lire--make-space-after-check ()
"Add space between Button check and Button show solution"
(setq lire--widget-item-space-before-check (widget-create 'item "\n")))
2024-01-02 17:32:15 +01:00
2024-01-03 13:32:56 +01:00
(defun lire--show-solutions ()
"Show solutions"
(setq lire--is-resolve nil)
(widget-value-set lire--widget-field-simple-past lire--verb-to-learn-simple-past)
(widget-value-set lire--widget-field-past-participle lire--verb-to-learn-past-participle))
(defun lire--make-button-show-solution ()
"Make the button show solution."
(setq lire--widget-button-show-solution (widget-create 'push-button
:notify (lambda (&rest ignore)
(lire--show-solutions)
(lire--update))
lire--text-button-show-solution)))
(defun lire--start ()
2024-01-02 17:50:43 +01:00
"Start challenge."
2024-01-03 13:32:56 +01:00
;; Set the lire--state
(setq lire--state 1)
2024-01-02 17:32:15 +01:00
;; Get a new verb
2024-01-03 13:32:56 +01:00
(lire--set-verb-to-learn)
2024-01-02 17:32:15 +01:00
;; Show the verb in infinitive
2024-01-03 13:32:56 +01:00
(widget-value-set lire--widget-item-verb (lire--format-value-infinitive))
2024-01-02 17:32:15 +01:00
;; Reset button check
2024-01-03 13:32:56 +01:00
(when (eq lire--widget-button-check nil) (lire--make-button-check))
;; Reset space after check
(when (eq lire--widget-item-space-before-check nil) (lire--make-space-after-check))
;; Reset button show solution
(when (eq lire--widget-button-show-solution nil) (lire--make-button-show-solution))
2024-01-02 17:32:15 +01:00
;; Clear the fields
2024-01-03 13:32:56 +01:00
(widget-value-set lire--widget-field-simple-past "")
(widget-value-set lire--widget-label-check-simple-past "")
(widget-value-set lire--widget-field-past-participle "")
(widget-value-set lire--widget-label-check-past-participle "")
2024-01-02 17:32:15 +01:00
;; Update labels
2024-01-03 13:32:56 +01:00
(lire--update))
2024-01-01 20:39:40 +01:00
2024-01-03 13:32:56 +01:00
(defun lire--replay ()
2024-01-02 17:32:15 +01:00
"Replay the challenge."
(interactive)
2024-01-03 13:32:56 +01:00
(lire--start)
2024-01-02 17:32:15 +01:00
(widget-backward 1))
2023-12-31 15:39:31 +01:00
2024-01-03 13:32:56 +01:00
(defun lire--update ()
"Update state and show temps layouts."
2024-01-02 17:32:15 +01:00
(interactive)
;; Is playing?
2024-01-03 13:32:56 +01:00
(when (and (eq lire--state 1)
2024-01-02 17:32:15 +01:00
(or
2024-01-03 13:32:56 +01:00
(not (string= (lire--value-field-simple-past) ""))
(not (string= (lire--value-field-past-participle) "")))
2024-01-02 17:32:15 +01:00
)
2024-01-03 13:32:56 +01:00
(setq lire--state 2))
2024-01-02 17:32:15 +01:00
;; Check the answers
2024-01-03 13:32:56 +01:00
(when (eq lire--state 2)
2024-01-02 17:32:15 +01:00
;; Is win?
(when (and
2024-01-03 13:32:56 +01:00
(string= (lire--value-field-simple-past) lire--verb-to-learn-simple-past)
(string= (lire--value-field-past-participle) lire--verb-to-learn-past-participle))
;; Set the lire--state
(setq lire--state 3))
2024-01-02 17:32:15 +01:00
;; Update the check labels
2024-01-03 13:32:56 +01:00
(widget-value-set lire--widget-label-check-simple-past (lire--format-check-simple-past))
(widget-value-set lire--widget-label-check-past-participle (lire--format-check-past-participle)))
2024-01-02 17:32:15 +01:00
;; Update the success layout if needed
2024-01-03 13:32:56 +01:00
(lire--toggle-layout-finish)
(setq lire--is-resolve t))
2023-12-31 15:39:31 +01:00
2024-01-03 13:32:56 +01:00
(defun lire--main-layout ()
2024-01-02 17:32:15 +01:00
"Make widgets for the main layout."
;; Create the buffer
2024-01-03 13:32:56 +01:00
(switch-to-buffer lire--buffer-name)
2024-01-02 17:32:15 +01:00
;; Clear the buffer
(kill-all-local-variables)
(let ((inhibit-read-only t))
(erase-buffer))
(remove-overlays)
;; Create the widgets
;; Title
2024-01-03 13:32:56 +01:00
(insert (propertize (format "\n%s\n\n" lire--text-title) 'face '(:height 1.2 :weight bold)))
2024-01-02 17:32:15 +01:00
;; Verb in infinitive
2024-01-03 13:32:56 +01:00
(setq lire--widget-item-verb (widget-create 'item
2024-01-02 17:32:15 +01:00
:value ""))
;; Separator
(insert "\nSimple past ➡️ ")
;; Simple past
2024-01-03 13:32:56 +01:00
(setq lire--widget-field-simple-past (widget-create 'editable-field
2024-01-02 17:32:15 +01:00
:size 8
:help-echo "Type a Simple past"
))
;; Label check
(insert " ")
2024-01-03 13:32:56 +01:00
(setq lire--widget-label-check-simple-past (widget-create 'item
(lire--format-check-simple-past)))
2024-01-02 17:32:15 +01:00
;; Separator
(insert "\nPast participle ➡️ ")
;; Past participle
2024-01-03 13:32:56 +01:00
(setq lire--widget-field-past-participle (widget-create 'editable-field
2024-01-02 17:32:15 +01:00
:size 8
:help-echo "Type a Past participle"))
;; Label check
(insert " ")
2024-01-03 13:32:56 +01:00
(setq lire--widget-label-check-past-participle (widget-create 'item
(lire--format-check-past-participle)))
2024-01-02 17:32:15 +01:00
;; Separator
(insert "\n")
;; Check button
2024-01-03 13:32:56 +01:00
(lire--make-button-check)
;; Separator
(lire--make-space-after-check)
;; Show solution button
(lire--make-button-show-solution)
2024-01-02 17:32:15 +01:00
;; Display the buffer
(use-local-map widget-keymap)
(widget-setup))
2023-12-31 15:39:31 +01:00
2024-01-02 17:32:15 +01:00
;; Init
(defun learning-irregular-verbs-in-English ()
"Application to learn and review irregular verbs in English."
(interactive)
2024-01-03 13:32:56 +01:00
(lire--main-layout)
(lire--start)
2024-01-03 13:44:48 +01:00
(widget-backward 4))
2023-12-31 10:00:33 +01:00
(provide 'learning-irregular-verbs-in-English)
;;; learning-irregular-verbs-in-English.el ends here