cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

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

Browse Source
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) (first (or (emoji-zwj-sequences-p codepoints-chars)
(emoji-sequences-p codepoints-chars)))) (emoji-sequences-p codepoints-chars))))
(defun starting-emoji (codepoints-chars) (defgeneric starting-emoji (object))
(emojip codepoints-chars))
(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))) text)))
(linkify (link-name link-value) (linkify (link-name link-value)
(if (gemini-link-iri-p 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))) (format nil "~a~a~%" (link-prefix-other theme) link-name)))
(fit-quote-lines (line win-width) (fit-quote-lines (line win-width)
(let* ((words (split-words line)) (let* ((words (split-words line))