summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--assets/avatars/clonkhead.pngbin0 -> 1150494 bytes
-rw-r--r--assets/badges/offkai2026.pngbin0 -> 413 bytes
-rw-r--r--src/gizmo/wasp-combo.el1
-rw-r--r--src/gizmo/wasp-debt.el2
-rw-r--r--src/gizmo/wasp-fakechat.el2
-rw-r--r--src/gizmo/wasp-flymake.el2
-rw-r--r--src/gizmo/wasp-prod.el2
-rw-r--r--src/gizmo/wasp-resolve.el2
-rw-r--r--src/gizmo/wasp-uwoomfie.el15
-rw-r--r--src/wasp-event-handlers.el4
-rw-r--r--src/wasp-gizmo.el2
-rw-r--r--src/wasp-overlay.el1
-rw-r--r--src/wasp-setup.el6
-rw-r--r--src/wasp-twitch-chat-commands.el4
-rw-r--r--src/wasp-twitch-redeems.el4
-rw-r--r--src/wasp-voice-commands.el2
-rw-r--r--wasp.el13
17 files changed, 25 insertions, 37 deletions
diff --git a/assets/avatars/clonkhead.png b/assets/avatars/clonkhead.png
new file mode 100644
index 00000000..7c67b23b
--- /dev/null
+++ b/assets/avatars/clonkhead.png
Binary files differ
diff --git a/assets/badges/offkai2026.png b/assets/badges/offkai2026.png
new file mode 100644
index 00000000..a4c05072
--- /dev/null
+++ b/assets/badges/offkai2026.png
Binary files differ
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
diff --git a/src/wasp-event-handlers.el b/src/wasp-event-handlers.el
index 3aee77b5..04ba860d 100644
--- a/src/wasp-event-handlers.el
+++ b/src/wasp-event-handlers.el
@@ -2,7 +2,7 @@
;;; Commentary:
;;; Code:
-(require 'soundboard)
+(require 'soundboard nil t)
(require 'wasp-bus)
(require 'wasp-twitch)
(require 'wasp-friend)
@@ -23,7 +23,7 @@
(cons
'(monitor nethack monster)
(lambda (data)
- (when-let ((sp (s-split " " (car data))))
+ (when-let* ((sp (s-split " " (car data))))
(setf planet/last-monster (cons (s-join " " (cdr sp)) (string-to-number (car sp))))
(planet/render-monster-summary))))
(cons
diff --git a/src/wasp-gizmo.el b/src/wasp-gizmo.el
index e0359c08..ad6589d9 100644
--- a/src/wasp-gizmo.el
+++ b/src/wasp-gizmo.el
@@ -72,7 +72,7 @@
w/gizmo-update-timer
(run-with-timer 10 nil #'w/gizmo-run-update-timer)))
-(require 'htmlize)
+(require 'htmlize nil t)
(defvar w/gizmo-html-cache (ht-create))
(defun w/gizmo-render-html (buf)
"Render BUF to HTML with embedded images."
diff --git a/src/wasp-overlay.el b/src/wasp-overlay.el
index cc334f8a..cd0df601 100644
--- a/src/wasp-overlay.el
+++ b/src/wasp-overlay.el
@@ -138,7 +138,6 @@ Optionally, make the cells be COLOR."
(make-frame-invisible w/overlay-clippy-frame)
(let ((window (frame-selected-window w/overlay-clippy-frame)))
(set-window-buffer window (w/overlay-clippy-frame-buffer))))
-(w/overlay-clippy-frame-create)
(defun w/overlay-clippy-clear ()
"Clear the Clippy buffer."
(when w/overlay-clippy-frame
diff --git a/src/wasp-setup.el b/src/wasp-setup.el
index 4c3ab1ba..f72f3c1b 100644
--- a/src/wasp-setup.el
+++ b/src/wasp-setup.el
@@ -28,6 +28,7 @@
(windmove-right)
(split-window-vertically -28)
(windmove-down)
+ (w/overlay-clippy-frame-create)
)
(defun w/setup-connections ()
@@ -50,8 +51,11 @@
(interactive)
;; initialization
(w/setup-connections)
-
+ (w/combo-words-load-cache)
(w/badge-populate-cache)
+ (w/debt-data-fetch)
+ (add-hook 'prog-mode-hook #'w/flymake-setup)
+ (add-hook 'eglot-managed-mode-hook #'w/flymake-setup)
;; timers
(w/twitch-run-shoutout-timer)
diff --git a/src/wasp-twitch-chat-commands.el b/src/wasp-twitch-chat-commands.el
index 4436db62..70ad1406 100644
--- a/src/wasp-twitch-chat-commands.el
+++ b/src/wasp-twitch-chat-commands.el
@@ -2,7 +2,7 @@
;;; Commentary:
;;; Code:
-(require 'soundboard)
+(require 'soundboard nil t)
(require 'wasp-twitch)
(require 'wasp-ai)
(require 'wasp-8ball)
@@ -18,7 +18,7 @@
(cons
"!oub"
(lambda (_ _ msg)
- (when-let ((buf (get-buffer "*cider-repl libcolonq/pit:localhost:7888(pit)*")))
+ (when-let* ((buf (get-buffer "*cider-repl libcolonq/pit:localhost:7888(pit)*")))
(nrepl-sync-request:eval (s-trim (s-chop-prefix "!oub" msg)) buf))))
(cons
"!commands"
diff --git a/src/wasp-twitch-redeems.el b/src/wasp-twitch-redeems.el
index 9d0bd009..c1e3b6c0 100644
--- a/src/wasp-twitch-redeems.el
+++ b/src/wasp-twitch-redeems.el
@@ -4,7 +4,7 @@
(require 'dash)
(require 's)
-(require 'soundboard)
+(require 'soundboard nil t)
(require 'wasp-utils)
(require 'wasp-twitch)
(require 'wasp-model)
@@ -301,7 +301,7 @@
(if (and spell target (stringp spell) (stringp target))
(progn
(w/chat-write-event (s-concat user " hexed " target " with: " spell))
- (when-let ((type (alist-get spell w/hex-types nil nil #'s-equals?)))
+ (when-let* ((type (alist-get spell w/hex-types nil nil #'s-equals?)))
(w/hex target user type)))
(w/chat-write-event (s-concat user "'s hex fizzled out with a puff of smoke!"))))))
(list
diff --git a/src/wasp-voice-commands.el b/src/wasp-voice-commands.el
index 255f8cb8..d71b1ecb 100644
--- a/src/wasp-voice-commands.el
+++ b/src/wasp-voice-commands.el
@@ -2,7 +2,7 @@
;;; Commentary:
;;; Code:
-(require 'soundboard)
+(require 'soundboard nil t)
(require 'wasp-audio)
(require 'wasp-twitch)
(require 'wasp-chat)
diff --git a/wasp.el b/wasp.el
index d5ab3e56..07167855 100644
--- a/wasp.el
+++ b/wasp.el
@@ -39,7 +39,7 @@
(require 'wasp-gizmo)
(require 'wasp-setup)
-;; gizmos
+;; active gizmos
(require 'wasp-pronunciation)
(require 'wasp-biblicality)
(require 'wasp-glossary)
@@ -59,10 +59,6 @@
(require 'wasp-gcp)
(require 'wasp-aoc)
(require 'wasp-resolve)
-;; (require 'wasp-hexamedia)
-;; (require 'wasp-copfish)
-;; (require 'wasp-shindaggers)
-;; (require 'wasp-uwoomfie)
(require 'wasp-density)
(require 'wasp-wikipedia)
(require 'wasp-prod)
@@ -87,13 +83,6 @@
(require 'wasp-event-handlers)
(require 'wasp-event-handlers-binary)
-;; user contrib
-;; (require 'muzak)
-
-;; (defun w/fix-user-database-ok (user)
-;; "Fix USER's database entry."
-;; (w/user-set user (fig//db2-serialize-old-entry (fig//load-db-old user))))
-
(setq elisp-flymake-byte-compile-load-path load-path)
(provide 'wasp)