feat(tazjin/russian): Add macro to populate word table
Adds a stupid macro that populates a 'russian-words' hash table in which merged definitions of words are available. Change-Id: Ide7825577ba26d63ff564e54601541f39ab5a1a6
This commit is contained in:
parent
104f002a07
commit
48290298ad
2 changed files with 72 additions and 1 deletions
65
users/tazjin/russian/russian.el
Normal file
65
users/tazjin/russian/russian.el
Normal file
|
@ -0,0 +1,65 @@
|
||||||
|
(require 'cl-macs)
|
||||||
|
(require 'ht)
|
||||||
|
(require 'seq)
|
||||||
|
|
||||||
|
;; 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)))
|
||||||
|
|
||||||
|
(provide 'russian)
|
|
@ -4,7 +4,10 @@
|
||||||
;; translations :: '(translation ...)
|
;; translations :: '(translation ...)
|
||||||
;; roots :: '(root ...)
|
;; roots :: '(root ...)
|
||||||
|
|
||||||
'( ;; 1-50
|
(require 'russian-defs)
|
||||||
|
|
||||||
|
(define-russian-words
|
||||||
|
;; 1-50
|
||||||
("и" ("and" "though"))
|
("и" ("and" "though"))
|
||||||
("в" ("in" "at"))
|
("в" ("in" "at"))
|
||||||
("не" ("not"))
|
("не" ("not"))
|
||||||
|
@ -412,3 +415,6 @@
|
||||||
("оставить" ("to leave" "to abandon"))
|
("оставить" ("to leave" "to abandon"))
|
||||||
("войти" ("to enter" "to come in") nil ("-й-"))
|
("войти" ("to enter" "to come in") nil ("-й-"))
|
||||||
("длинный" ("long")))
|
("длинный" ("long")))
|
||||||
|
|
||||||
|
|
||||||
|
(provide 'russian-words)
|
||||||
|
|
Loading…
Reference in a new issue