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

- remved the BOM from a gemini text stream.

This commit is contained in:
cage 2021-07-09 13:54:29 +02:00
parent 25bda46260
commit 4407ef3426
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/gemini-viewer.lisp
View File

@ -366,7 +366,15 @@
wrapper-object
t)))
(maybe-render-line preformat-wrapper-event)
(write-sequence preformat-line file-stream)))))
(write-sequence preformat-line file-stream))))
(array->string (array remove-bom)
(let ((res (babel:octets-to-string array :errorp nil)))
(if (and (string-not-empty-p res)
remove-bom
(char= (first-elt res)
#\ZERO_WIDTH_NO-BREAK_SPACE))
(subseq res 1)
res))))
(lambda ()
(let ((gemini-parser:*pre-group-id* -1)
(gemini-parser:*header-group-id* -1)
@ -399,12 +407,15 @@
(maybe-render-preformat-wrapper file-stream wrapper-object)
(loop
named download-loop
for ct from 0
for line-as-array = (read-line-into-array download-stream)
while line-as-array do
(gemini-client:debug-gemini "[stream] gemini file stream raw data line : ~a"
line-as-array)
(if (downloading-allowed-p wrapper-object)
(let* ((line (babel:octets-to-string line-as-array :errorp nil))
(let* ((line (if (= ct 0)
(array->string line-as-array t)
(array->string line-as-array nil)))
(event (make-gemini-download-event line
wrapper-object
t)))

2
src/program-events.lisp
View File

@ -1127,7 +1127,7 @@
:writer (setf skip-rendering))))
(defun refresh-gemini-message-window (links source ir-rows append-text)
(let* ((win specials:*message-window*)
(let* ((win specials:*message-window*)
(window-metadata (message-window:metadata win)))
(with-accessors ((rows message-window::rows)) win
(let ((new-rows (message-window:text->rendered-lines-rows win