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" "/favicon.txt"
:port port)) :port port))
(response-body (gemini-client:slurp-gemini-url favicon-url)) (response-body (gemini-client:slurp-gemini-url favicon-url))
(favicon (misc:safe-subseq (babel:octets-to-string response-body (favicon-list (coerce (babel:octets-to-string response-body :errorp t)
:errorp t) 'list))
0 1))) (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)) (setf cache (acons host favicon cache))
(fetch-favicon parsed-url))) (fetch-favicon parsed-url)))
(swconf:gemini-default-favicon))))))) (swconf:gemini-default-favicon)))))))

3
src/package.lisp
View File

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

3
tinmop.asd
View File

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