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

- added 'emojip'.

This commit is contained in:
cage 2021-07-15 12:41:43 +02:00
parent a44d42201a
commit e981c6589e
4 changed files with 3120 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3108
src/emoji-matcher.lisp Normal file
View File

File diff suppressed because it is too large Load Diff

11
src/gemini-viewer.lisp
View File

@ -339,9 +339,14 @@
"/favicon.txt"
:port port))
(response-body (gemini-client:slurp-gemini-url favicon-url))
(favicon (misc:safe-subseq (babel:octets-to-string response-body
:errorp t)
0 1)))
(favicon-list (coerce (babel:octets-to-string response-body :errorp t)
'list))
(non-emoji-pos (position-if (lambda (a) (not (emojip (list a))))
favicon-list))
(favicon (if non-emoji-pos
(coerce (subseq favicon-list 0 non-emoji-pos)
'string)
(coerce favicon-list 'string))))
(setf cache (acons host favicon cache))
(fetch-favicon parsed-url)))
(swconf:gemini-default-favicon)))))))

3
src/package.lisp
View File

@ -391,7 +391,8 @@
:percent-encoded-p
:maybe-percent-encode
:display-corrupting-utf8-p
:remove-corrupting-utf8-chars))
:remove-corrupting-utf8-chars
:emojip))
(defpackage :html-utils
(:use

3
tinmop.asd
View File

@ -62,6 +62,8 @@
(:file "filesystem-utils")
(:file "os-utils")
(:file "text-utils")
(:file "emoji-matcher")
(:file "emoji-shortcodes")
(:file "html-utils")
(:file "crypto-utils")
(:file "resources-utils")
@ -81,7 +83,6 @@
(:file "db-utils")
(:file "db")
(:file "date-formatter")
(:file "emoji-shortcodes")
(:file "software-configuration")
(:file "tui-utils")
(:module 9p-client