Update

1 files changed, 18 insertions, 1 deletions

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."