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

- rewrote function's name.

This commit is contained in:
cage 2021-04-21 16:39:42 +02:00
parent be6f2a9551
commit df74b5b3a3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -56,7 +56,7 @@ So the whole list is like: '((\"foo\" \"bar\") (\"old\" \"new\") ...)")
text
(cdr mapping)))
(defun skipped-row-p (row)
(defun rewriting-link-skipped-row-p (row)
(let* ((original-type (message-window:row-get-original-object row))
(skipped-row-types (list 'gemini-parser:pre-line
'gemini-parser:pre-start
@ -70,7 +70,7 @@ So the whole list is like: '((\"foo\" \"bar\") (\"old\" \"new\") ...)")
(when rows
(let* ((row (elt rows index))
(original-string (line-oriented-window:normal-text row)))
(when (not (skipped-row-p row))
(when (not (rewriting-link-skipped-row-p row))
(let* ((simple-string (tui:tui-string->chars-string original-string))
(replaced-string simple-string))
(loop for mapping in links-mapping do