5 files changed, 30 insertions, 3 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