Update

10 files changed, 45 insertions, 8 deletions

diff --git a/src/gizmo/wasp-biblicality.el b/src/gizmo/wasp-biblicality.el
index ce49a5b4..b7c46ed8 100644
--- a/src/gizmo/wasp-biblicality.el
+++ b/src/gizmo/wasp-biblicality.el
@@ -21,7 +21,7 @@
 (defun w/populate-bible-table ()
   "Populate `w/bible-table' from the Bible text file."
   (unless w/bible-table
-    (let* ((bible-string (s-downcase (w/slurp (w/asset "medical.txt"))))
+    (let* ((bible-string (s-downcase (w/slurp (w/asset "bible.txt"))))
            (bible-string-nosyms (replace-regexp-in-string "[^[:alpha:]]" " " bible-string))
            (bible-words (s-split-words bible-string-nosyms))
            (ret (ht-create)))
diff --git a/src/gizmo/wasp-fake-chatters.el b/src/gizmo/wasp-fake-chatters.el
index 5eb42379..e7167584 100644
--- a/src/gizmo/wasp-fake-chatters.el
+++ b/src/gizmo/wasp-fake-chatters.el
@@ -10,6 +10,7 @@
  (list
   ;; (w/make-fake-chatter :profile w/fake-chatter-profile-drcolon)
   (w/make-fake-chatter :profile w/fake-chatter-profile-forsen)
+
   (w/make-fake-chatter :profile w/fake-chatter-profile-eighteyedsixwingedseraph)
   (w/make-fake-chatter :profile w/fake-chatter-profile-quasiconformal)
   (w/make-fake-chatter :profile w/fake-chatter-profile-nefrayu)
diff --git a/src/gizmo/wasp-friend.el b/src/gizmo/wasp-friend.el
index a476facc..6eb5222f 100644
--- a/src/gizmo/wasp-friend.el
+++ b/src/gizmo/wasp-friend.el
@@ -336,7 +336,7 @@ If K is specified, call it after the response."
 
 (defun w/friend-callout-holiday ()
   "Call to respond to the current holiday."
-  (w/friend-respond "It's New Year's Eve! Say something about it please!"))
+  (w/friend-respond "It's a beautiful day today! Say something about it!"))
 
 (defun w/friend-callout-hexamedia ()
   "Call to respond to a random recent chatter's Hexamedia card collection."
diff --git a/src/gizmo/wasp-heartrate.el b/src/gizmo/wasp-heartrate.el
index 36fe5b38..62994680 100644
--- a/src/gizmo/wasp-heartrate.el
+++ b/src/gizmo/wasp-heartrate.el
@@ -56,7 +56,7 @@
     (setq-local cursor-type nil)
     (let* ((inhibit-read-only t))
       (erase-buffer)
-      (w/write-line (format "%3d °C" (w/get-heartrate)) 'w/heartrate-big)
+      (w/write-line (format "%3d bpm" (w/get-heartrate)) 'w/heartrate-big)
       (w/write (format "arbitrary counter: %s times" w/chat-bpm-count) 'w/heartrate-small))))
 
 (defvar w/heartrate-timer nil)
diff --git a/src/gizmo/wasp-resolve.el b/src/gizmo/wasp-resolve.el
new file mode 100644
index 00000000..1fc757d2
--- /dev/null
+++ b/src/gizmo/wasp-resolve.el
@@ -0,0 +1,26 @@
+;;; wasp-resolve --- The Strength Of Our Resolve -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+(require 'wasp-user)
+
+(defcustom w/resolve-buffer "*wasp-resolve*"
+  "Name of buffer used to display resolve."
+  :type '(string)
+  :group 'wasp)
+
+(defvar w/resolve-recorded nil)
+
+(defun w/resolve-record-user (user)
+  "Record resolve for USER if not already recorded."
+  (unless (-contains? w/resolve-recorded user)
+    (w/user-get
+     user
+     (lambda (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))
+           (insert (format "%s: %s\n" user resolution))))))))
+
+(provide 'wasp-resolve)
+;;; wasp-resolve.el ends here
diff --git a/src/wasp-chat.el b/src/wasp-chat.el
index 6aedbf10..4fb9be43 100644
--- a/src/wasp-chat.el
+++ b/src/wasp-chat.el
@@ -296,7 +296,7 @@ Optionally, return the buffer NM in chat mode."
       (insert (s-replace-all w/chat-substitutions (w/. text msg)))
       (when (w/. biblicality msg)
         (let* ((wwidth (- (window-total-width (get-buffer-window (current-buffer))) 3))
-               (bible-button-text (format "[medicality %.2f]" (w/. biblicality msg)))
+               (bible-button-text (format "[biblicality %.2f]" (w/. biblicality msg)))
                (msgwidth (line-beginning-position))
                (lines (+ 1 (/ msgwidth wwidth))))
           (insert
diff --git a/src/wasp-model.el b/src/wasp-model.el
index 2a2b99be..02bd64cb 100644
--- a/src/wasp-model.el
+++ b/src/wasp-model.el
@@ -36,7 +36,10 @@
 (defun w/model-reset ()
   "Reset the model palette."
   (interactive)
-  (w/pub '(avatar reset)))
+  (w/pub '(avatar reset))
+  ;; (w/model-region-color "eyes" (color-values "gold"))
+  ;; (w/model-region-word "eyes" "GOLDEN")
+  )
 
 (defun w/model-toggle (toggle)
   "Toggle TOGGLE on model."
diff --git a/src/wasp-twitch-chat-commands.el b/src/wasp-twitch-chat-commands.el
index 793ab374..2cca2158 100644
--- a/src/wasp-twitch-chat-commands.el
+++ b/src/wasp-twitch-chat-commands.el
@@ -49,15 +49,18 @@
   (cons "heart" (lambda (_ _) (cl-incf w/chat-bpm-count)))
   (cons "Heart" (lambda (_ _) (cl-incf w/chat-bpm-count)))
   (cons "!menu" (lambda (_ _) (w/twitch-say "https://secure.colonq.computer/menu")))
+  (cons "!guy" (lambda (_ _) (w/twitch-say "[🌙] it worked")))
+  (cons "!littleguy" (lambda (_ _) (w/twitch-say "[🌙] it worked")))
   (cons "!irc" (lambda (_ _) (w/twitch-say "#cyberspace on IRC at colonq.computer:26697 (over TLS)")))
   (cons "IRC" (lambda (_ _) (w/twitch-say "#cyberspace on IRC at colonq.computer:26697 (over TLS)")))
 
   (cons "!today" (lambda (_ _) (w/twitch-say (s-trim (w/slurp "~/today.txt")))))
   (cons "!schedule" (lambda (_ _) (w/twitch-say "https://twitch.tv/LCOLONQ/schedule")))
   (cons "!bingo" (lambda (_ _) (w/twitch-say "https://pub.colonq.computer/~prod/toy/bingo/")))
+  (cons "!music" (lambda (_ _) (w/twitch-say "we do not play music because it can be distracting; however you can listen to the official OST at https://vgmusic.fm :3")))
   (cons
    "!music"
-   (lambda (_ _) (w/twitch-say "https://www.youtube.com/playlist?list=PLQ_Vw7ACol3CN58_osDkbeKa14Hk-N-TZ")))
+   (lambda (_ _) (w/twitch-say "alternatively https://www.youtube.com/playlist?list=PLQ_Vw7ACol3CN58_osDkbeKa14Hk-N-TZ")))
   (cons
    "!fish"
    (lambda (_ _)
@@ -80,6 +83,9 @@
   (cons "!ring" (lambda (_ _) (w/twitch-say "https://pub.colonq.computer")))
   (cons "!webring" (lambda (_ _) (w/twitch-say "https://pub.colonq.computer")))
   (cons "!animeguide" (lambda (_ _) (w/twitch-say "https://nixos-and-flakes.thiscute.world/introduction")))
+  (cons "!greencircle" (lambda (_ _) (w/twitch-say "https://greencircle.live")))
+  (cons "!circle" (lambda (_ _) (w/twitch-say "https://greencircle.live")))
+  (cons "!doujincircle" (lambda (_ _) (w/twitch-say "https://greencircle.live")))
   (cons "!tsuki" (lambda (_ _) (w/twitch-say "https://forum.tsuki.games")))
   (cons "!sponsor" (lambda (_ _) (w/twitch-say "Like what you see? Don't forget to download GNU Emacs at https://www.gnu.org/software/emacs/?code=LCOLONQ")))
   (cons "!specs" (lambda (_ _) (w/twitch-say "Editor: evil-mode, WM: EXWM, OS: NixOS, hardware: shit laptop")))
@@ -159,7 +165,7 @@
        (if (string-empty-p trimmed)
            (w/write-chat-event "You gotta put what your resolution is.")
          (w/write-chat-event (format "%s RESOLVES: %s" (s-upcase user) trimmed))
-         (setf (alist-get :resolution w/user-current) trimmed)))))
+         (setf (alist-get :resolution2025 w/user-current) trimmed)))))
   ;; (cons "!addbookrec"
   ;;       (lambda (user inp)
   ;;         (let ((trimmed (s-trim (s-replace "!addbookrec" "" inp))))
diff --git a/src/wasp-twitch.el b/src/wasp-twitch.el
index 419d8fc9..979eb8ee 100644
--- a/src/wasp-twitch.el
+++ b/src/wasp-twitch.el
@@ -557,7 +557,7 @@ CALLBACK will be passed the winner when the poll concludes."
          (w/copfish-update-user user)
          (when (s-equals? (s-downcase user) "modclonk")
            (w/obs-activate-toggle 'modclonk))
-
+         (w/resolve-record-user user)
          (w/hex-tick user)
          (w/hex-transform
           user
diff --git a/src/wasp-user-whitelist.el b/src/wasp-user-whitelist.el
index 62be1997..759d7b55 100644
--- a/src/wasp-user-whitelist.el
+++ b/src/wasp-user-whitelist.el
@@ -221,6 +221,7 @@
    "quantumbohm"
    "sodacoma"
    "hibakod"
+   "archible"
    )))
 
 (setq