Update

1 files changed, 66 insertions, 50 deletions

diff --git a/src/wasp-chat.el b/src/wasp-chat.el
index 4a6fb3e0..9316ab03 100644
--- a/src/wasp-chat.el
+++ b/src/wasp-chat.el
@@ -263,22 +263,38 @@ Optionally, return the buffer NM in chat mode."
 (defconst w/chat-substitution-powershell-logo
   (w/image-text (w/asset "misc/powershell_small.png")))
 (defconst w/chat-substitutions
-  `(("[i](this was sent from godot)[/i]" . ,w/chat-substitution-godot-logo)
-    ("bald" . "ball")
-    ("pokemon" . "pal")
-    ("Pokemon" . "Pal")
-    ("POKEMON" . "PAL")
-    ("pal" . "pokemon")
-    ("Pal" . "Pokemon")
-    ("PAL" . "POKEMON")
-    ("Amazon" . "Microsoft")
-    ("Microsoft" . "Google")
-    ("Google" . "Facebook")
-    ("Facebook" . "Apple")
-    ("Apple" . "Amazon")
-    ("darkrai" . "*******")
-    ("hunter2" . "*******")
-    ("*******" . "hunter2")))
+  `( ("[i](this was sent from godot)[/i]" . ,w/chat-substitution-godot-logo)
+     ("bald" . "ball")
+     ("pokemon" . "pal")
+     ("Pokemon" . "Pal")
+     ("POKEMON" . "PAL")
+     ("pal" . "pokemon")
+     ("Pal" . "Pokemon")
+     ("PAL" . "POKEMON")
+     ("Amazon" . "Microsoft")
+     ("Microsoft" . "Google")
+     ("Google" . "Facebook")
+     ("Facebook" . "Apple")
+     ("Apple" . "Amazon")
+     ("darkrai" . "*******")
+     ("hunter2" . "*******")
+     ("*******" . "hunter2")
+     ("World of Warcraft" . "Slime Girl Caverns")
+     ("Claude" . "FreeBSD")
+     ("Gemini" . "OpenBSD")
+     ("Codex" . "Haiku")
+     ("GPT" . "Gentoo")
+     ("Grok" . "NetBSD")
+     ("Mythos" . "Minix")
+     ("Fable" . "Fable II (2008)")
+     ("Opus" . "FLAC")
+     ("Mistral" . "the fog")
+     ("Anthropic" . "fumo")
+     ("OpenAI" . "OpenGL")
+     ("Copilot" . "Vista")
+     ("DeepSeek" . "Love and Deepspace")
+     ("Cursor" . "(point)")
+     ))
 
 (defun w/chat-write-message (msg &optional buf)
   "Write MSG to BUF as USER with USERID and COLOR."
@@ -288,48 +304,48 @@ Optionally, return the buffer NM in chat mode."
       (setq-local cursor-type nil)
       (goto-char (point-max))
       (insert-text-button
-       (s-concat
-        (if (w/. sigil msg) (s-concat (w/. sigil msg) " ") "")
-        (w/. user msg))
-       'face (list :foreground (or (w/. user-color msg) "#ffffff") :weight 'bold)
-       'wasp-user (w/. user msg)
-       'wasp-user-id (w/. id msg)
-       'action #'w/chat-button-action)
+        (s-concat
+          (if (w/. sigil msg) (s-concat (w/. sigil msg) " ") "")
+          (w/. user msg))
+        'face (list :foreground (or (w/. user-color msg) "#ffffff") :weight 'bold)
+        'wasp-user (w/. user msg)
+        'wasp-user-id (w/. id msg)
+        'action #'w/chat-button-action)
       (insert
-       (propertize
-        ": "
-        'face
-        (list
-         :foreground
-         (cl-case (w/. faction msg)
-           (nate "pink")
-           (lever "lightblue")
-           (tony "lightgreen")
-           (t "white"))
-         )
-        ))
+        (propertize
+          ": "
+          'face
+          (list
+            :foreground
+            (cl-case (w/. faction msg)
+              (nate "pink")
+              (lever "lightblue")
+              (tony "lightgreen")
+              (t "white"))
+            )
+          ))
       (insert (s-replace-all w/chat-substitutions (w/. text msg)))
       (insert " ")
       (when (w/. biblicality msg)
         (let* ((wwidth (- (window-total-width (get-buffer-window (current-buffer))) 3))
-               (bible-button-text (format "[biblicality %.2f]" (w/. biblicality msg)))
-               ;; (bible-button-text (format "[medicality %.2f]" (w/. biblicality msg)))
-               ;; (bible-button-text (format "[pollicality %.2f]" (w/. biblicality msg)))
-               (msgwidth (- (point) (line-beginning-position)))
-               (lines (+ 1 (/ msgwidth wwidth))))
+                (bible-button-text (format "[biblicality %.2f]" (w/. biblicality msg)))
+                ;; (bible-button-text (format "[medicality %.2f]" (w/. biblicality msg)))
+                ;; (bible-button-text (format "[pollicality %.2f]" (w/. biblicality msg)))
+                (msgwidth (- (point) (line-beginning-position)))
+                (lines (+ 1 (/ msgwidth wwidth))))
           (w/overlay-chat msg)
           (insert
-           (propertize
-            " " 'display
-            `(space
-              :align-to
-              ,(- (+ (* wwidth lines) (- lines 1))
-                  (length bible-button-text)
-                  ))))
+            (propertize
+              " " 'display
+              `(space
+                 :align-to
+                 ,(- (+ (* wwidth lines) (- lines 1))
+                    (length bible-button-text)
+                    ))))
           (insert
-           (propertize
-            bible-button-text
-           'face '(:foreground "#bbbbbb")))))
+            (propertize
+              bible-button-text
+              'face '(:foreground "#bbbbbb")))))
       (insert "\n"))
     (when-let* ((win (get-buffer-window (w/chat-get-buffer))))
       (with-selected-window win