diff options
Diffstat (limited to 'haunt/jakob/dynamic/util.scm')
| -rw-r--r-- | haunt/jakob/dynamic/util.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/haunt/jakob/dynamic/util.scm b/haunt/jakob/dynamic/util.scm index 92b2f25..82df409 100644 --- a/haunt/jakob/dynamic/util.scm +++ b/haunt/jakob/dynamic/util.scm @@ -94,6 +94,7 @@ Acceptable is the following subset: - The hand symbols from the 'Miscellaneous Symbols and Pictographs' block - The hand symbols from the 'Dingbats' block +- U+1F37B and U+1F440 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 @@ -102,4 +103,9 @@ to express my God-given constitutional rights!" (= 1 (string-length str)) (let ((codepoint (char->integer (first (string->list str))))) - (and (>= codepoint #x1F600) (<= codepoint #x1F64F))))) + (or (<= #x1F600 codepoint #x1F64F) + (<= #x1F90C codepoint #x1F9FF) + (<= #x1F446 codepoint #x1F450) + (<= #x270A codepoint #x270D) + (= codepoint #x1F37B) + (= codepoint #x1F440))))) |