cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- fixed test to check if acharacter is an emoji. 

- returned the whole codepoints list if a char is an emoji.
This commit is contained in:
cage 2023-06-04 14:02:05 +02:00
parent c1c6e6293b
commit c9f7fcb12e
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/emoji-matcher.lisp
View File

@ -11,8 +11,9 @@
(not (cl-ppcre:scan "^#" line))))
(defun match-codepoint-p (a b)
(every #'char= a
(mapcar #'code-char b)))
(alexandria:set-equal a
(mapcar #'code-char b)
:test #'char=))
(defun extract-codepoints (stream)
"Extract shotcodes from the emoji table file"
@ -1295,8 +1296,8 @@
(defgeneric emojip (codepoints-chars))
(defmethod emojip ((codepoints-chars list))
(first (or (emoji-zwj-sequences-p codepoints-chars)
(emoji-sequences-p codepoints-chars))))
(or (emoji-zwj-sequences-p codepoints-chars)
(emoji-sequences-p codepoints-chars)))
(defgeneric starting-emoji (object))