From f04ada478f4bfa5637744876f00ff56f85dcf552 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 21 Jul 2026 00:14:25 -0400 Subject: Update --- src/gizmo/wasp-combo.el | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) (limited to 'src/gizmo/wasp-combo.el') diff --git a/src/gizmo/wasp-combo.el b/src/gizmo/wasp-combo.el index 5e4d7338..ae8b4d4f 100644 --- a/src/gizmo/wasp-combo.el +++ b/src/gizmo/wasp-combo.el @@ -32,7 +32,24 @@ (lines (s-lines text))) (--each lines (w/combo-words-process-line it)))) -(w/combo-words-load) +(defun w/combo-words-save-cache () + "Save `w/combo-words' to disk." + (f-write-text + (format "%S" + (cons + (ht->alist w/combo-words) + (ht->alist w/combo-word-phonemes))) + 'utf-8 + (w/asset "syllables.eld"))) +(defun w/combo-words-load-cache () + "Load `w/combo-words' from disk." + (let ((res + (w/read-sexp + (f-read-text (w/asset "syllables.eld") 'utf-8)))) + (setf w/combo-words (ht<-alist (car res))) + (setf w/combo-word-phonemes (ht<-alist (cdr res))))) +;; (w/combo-words-load) +(w/combo-words-load-cache) (defun w/combo-split-words (sentence) "Split SENTENCE into uppercase words." -- cgit v1.3.1