From e446f67898a05091b2f05df9ed81ca73764f6069 Mon Sep 17 00:00:00 2001
From: Jakob L. Kreuze
Date: Tue, 14 Mar 2023 18:05:16 -0400
Subject: Bug fixes

---
 haunt/jakob/dynamic/util.scm        |  5 +++--
 haunt/static/js/comment-reaction.js | 26 +++++++++++++-------------
 2 files changed, 16 insertions(+), 15 deletions(-)

diff --git a/haunt/jakob/dynamic/util.scm b/haunt/jakob/dynamic/util.scm
index 82df409..f6f0382 100644
--- a/haunt/jakob/dynamic/util.scm
+++ b/haunt/jakob/dynamic/util.scm
@@ -26,7 +26,8 @@
             base64-length
             decode-form
             date<?
-            hash-append!))
+            hash-append!
+            emoji?))
 
 (define (assoc-value alist key)
   "Return the `car' of `(assoc alist key)' if truthy"
@@ -99,7 +100,7 @@ Acceptable is the following subset:
 Notably, U+1F946 isn't normally treated an emoji, but it is here. I
 think it should be! As an American, I should be able to use pictographs
 to express my God-given constitutional rights!"
-  (and (string str)
+  (and (string? str)
        (= 1 (string-length str))
        (let ((codepoint (char->integer
                          (first (string->list str)))))
diff --git a/haunt/static/js/comment-reaction.js b/haunt/static/js/comment-reaction.js
index bae9fed..fb5bfaf 100644
--- a/haunt/static/js/comment-reaction.js
+++ b/haunt/static/js/comment-reaction.js
@@ -66,21 +66,21 @@ function selectorWidget() {
   selector.setAttribute("class", "emoji-picker");
 
   for (let i = 0x1F600; i < 0x1F64F; i++) {
-    selector.appendElement(emojiButton(i));
+    selector.appendChild(emojiButton(i));
   }
-  selector.appendElement(emojiButton(0x1F37B));
-  selector.appendElement(emojiButton(0x1F440));
-  selector.appendElement(emojiButton(0x1F446));
-  selector.appendElement(emojiButton(0x1F447));
-  selector.appendElement(emojiButton(0x1F448));
-  selector.appendElement(emojiButton(0x1F449));
-  selector.appendElement(emojiButton(0x1F450));
-  selector.appendElement(emojiButton(0x270A));
-  selector.appendElement(emojiButton(0x270B));
-  selector.appendElement(emojiButton(0x270C));
-  selector.appendElement(emojiButton(0x270D));
+  selector.appendChild(emojiButton(0x1F37B));
+  selector.appendChild(emojiButton(0x1F440));
+  selector.appendChild(emojiButton(0x1F446));
+  selector.appendChild(emojiButton(0x1F447));
+  selector.appendChild(emojiButton(0x1F448));
+  selector.appendChild(emojiButton(0x1F449));
+  selector.appendChild(emojiButton(0x1F450));
+  selector.appendChild(emojiButton(0x270A));
+  selector.appendChild(emojiButton(0x270B));
+  selector.appendChild(emojiButton(0x270C));
+  selector.appendChild(emojiButton(0x270D));
   for (let i = 0x1F90C; i < 0x1F9FF; i++) {
-    selector.appendElement(emojiButton(i));
+    selector.appendChild(emojiButton(i));
   }
   return selector;
 }
-- 
cgit v1.3