mirror of
https://github.com/tanrax/lirve.el.git
synced 2024-11-09 23:35:42 +01:00
Rename files
This commit is contained in:
Andros Fenollosa
parent
e2a9f0a000
commit
58499944b8
10
README.md
10
README.md
@ -1,5 +1,5 @@
|
|||||||
# Learn irregular English verbs in Emacs
|
# Learn irregular English verbs in Emacs
|
||||||
## learning-irregular-verbs-in-English.el
|
## learning-irregular-verbs-in-english.el
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@ -8,8 +8,8 @@
|
|||||||
Add in your `init.el`.
|
Add in your `init.el`.
|
||||||
|
|
||||||
```elisp
|
```elisp
|
||||||
(use-package learning-irregular-verbs-in-English
|
(use-package learning-irregular-verbs-in-english
|
||||||
:straight (:host github :repo "tanrax/learning-irregular-verbs-in-English.el" :files ("learning-irregular-verbs-in-English.el"))
|
:straight (:host github :repo "tanrax/learning-irregular-verbs-in-English.el" :files ("lirve--verbs.el" "lirve.el"))
|
||||||
:ensure t)
|
:ensure t)
|
||||||
```
|
```
|
||||||
|
|
||||||
@ -22,13 +22,13 @@ Shows the translation of the verb when resolving or failing.
|
|||||||
Only available in Spanish.
|
Only available in Spanish.
|
||||||
|
|
||||||
```elisp
|
```elisp
|
||||||
(setq learning-irregular-verbs-in-English--show-translation 'es)
|
(setq lirve--show-translation 'es)
|
||||||
```
|
```
|
||||||
|
|
||||||
## Usage
|
## Usage
|
||||||
|
|
||||||
```
|
```
|
||||||
M-x learning-irregular-verbs-in-English
|
M-x learning-irregular-verbs-in-english
|
||||||
```
|
```
|
||||||
|
|
||||||
## Controls
|
## Controls
|
||||||
|
|||||||
@ -1,320 +0,0 @@
|
|||||||
;;; 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.1.0
|
|
||||||
;; SPDX-License-Identifier: GPL-3.0-or-later
|
|
||||||
|
|
||||||
;;; Commentary:
|
|
||||||
;; Application to learn and review irregular verbs in English.
|
|
||||||
|
|
||||||
;;; Code:
|
|
||||||
|
|
||||||
;; Imports
|
|
||||||
(require 'learning-irregular-verbs-in-English--verbs)
|
|
||||||
(require 'widget)
|
|
||||||
(eval-when-compile
|
|
||||||
(require 'wid-edit))
|
|
||||||
|
|
||||||
;; Variables
|
|
||||||
(defvar lire--verbs-shuffle '())
|
|
||||||
(defvar lire--file-name-unresolved "unresolved.txt")
|
|
||||||
(defvar lire--verbs-unresolved '())
|
|
||||||
(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)
|
|
||||||
(defvar lire--translation "")
|
|
||||||
(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")
|
|
||||||
|
|
||||||
;; Functions
|
|
||||||
|
|
||||||
(defun lire--shuffle (originalList &optional shuffledList)
|
|
||||||
"Applies the Fisher-Yates shuffle algorithm to a list.
|
|
||||||
Example: (lire--shuffle '(1 2 3 4 5)) => (3 1 5 2 4)"
|
|
||||||
(if (null originalList)
|
|
||||||
;; End recursion, return the shuffled list
|
|
||||||
shuffledList
|
|
||||||
;; Otherwise, continue with the logic
|
|
||||||
(let* ((randomPosition (random (length originalList)))
|
|
||||||
(randomElement (nth randomPosition originalList))
|
|
||||||
;; Create a new original list without the randomly selected element
|
|
||||||
(originalListWithoutRandomElement (append (cl-subseq originalList 0 randomPosition) (nthcdr (1+ randomPosition) originalList)))
|
|
||||||
;; Create a new shuffled list with the selected element at the beginning
|
|
||||||
(newShuffledList (if (null shuffledList) (list randomElement) (cons randomElement shuffledList))))
|
|
||||||
;; Recursively call the shuffle function with the new original list and the new shuffled list
|
|
||||||
(lire--shuffle originalListWithoutRandomElement newShuffledList))))
|
|
||||||
|
|
||||||
(defun lire--kill-app ()
|
|
||||||
"Kill the application."
|
|
||||||
(kill-buffer lire--buffer-name))
|
|
||||||
|
|
||||||
(defun lire--save-verb-unresolved (infinitive)
|
|
||||||
"Save the verb unresolved to lire--verbs-unresolved and to the file."
|
|
||||||
(setq lire--verbs-unresolved (cons infinitive lire--verbs-unresolved))
|
|
||||||
(with-temp-file (concat (file-name-directory user-init-file) lire--file-name-unresolved)
|
|
||||||
(prin1 lire--verbs-unresolved (current-buffer))))
|
|
||||||
|
|
||||||
(defun lire--value-field-simple-past ()
|
|
||||||
"Get the value of the simple past."
|
|
||||||
(if (not (eq lire--widget-field-simple-past nil)) (widget-value lire--widget-field-simple-past) ""))
|
|
||||||
|
|
||||||
(defun lire--value-field-past-participle ()
|
|
||||||
"Get the value of the past participle."
|
|
||||||
(if (not (eq lire--widget-field-past-participle nil)) (widget-value lire--widget-field-past-participle) ""))
|
|
||||||
|
|
||||||
(defun lire--set-verb-to-learn ()
|
|
||||||
"Set the verb to learn."
|
|
||||||
(when (null lire--verbs-shuffle)
|
|
||||||
(setq lire--verbs-shuffle (lire--shuffle lire--verbs)))
|
|
||||||
(let ((verb-to-learn (car lire--verbs-shuffle)))
|
|
||||||
(setq lire--verb-to-learn-infinitive (alist-get 'infinitive verb-to-learn))
|
|
||||||
(setq lire--verb-to-learn-simple-past (alist-get 'simple-past verb-to-learn))
|
|
||||||
(setq lire--verb-to-learn-past-participle (alist-get 'past-participle verb-to-learn))
|
|
||||||
(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 verb-to-learn))))
|
|
||||||
;; Remove the verb from the list
|
|
||||||
(setq lire--verbs-shuffle (cdr lire--verbs-shuffle))))
|
|
||||||
|
|
||||||
(defun lire--format-value-infinitive ()
|
|
||||||
"Format the value of the infinitive."
|
|
||||||
(format "Infinitive ➡️ %s" lire--verb-to-learn-infinitive))
|
|
||||||
|
|
||||||
(defun lire--format-check-simple-past ()
|
|
||||||
"Format the value of the simple past."
|
|
||||||
(if (eq lire--state 1)
|
|
||||||
""
|
|
||||||
(format " %s" (if
|
|
||||||
(and
|
|
||||||
(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))))
|
|
||||||
|
|
||||||
(defun lire--format-check-past-participle ()
|
|
||||||
"Format the value of the past participle."
|
|
||||||
(if (eq lire--state 1)
|
|
||||||
""
|
|
||||||
(format " %s" (if
|
|
||||||
(and
|
|
||||||
(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))))
|
|
||||||
|
|
||||||
(defun lire--show-translation ()
|
|
||||||
"Show translation if learning-irregular-verbs-in-English--show-translation is t"
|
|
||||||
(when (not (null lire--translation))
|
|
||||||
(widget-value-set lire--widget-item-verb (concat (lire--format-value-infinitive) " 🇪🇸 " lire--translation))))
|
|
||||||
|
|
||||||
(defun lire--toggle-layout-finish ()
|
|
||||||
"Toggle the layout to success."
|
|
||||||
(if (eq lire--state 3)
|
|
||||||
(progn
|
|
||||||
;; Show translate
|
|
||||||
(lire--show-translation)
|
|
||||||
;; Cursor to end
|
|
||||||
(goto-char (point-max))
|
|
||||||
;; Remove check button
|
|
||||||
(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)
|
|
||||||
;; Text success
|
|
||||||
(setq lire--widget-item-space-before-success (widget-create 'item
|
|
||||||
""))
|
|
||||||
(setq lire--widget-message-success (widget-create 'item
|
|
||||||
(if lire--is-resolve lire--text-success lire--text-fail)))
|
|
||||||
(setq lire--widget-item-space-after-success (widget-create 'item
|
|
||||||
"\n"))
|
|
||||||
;; Lire--Replay button
|
|
||||||
(setq lire--widget-button-lire--replay (widget-create 'push-button
|
|
||||||
:size 20
|
|
||||||
:notify (lambda (&rest ignore)
|
|
||||||
(lire--replay))
|
|
||||||
lire--text-button-lire--replay))
|
|
||||||
;; Space
|
|
||||||
(setq lire--widget-item-space-between-buttons (widget-create 'item
|
|
||||||
"\n"))
|
|
||||||
;; Quit button
|
|
||||||
(setq lire--widget-button-quit (widget-create 'push-button
|
|
||||||
:size 20
|
|
||||||
:notify (lambda (&rest ignore)
|
|
||||||
(lire--kill-app))
|
|
||||||
lire--text-button-quit))
|
|
||||||
(widget-backward 2)
|
|
||||||
)
|
|
||||||
(progn
|
|
||||||
(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))
|
|
||||||
)))
|
|
||||||
|
|
||||||
(defun lire--make-button-check ()
|
|
||||||
"Make the button check."
|
|
||||||
(setq lire--widget-button-check (widget-create 'push-button
|
|
||||||
:notify (lambda (&rest ignore)
|
|
||||||
(lire--update))
|
|
||||||
lire--text-button-check)))
|
|
||||||
(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")))
|
|
||||||
|
|
||||||
|
|
||||||
(defun lire--show-solutions ()
|
|
||||||
"Show solutions"
|
|
||||||
(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)
|
|
||||||
(lire--save-verb-unresolved lire--verb-to-learn-infinitive))
|
|
||||||
|
|
||||||
(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 ()
|
|
||||||
"Start challenge."
|
|
||||||
;; Set the lire--state
|
|
||||||
(setq lire--state 1)
|
|
||||||
;; Get a new verb
|
|
||||||
(lire--set-verb-to-learn)
|
|
||||||
;; Show the verb in infinitive
|
|
||||||
(widget-value-set lire--widget-item-verb (lire--format-value-infinitive))
|
|
||||||
;; Reset button check
|
|
||||||
(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))
|
|
||||||
;; Clear the fields
|
|
||||||
(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 "")
|
|
||||||
;; Update labels
|
|
||||||
(lire--update))
|
|
||||||
|
|
||||||
(defun lire--replay ()
|
|
||||||
"Replay the challenge."
|
|
||||||
(interactive)
|
|
||||||
(lire--start)
|
|
||||||
(widget-backward 1))
|
|
||||||
|
|
||||||
(defun lire--update ()
|
|
||||||
"Update state and show temps layouts."
|
|
||||||
(interactive)
|
|
||||||
;; Is playing?
|
|
||||||
(when (and (eq lire--state 1)
|
|
||||||
(or
|
|
||||||
(not (string= (lire--value-field-simple-past) ""))
|
|
||||||
(not (string= (lire--value-field-past-participle) "")))
|
|
||||||
)
|
|
||||||
(setq lire--state 2))
|
|
||||||
;; Check the answers
|
|
||||||
(when (eq lire--state 2)
|
|
||||||
;; Is win?
|
|
||||||
(when (and
|
|
||||||
(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))
|
|
||||||
;; Update the check labels
|
|
||||||
(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)))
|
|
||||||
;; Update the success layout if needed
|
|
||||||
(lire--toggle-layout-finish)
|
|
||||||
(setq lire--is-resolve t))
|
|
||||||
|
|
||||||
(defun lire--main-layout ()
|
|
||||||
"Make widgets for the main layout."
|
|
||||||
;; Create the buffer
|
|
||||||
(switch-to-buffer lire--buffer-name)
|
|
||||||
;; Clear the buffer
|
|
||||||
(kill-all-local-variables)
|
|
||||||
(let ((inhibit-read-only t))
|
|
||||||
(erase-buffer))
|
|
||||||
(remove-overlays)
|
|
||||||
;; Create the widgets
|
|
||||||
;; Title
|
|
||||||
(insert (propertize (format "\n%s\n\n" lire--text-title) 'face '(:height 1.2 :weight bold)))
|
|
||||||
;; Verb in infinitive
|
|
||||||
(setq lire--widget-item-verb (widget-create 'item
|
|
||||||
:value ""))
|
|
||||||
;; Separator
|
|
||||||
(insert "\nSimple past ➡️ ")
|
|
||||||
;; Simple past
|
|
||||||
(setq lire--widget-field-simple-past (widget-create 'editable-field
|
|
||||||
:size 8
|
|
||||||
:help-echo "Type a Simple past"
|
|
||||||
))
|
|
||||||
;; Label check
|
|
||||||
(insert " ")
|
|
||||||
(setq lire--widget-label-check-simple-past (widget-create 'item
|
|
||||||
(lire--format-check-simple-past)))
|
|
||||||
;; Separator
|
|
||||||
(insert "\nPast participle ➡️ ")
|
|
||||||
;; Past participle
|
|
||||||
(setq lire--widget-field-past-participle (widget-create 'editable-field
|
|
||||||
:size 8
|
|
||||||
:help-echo "Type a Past participle"))
|
|
||||||
;; Label check
|
|
||||||
(insert " ")
|
|
||||||
(setq lire--widget-label-check-past-participle (widget-create 'item
|
|
||||||
(lire--format-check-past-participle)))
|
|
||||||
;; Separator
|
|
||||||
(insert "\n")
|
|
||||||
;; Check button
|
|
||||||
(lire--make-button-check)
|
|
||||||
;; Separator
|
|
||||||
(lire--make-space-after-check)
|
|
||||||
;; Show solution button
|
|
||||||
(lire--make-button-show-solution)
|
|
||||||
;; Display the buffer
|
|
||||||
(use-local-map widget-keymap)
|
|
||||||
(widget-setup))
|
|
||||||
|
|
||||||
;; Init
|
|
||||||
(defun learning-irregular-verbs-in-English ()
|
|
||||||
"Application to learn and review irregular verbs in English."
|
|
||||||
(interactive)
|
|
||||||
(lire--main-layout)
|
|
||||||
(lire--start)
|
|
||||||
(widget-backward 4))
|
|
||||||
|
|
||||||
(provide 'learning-irregular-verbs-in-English)
|
|
||||||
|
|
||||||
;;; learning-irregular-verbs-in-English.el ends here
|
|
||||||
@ -1,4 +1,17 @@
|
|||||||
(defvar lire--verbs '(
|
;;; lirve-verbs.el --- Verb list for learning 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.2.0
|
||||||
|
;; SPDX-License-Identifier: GPL-3.0-or-later
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
;; This file contains a list of irregular verbs in English, with their
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
(defvar lirve--verbs '(
|
||||||
(
|
(
|
||||||
(infinitive . "beat")
|
(infinitive . "beat")
|
||||||
(simple-past . "beat")
|
(simple-past . "beat")
|
||||||
@ -600,4 +613,5 @@
|
|||||||
(translations
|
(translations
|
||||||
(es . "escribir")))))
|
(es . "escribir")))))
|
||||||
|
|
||||||
(provide 'learning-irregular-verbs-in-English--verbs)
|
(provide 'lirve-verbs)
|
||||||
|
;;; lirve-verbs.el ends here
|
||||||
320
lirve.el
Normal file
320
lirve.el
Normal file
@ -0,0 +1,320 @@
|
|||||||
|
;;; lirve.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.2.0
|
||||||
|
;; SPDX-License-Identifier: GPL-3.0-or-later
|
||||||
|
|
||||||
|
;;; Commentary:
|
||||||
|
;; Application to learn and review irregular verbs in English.
|
||||||
|
|
||||||
|
;;; Code:
|
||||||
|
|
||||||
|
;; Imports
|
||||||
|
(require 'lirve-verbs)
|
||||||
|
(require 'widget)
|
||||||
|
(eval-when-compile
|
||||||
|
(require 'wid-edit))
|
||||||
|
|
||||||
|
;; Variables
|
||||||
|
(defvar lirve--verbs-shuffle '())
|
||||||
|
(defvar lirve--file-name-unresolved "lirve-unresolved.txt")
|
||||||
|
(defvar lirve--verbs-unresolved '())
|
||||||
|
(defvar lirve--buffer-name "*Learning irregular verbs in English*")
|
||||||
|
(defvar lirve--state 1) ;; 1: lirve--start, 2: playing (before first check), 3: win (show success layout)
|
||||||
|
(defvar lirve--verb-to-learn-infinitive nil)
|
||||||
|
(defvar lirve--verb-to-learn-simple-past nil)
|
||||||
|
(defvar lirve--verb-to-learn-past-participle nil)
|
||||||
|
(defvar lirve--translation "")
|
||||||
|
(defvar lirve--emoji-valid "✅")
|
||||||
|
(defvar lirve--emoji-error "👎")
|
||||||
|
(defvar lirve--widget-title nil)
|
||||||
|
(defvar lirve--text-title " 🧑🎓 Learning irregular verbs in English 🇬🇧")
|
||||||
|
(defvar lirve--widget-item-verb nil)
|
||||||
|
(defvar lirve--widget-field-simple-past nil)
|
||||||
|
(defvar lirve--widget-label-check-simple-past nil)
|
||||||
|
(defvar lirve--widget-field-past-participle nil)
|
||||||
|
(defvar lirve--widget-label-check-past-participle nil)
|
||||||
|
(defvar lirve--text-button-check "Check")
|
||||||
|
(defvar lirve--widget-button-check nil)
|
||||||
|
(defvar lirve--widget-item-space-before-check nil)
|
||||||
|
(defvar lirve--text-button-show-solution "Don't know")
|
||||||
|
(defvar lirve--widget-button-show-solution nil)
|
||||||
|
(defvar lirve--widget-message-success nil)
|
||||||
|
(defvar lirve--widget-item-space-before-success nil)
|
||||||
|
(defvar lirve--text-success "Nice!")
|
||||||
|
(defvar lirve--text-fail "Next time you will do better")
|
||||||
|
(defvar lirve--is-resolve t)
|
||||||
|
(defvar lirve--widget-item-space-after-success nil)
|
||||||
|
(defvar lirve--widget-button-quit nil)
|
||||||
|
(defvar lirve--text-button-quit "Quit")
|
||||||
|
(defvar lirve--widget-item-space-between-buttons nil)
|
||||||
|
(defvar lirve--widget-button-lirve--replay nil)
|
||||||
|
(defvar lirve--text-button-lirve--replay "New challenge")
|
||||||
|
|
||||||
|
;; Functions
|
||||||
|
|
||||||
|
(defun lirve--shuffle (originalList &optional shuffledList)
|
||||||
|
"Applies the Fisher-Yates shuffle algorithm to a list.
|
||||||
|
Example: (lirve--shuffle '(1 2 3 4 5)) => (3 1 5 2 4)"
|
||||||
|
(if (null originalList)
|
||||||
|
;; End recursion, return the shuffled list
|
||||||
|
shuffledList
|
||||||
|
;; Otherwise, continue with the logic
|
||||||
|
(let* ((randomPosition (random (length originalList)))
|
||||||
|
(randomElement (nth randomPosition originalList))
|
||||||
|
;; Create a new original list without the randomly selected element
|
||||||
|
(originalListWithoutRandomElement (append (cl-subseq originalList 0 randomPosition) (nthcdr (1+ randomPosition) originalList)))
|
||||||
|
;; Create a new shuffled list with the selected element at the beginning
|
||||||
|
(newShuffledList (if (null shuffledList) (list randomElement) (cons randomElement shuffledList))))
|
||||||
|
;; Recursively call the shuffle function with the new original list and the new shuffled list
|
||||||
|
(lirve--shuffle originalListWithoutRandomElement newShuffledList))))
|
||||||
|
|
||||||
|
(defun lirve--kill-app ()
|
||||||
|
"Kill the application."
|
||||||
|
(kill-buffer lirve--buffer-name))
|
||||||
|
|
||||||
|
(defun lirve--save-verb-unresolved (infinitive)
|
||||||
|
"Save the verb unresolved to lirve--verbs-unresolved and to the file."
|
||||||
|
(setq lirve--verbs-unresolved (cons infinitive lirve--verbs-unresolved))
|
||||||
|
(with-temp-file (concat (file-name-directory user-init-file) lirve--file-name-unresolved)
|
||||||
|
(prin1 lirve--verbs-unresolved (current-buffer))))
|
||||||
|
|
||||||
|
(defun lirve--value-field-simple-past ()
|
||||||
|
"Get the value of the simple past."
|
||||||
|
(if (not (eq lirve--widget-field-simple-past nil)) (widget-value lirve--widget-field-simple-past) ""))
|
||||||
|
|
||||||
|
(defun lirve--value-field-past-participle ()
|
||||||
|
"Get the value of the past participle."
|
||||||
|
(if (not (eq lirve--widget-field-past-participle nil)) (widget-value lirve--widget-field-past-participle) ""))
|
||||||
|
|
||||||
|
(defun lirve--set-verb-to-learn ()
|
||||||
|
"Set the verb to learn."
|
||||||
|
(when (null lirve--verbs-shuffle)
|
||||||
|
(setq lirve--verbs-shuffle (lirve--shuffle lirve--verbs)))
|
||||||
|
(let ((verb-to-learn (car lirve--verbs-shuffle)))
|
||||||
|
(setq lirve--verb-to-learn-infinitive (alist-get 'infinitive verb-to-learn))
|
||||||
|
(setq lirve--verb-to-learn-simple-past (alist-get 'simple-past verb-to-learn))
|
||||||
|
(setq lirve--verb-to-learn-past-participle (alist-get 'past-participle verb-to-learn))
|
||||||
|
(when (not (null (boundp 'learning-irregular-verbs-in-English--show-translation))) (setq lirve--translation (alist-get learning-irregular-verbs-in-English--show-translation (alist-get 'translations verb-to-learn))))
|
||||||
|
;; Remove the verb from the list
|
||||||
|
(setq lirve--verbs-shuffle (cdr lirve--verbs-shuffle))))
|
||||||
|
|
||||||
|
(defun lirve--format-value-infinitive ()
|
||||||
|
"Format the value of the infinitive."
|
||||||
|
(format "Infinitive ➡️ %s" lirve--verb-to-learn-infinitive))
|
||||||
|
|
||||||
|
(defun lirve--format-check-simple-past ()
|
||||||
|
"Format the value of the simple past."
|
||||||
|
(if (eq lirve--state 1)
|
||||||
|
""
|
||||||
|
(format " %s" (if
|
||||||
|
(and
|
||||||
|
(string= (lirve--value-field-simple-past) lirve--verb-to-learn-simple-past)
|
||||||
|
(not (string= (lirve--value-field-simple-past) "")))
|
||||||
|
lirve--emoji-valid lirve--emoji-error))))
|
||||||
|
|
||||||
|
(defun lirve--format-check-past-participle ()
|
||||||
|
"Format the value of the past participle."
|
||||||
|
(if (eq lirve--state 1)
|
||||||
|
""
|
||||||
|
(format " %s" (if
|
||||||
|
(and
|
||||||
|
(string= (lirve--value-field-past-participle) lirve--verb-to-learn-past-participle)
|
||||||
|
(not (string= (lirve--value-field-past-participle) "")))
|
||||||
|
lirve--emoji-valid lirve--emoji-error))))
|
||||||
|
|
||||||
|
(defun lirve--show-translation ()
|
||||||
|
"Show translation if learning-irregular-verbs-in-English--show-translation is t"
|
||||||
|
(when (not (null lirve--translation))
|
||||||
|
(widget-value-set lirve--widget-item-verb (concat (lirve--format-value-infinitive) " 🇪🇸 " lirve--translation))))
|
||||||
|
|
||||||
|
(defun lirve--toggle-layout-finish ()
|
||||||
|
"Toggle the layout to success."
|
||||||
|
(if (eq lirve--state 3)
|
||||||
|
(progn
|
||||||
|
;; Show translate
|
||||||
|
(lirve--show-translation)
|
||||||
|
;; Cursor to end
|
||||||
|
(goto-char (point-max))
|
||||||
|
;; Remove check button
|
||||||
|
(widget-delete lirve--widget-button-check)
|
||||||
|
(setq lirve--widget-button-check nil)
|
||||||
|
;; Remove space after check button
|
||||||
|
(widget-delete lirve--widget-item-space-before-check)
|
||||||
|
(setq lirve--widget-item-space-before-check nil)
|
||||||
|
;; Remove show solution button
|
||||||
|
(widget-delete lirve--widget-button-show-solution)
|
||||||
|
(setq lirve--widget-button-show-solution nil)
|
||||||
|
;; Text success
|
||||||
|
(setq lirve--widget-item-space-before-success (widget-create 'item
|
||||||
|
""))
|
||||||
|
(setq lirve--widget-message-success (widget-create 'item
|
||||||
|
(if lirve--is-resolve lirve--text-success lirve--text-fail)))
|
||||||
|
(setq lirve--widget-item-space-after-success (widget-create 'item
|
||||||
|
"\n"))
|
||||||
|
;; Lirve--Replay button
|
||||||
|
(setq lirve--widget-button-lirve--replay (widget-create 'push-button
|
||||||
|
:size 20
|
||||||
|
:notify (lambda (&rest ignore)
|
||||||
|
(lirve--replay))
|
||||||
|
lirve--text-button-lirve--replay))
|
||||||
|
;; Space
|
||||||
|
(setq lirve--widget-item-space-between-buttons (widget-create 'item
|
||||||
|
"\n"))
|
||||||
|
;; Quit button
|
||||||
|
(setq lirve--widget-button-quit (widget-create 'push-button
|
||||||
|
:size 20
|
||||||
|
:notify (lambda (&rest ignore)
|
||||||
|
(lirve--kill-app))
|
||||||
|
lirve--text-button-quit))
|
||||||
|
(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))
|
||||||
|
(when (not (eq lirve--widget-item-space-after-success nil)) (widget-delete lirve--widget-item-space-after-success))
|
||||||
|
(when (not (eq lirve--widget-button-lirve--replay nil)) (widget-delete lirve--widget-button-lirve--replay))
|
||||||
|
(when (not (eq lirve--widget-item-space-between-buttons nil)) (widget-delete lirve--widget-item-space-between-buttons))
|
||||||
|
(when (not (eq lirve--widget-button-quit nil)) (widget-delete lirve--widget-button-quit))
|
||||||
|
)))
|
||||||
|
|
||||||
|
(defun lirve--make-button-check ()
|
||||||
|
"Make the button check."
|
||||||
|
(setq lirve--widget-button-check (widget-create 'push-button
|
||||||
|
:notify (lambda (&rest ignore)
|
||||||
|
(lirve--update))
|
||||||
|
lirve--text-button-check)))
|
||||||
|
(defun lirve--make-space-after-check ()
|
||||||
|
"Add space between Button check and Button show solution"
|
||||||
|
(setq lirve--widget-item-space-before-check (widget-create 'item "\n")))
|
||||||
|
|
||||||
|
|
||||||
|
(defun lirve--show-solutions ()
|
||||||
|
"Show solutions"
|
||||||
|
(widget-value-set lirve--widget-field-simple-past lirve--verb-to-learn-simple-past)
|
||||||
|
(widget-value-set lirve--widget-field-past-participle lirve--verb-to-learn-past-participle)
|
||||||
|
(lirve--save-verb-unresolved lirve--verb-to-learn-infinitive))
|
||||||
|
|
||||||
|
(defun lirve--make-button-show-solution ()
|
||||||
|
"Make the button show solution."
|
||||||
|
(setq lirve--widget-button-show-solution (widget-create 'push-button
|
||||||
|
:notify (lambda (&rest ignore)
|
||||||
|
(lirve--show-solutions)
|
||||||
|
(lirve--update))
|
||||||
|
lirve--text-button-show-solution)))
|
||||||
|
|
||||||
|
|
||||||
|
(defun lirve--start ()
|
||||||
|
"Start challenge."
|
||||||
|
;; Set the lirve--state
|
||||||
|
(setq lirve--state 1)
|
||||||
|
;; Get a new verb
|
||||||
|
(lirve--set-verb-to-learn)
|
||||||
|
;; Show the verb in infinitive
|
||||||
|
(widget-value-set lirve--widget-item-verb (lirve--format-value-infinitive))
|
||||||
|
;; Reset button check
|
||||||
|
(when (eq lirve--widget-button-check nil) (lirve--make-button-check))
|
||||||
|
;; Reset space after check
|
||||||
|
(when (eq lirve--widget-item-space-before-check nil) (lirve--make-space-after-check))
|
||||||
|
;; Reset button show solution
|
||||||
|
(when (eq lirve--widget-button-show-solution nil) (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 "")
|
||||||
|
(widget-value-set lirve--widget-field-past-participle "")
|
||||||
|
(widget-value-set lirve--widget-label-check-past-participle "")
|
||||||
|
;; Update labels
|
||||||
|
(lirve--update))
|
||||||
|
|
||||||
|
(defun lirve--replay ()
|
||||||
|
"Replay the challenge."
|
||||||
|
(interactive)
|
||||||
|
(lirve--start)
|
||||||
|
(widget-backward 1))
|
||||||
|
|
||||||
|
(defun lirve--update ()
|
||||||
|
"Update state and show temps layouts."
|
||||||
|
(interactive)
|
||||||
|
;; Is playing?
|
||||||
|
(when (and (eq lirve--state 1)
|
||||||
|
(or
|
||||||
|
(not (string= (lirve--value-field-simple-past) ""))
|
||||||
|
(not (string= (lirve--value-field-past-participle) "")))
|
||||||
|
)
|
||||||
|
(setq lirve--state 2))
|
||||||
|
;; Check the answers
|
||||||
|
(when (eq lirve--state 2)
|
||||||
|
;; Is win?
|
||||||
|
(when (and
|
||||||
|
(string= (lirve--value-field-simple-past) lirve--verb-to-learn-simple-past)
|
||||||
|
(string= (lirve--value-field-past-participle) lirve--verb-to-learn-past-participle))
|
||||||
|
;; Set the lirve--state
|
||||||
|
(setq lirve--state 3))
|
||||||
|
;; Update the check labels
|
||||||
|
(widget-value-set lirve--widget-label-check-simple-past (lirve--format-check-simple-past))
|
||||||
|
(widget-value-set lirve--widget-label-check-past-participle (lirve--format-check-past-participle)))
|
||||||
|
;; Update the success layout if needed
|
||||||
|
(lirve--toggle-layout-finish)
|
||||||
|
(setq lirve--is-resolve t))
|
||||||
|
|
||||||
|
(defun lirve--main-layout ()
|
||||||
|
"Make widgets for the main layout."
|
||||||
|
;; Create the buffer
|
||||||
|
(switch-to-buffer lirve--buffer-name)
|
||||||
|
;; Clear the buffer
|
||||||
|
(kill-all-local-variables)
|
||||||
|
(let ((inhibit-read-only t))
|
||||||
|
(erase-buffer))
|
||||||
|
(remove-overlays)
|
||||||
|
;; Create the widgets
|
||||||
|
;; Title
|
||||||
|
(insert (propertize (format "\n%s\n\n" lirve--text-title) 'face '(:height 1.2 :weight bold)))
|
||||||
|
;; Verb in infinitive
|
||||||
|
(setq lirve--widget-item-verb (widget-create 'item
|
||||||
|
:value ""))
|
||||||
|
;; Separator
|
||||||
|
(insert "\nSimple past ➡️ ")
|
||||||
|
;; Simple past
|
||||||
|
(setq lirve--widget-field-simple-past (widget-create 'editable-field
|
||||||
|
:size 8
|
||||||
|
:help-echo "Type a Simple past"
|
||||||
|
))
|
||||||
|
;; Label check
|
||||||
|
(insert " ")
|
||||||
|
(setq lirve--widget-label-check-simple-past (widget-create 'item
|
||||||
|
(lirve--format-check-simple-past)))
|
||||||
|
;; Separator
|
||||||
|
(insert "\nPast participle ➡️ ")
|
||||||
|
;; Past participle
|
||||||
|
(setq lirve--widget-field-past-participle (widget-create 'editable-field
|
||||||
|
:size 8
|
||||||
|
:help-echo "Type a Past participle"))
|
||||||
|
;; Label check
|
||||||
|
(insert " ")
|
||||||
|
(setq lirve--widget-label-check-past-participle (widget-create 'item
|
||||||
|
(lirve--format-check-past-participle)))
|
||||||
|
;; Separator
|
||||||
|
(insert "\n")
|
||||||
|
;; Check button
|
||||||
|
(lirve--make-button-check)
|
||||||
|
;; Separator
|
||||||
|
(lirve--make-space-after-check)
|
||||||
|
;; Show solution button
|
||||||
|
(lirve--make-button-show-solution)
|
||||||
|
;; Display the buffer
|
||||||
|
(use-local-map widget-keymap)
|
||||||
|
(widget-setup))
|
||||||
|
|
||||||
|
;; Init
|
||||||
|
(defun learning-irregular-verbs-in-english ()
|
||||||
|
"Application to learn and review irregular verbs in English."
|
||||||
|
(interactive)
|
||||||
|
(lirve--main-layout)
|
||||||
|
(lirve--start)
|
||||||
|
(widget-backward 4))
|
||||||
|
|
||||||
|
(provide 'lirve)
|
||||||
|
|
||||||
|
;;; lirve.el ends here
|
||||||
Loading…
Reference in New Issue
Block a user