Cleanup

7 files changed, 11 insertions, 15 deletions

diff --git a/src/gizmo/wasp-combo.el b/src/gizmo/wasp-combo.el
index ae8b4d4f..1feab29e 100644
--- a/src/gizmo/wasp-combo.el
+++ b/src/gizmo/wasp-combo.el
@@ -49,7 +49,6 @@
     (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."
diff --git a/src/gizmo/wasp-debt.el b/src/gizmo/wasp-debt.el
index 4548f3a4..6d59c4c4 100644
--- a/src/gizmo/wasp-debt.el
+++ b/src/gizmo/wasp-debt.el
@@ -102,7 +102,5 @@
   (incf w/debt-seconds 10))
 (add-hook 'w/gizmo-update-hook #'w/debt-upload)
 
-(w/debt-data-fetch)
-
 (provide 'wasp-debt)
 ;;; wasp-debt.el ends here
diff --git a/src/gizmo/wasp-fakechat.el b/src/gizmo/wasp-fakechat.el
index ff7ed5d5..97d4398c 100644
--- a/src/gizmo/wasp-fakechat.el
+++ b/src/gizmo/wasp-fakechat.el
@@ -6,7 +6,7 @@
 (require 's)
 (require 'f)
 (require 'ht)
-(require 'soundboard)
+(require 'soundboard nil t)
 (require 'wasp-utils)
 (require 'wasp-chat)
 (require 'wasp-audio)
diff --git a/src/gizmo/wasp-flymake.el b/src/gizmo/wasp-flymake.el
index b727d2c9..5b4eca57 100644
--- a/src/gizmo/wasp-flymake.el
+++ b/src/gizmo/wasp-flymake.el
@@ -58,8 +58,6 @@
   "Setup stream Flymake errors."
   (unless (-contains? flymake-diagnostic-functions #'w/flymake-backend)
     (add-hook 'flymake-diagnostic-functions #'w/flymake-backend nil t)))
-(add-hook 'prog-mode-hook #'w/flymake-setup)
-(add-hook 'eglot-managed-mode-hook #'w/flymake-setup)
 
 (provide 'wasp-flymake)
 ;;; wasp-flymake.el ends here
diff --git a/src/gizmo/wasp-prod.el b/src/gizmo/wasp-prod.el
index dbfe19c6..f798d700 100644
--- a/src/gizmo/wasp-prod.el
+++ b/src/gizmo/wasp-prod.el
@@ -14,7 +14,7 @@
 (require 'wasp-chat)
 (require 'wasp-twitch)
 (require 'wasp-biblicality)
-(require 'soundboard)
+(require 'soundboard nil t)
 
 (defcustom w/prod-server "https://prod.kr"
   "Server URL for prodzpod."
diff --git a/src/gizmo/wasp-resolve.el b/src/gizmo/wasp-resolve.el
index 1fc757d2..9fd9ae10 100644
--- a/src/gizmo/wasp-resolve.el
+++ b/src/gizmo/wasp-resolve.el
@@ -16,7 +16,7 @@
     (w/user-get
      user
      (lambda (data)
-       (when-let ((resolution (alist-get :resolution data)))
+       (when-let* ((resolution (alist-get :resolution data)))
          (add-to-list 'w/resolve-recorded user)
          (with-current-buffer (get-buffer-create w/resolve-buffer)
            (goto-char (point-max))
diff --git a/src/gizmo/wasp-uwoomfie.el b/src/gizmo/wasp-uwoomfie.el
index 1c5e32ee..5271a632 100644
--- a/src/gizmo/wasp-uwoomfie.el
+++ b/src/gizmo/wasp-uwoomfie.el
@@ -60,13 +60,14 @@
    ((-contains? w/uwoomfie-honorary-viewers user) 'honored)
    (t nil)))
 
-(w/uwoomfie-fetch-honorary-viewers
- (lambda (users)
-   (setf w/uwoomfie-honorary-viewers users)))
-
-(w/uwoomfie-fetch-cool-people
- (lambda (users)
-   (setf w/uwoomfie-cool-people (cons "Watchmakering" users))))
+(defun w/uwoomfie-initialize ()
+  "Initialize Uwoomfie caches."
+  (w/uwoomfie-fetch-honorary-viewers
+    (lambda (users)
+      (setf w/uwoomfie-honorary-viewers users)))
+  (w/uwoomfie-fetch-cool-people
+    (lambda (users)
+      (setf w/uwoomfie-cool-people (cons "Watchmakering" users)))))
 
 (provide 'wasp-uwoomfie)
 ;;; wasp-uwoomfie.el ends here