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

- removed link prefix if link line starts with an emoji.

This commit is contained in:
cage 2021-07-16 19:24:27 +02:00
parent 0972cc3ed0
commit 2015066c61
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/emoji-matcher.lisp
View File

@ -4746,5 +4746,10 @@
(first (or (emoji-zwj-sequences-p codepoints-chars)
(emoji-sequences-p codepoints-chars))))
(defun starting-emoji (codepoints-chars)
(emojip codepoints-chars))
(defgeneric starting-emoji (object))
(defmethod starting-emoji ((object list))
(emojip object))
(defmethod starting-emoji ((object string))
(emojip (coerce object 'list)))

4
src/gemini/gemini-parser.lisp
View File

@ -492,7 +492,9 @@
text)))
(linkify (link-name link-value)
(if (gemini-link-iri-p link-value)
(format nil "~a~a~%" (link-prefix-gemini theme) link-name)
(if (text-utils:starting-emoji link-name)
(format nil "~a~%" link-name)
(format nil "~a~a~%" (link-prefix-gemini theme) link-name))
(format nil "~a~a~%" (link-prefix-other theme) link-name)))
(fit-quote-lines (line win-width)
(let* ((words (split-words line))