f7c87fd774
This should keep up passive exposure to words, but needs a subsequent function for filtering out things that are definitely known. Since I'm keeping the frequent word list mostly intact the majority of words are very basic, but it's those last 15-20% I'm interested in (not completely imported yet). Change-Id: I7a5684b8dca1fe5301e8b394be2627550a60e3c6
90 lines
3.3 KiB
EmacsLisp
90 lines
3.3 KiB
EmacsLisp
(require 'cl-macs)
|
|
(require 'ht)
|
|
(require 'seq)
|
|
(require 's)
|
|
|
|
;; Type definitions for Russian structures
|
|
|
|
(cl-defstruct russian-word
|
|
"Definition and metadata of a single Russian word."
|
|
(word nil :type string)
|
|
(translations :type list
|
|
:documentation "List of lists of strings, each a set of translations.")
|
|
|
|
(notes nil :type list ;; of string
|
|
:documentation "free-form notes about this word")
|
|
|
|
(roots nil :type list ;; of string
|
|
:documentation "list of strings that correspond with roots (exact string match)"))
|
|
|
|
(defun russian--merge-words (previous new)
|
|
"Merge two Russian word definitions together. If no previous
|
|
definition exists, only the new one will be returned."
|
|
(if (not previous) new
|
|
(assert (equal (russian-word-word previous)
|
|
(russian-word-word new))
|
|
"different words passed into merge function")
|
|
(make-russian-word :word (russian-word-word previous)
|
|
:translations (-concat (russian-word-translations previous)
|
|
(russian-word-translations new))
|
|
:notes (-concat (russian-word-notes previous)
|
|
(russian-word-notes new))
|
|
:roots (-concat (russian-word-roots previous)
|
|
(russian-word-roots new)))))
|
|
|
|
;; Definitions for creating a data structure of all Russian words.
|
|
|
|
(defvar russian-words (make-hash-table)
|
|
"Table of all Russian words in the corpus.")
|
|
|
|
(defun russian--define-word (word)
|
|
"Define a single word in the corpus, optionally merging it with
|
|
another entry."
|
|
(let ((key (russian-word-word word)))
|
|
(ht-set russian-words key (russian--merge-words
|
|
(ht-get russian-words key)
|
|
word))))
|
|
|
|
(defmacro define-russian-words (&rest words)
|
|
"Define the list of all available words. There may be more than
|
|
one entry for a word in some cases."
|
|
(declare (indent defun))
|
|
|
|
;; Clear the table before proceeding with insertion
|
|
(setq russian-words (make-hash-table))
|
|
|
|
(seq-map
|
|
(lambda (word)
|
|
(russian--define-word (make-russian-word :word (car word)
|
|
:translations (cadr word)
|
|
:notes (caddr word)
|
|
:roots (cadddr word))))
|
|
words)
|
|
|
|
'(message "Defined %s unique words." (ht-size russian-words)))
|
|
|
|
;; Helpers to train Russian words when Emacs is idling.
|
|
|
|
(defun russian--format-word (word)
|
|
"Format a Russian word suitable for echo display."
|
|
(apply #'s-concat
|
|
(-flatten
|
|
(list (russian-word-word word)
|
|
" - "
|
|
(s-join ", " (russian-word-translations word))
|
|
(when-let ((roots (russian-word-roots word)))
|
|
(list " [" (s-join ", " roots) "]"))
|
|
(when-let ((notes (russian-word-notes word)))
|
|
(list " (" (s-join "; " notes) ")"))))))
|
|
|
|
(defvar russian--last-word nil
|
|
"Last randomly displayed Russian word")
|
|
|
|
(defun display-random-russian-word ()
|
|
(interactive)
|
|
(message (russian--format-word (seq-random-elt (ht-values russian-words)))))
|
|
|
|
(defvar russian--display-timer
|
|
(run-with-idle-timer 5 t #'display-random-russian-word))
|
|
|
|
(provide 'russian)
|