cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-06-05 01:09:17 +02:00
Code Issues Activity

- specialized message-window' to skip invisible rows.

Browse Source
This commit is contained in:
cage
2021-04-11 11:06:39 +02:00
parent 76c8296aa4
commit 84a8029c9a
3 changed files with 40 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
modules/rewrite-message-urls.lisp
View File

@@ -58,7 +58,7 @@ So the whole list is like: '((\"foo\" \"bar\") (\"old\" \"new\") ...)")
(defun %rewriting-link-rewrite-row (links-mapping)
(lambda (row)
(let* ((original-type (message-window:line-get-original-object row))
(let* ((original-type (message-window:row-get-original-object row))
(original-string (line-oriented-window:normal-text row))
(skipped-row-types (list 'gemini-parser:pre-line
'gemini-parser:vertical-space)))