mirror of
https://github.com/tanrax/lirve.el.git
synced 2024-11-09 23:35:42 +01:00
82 lines
2.3 KiB
EmacsLisp
82 lines
2.3 KiB
EmacsLisp
;;; 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:
|
|
|
|
(defun learning-irregular-verbs-in-English ()
|
|
"Application to learn and review irregular verbs in English."
|
|
(interactive)
|
|
(let ((verbs '(("be" "was/were" "been")
|
|
("beat" "beat" "beaten")
|
|
("become" "became" "become")
|
|
("begin" "began" "begun")
|
|
("bend" "bent" "bent")
|
|
("bet" "bet" "bet")
|
|
("bite" "bit" "bitten")
|
|
("blow" "blew" "blown")
|
|
("break" "broke" "broken")
|
|
("bring" "brought" "brought")
|
|
("build" "built" "built")
|
|
("burn" "burnt" "burnt")
|
|
("buy" "bought" "bought")
|
|
("catch" "caught" "caught")
|
|
("choose" "chose" "chosen")
|
|
("come" "came" "come")
|
|
("cost" "cost" "cost")
|
|
("cut" "cut" "cut")
|
|
("dig" "dug" "dug")
|
|
("do" "did" "done")
|
|
("draw" "drew" "drawn")
|
|
("dream" "dreamt" "dreamt")
|
|
("drink" "drank" "drunk")
|
|
("drive" "drove" "driven")
|
|
("eat" "ate" "eaten")
|
|
("fall" "fell" "fallen")
|
|
("feed" "fed" "fed")
|
|
("feel" "felt" "felt")
|
|
("fight" "fought" "fought")
|
|
("find" "found" "found")
|
|
("fly" "flew" "flown")
|
|
("forget" "forgot" "forgotten")
|
|
("forgive" "forgave" "forgiven")
|
|
("freeze" "froze" "frozen")
|
|
("get" "got" "got")
|
|
("give" "gave" "given")
|
|
("go" "went" "gone")
|
|
("grow" "grew" "grown")
|
|
("hang" "hung" "hung")
|
|
("have" "had" "had")
|
|
("hear" "heard" "heard")
|
|
("hide" "hid" "hidden")
|
|
("hit" "hit" "hit")))
|
|
(verbs-learned '())
|
|
(emoji-valid "✅")
|
|
(emoji-error "👎")
|
|
(widget-title nil)
|
|
(text-title "Learning irregular verbs in English")
|
|
(widget-item-first-verb nil)
|
|
(widget-field-first-simple-past nil)
|
|
(widget-field-first-past-participle nil)
|
|
(text-button-check "Check")
|
|
(widget-button-first nil)
|
|
(widget-message-success nil)
|
|
(text-success "Congratulations!")
|
|
(widget-button-quit nil)
|
|
(text-button-quit "Quit")
|
|
(widget-button-replay nil)
|
|
(text-button-replay "New challenge")
|
|
))
|
|
)
|
|
|
|
(provide 'learning-irregular-verbs-in-English)
|
|
|
|
;;; learning-irregular-verbs-in-English.el ends here
|