mirror of https://codeberg.org/cage/tinmop/
- rewrote function's name.
This commit is contained in:
parent
be6f2a9551
commit
df74b5b3a3
|
@ -56,7 +56,7 @@ So the whole list is like: '((\"foo\" \"bar\") (\"old\" \"new\") ...)")
|
||||||
text
|
text
|
||||||
(cdr mapping)))
|
(cdr mapping)))
|
||||||
|
|
||||||
(defun skipped-row-p (row)
|
(defun rewriting-link-skipped-row-p (row)
|
||||||
(let* ((original-type (message-window:row-get-original-object row))
|
(let* ((original-type (message-window:row-get-original-object row))
|
||||||
(skipped-row-types (list 'gemini-parser:pre-line
|
(skipped-row-types (list 'gemini-parser:pre-line
|
||||||
'gemini-parser:pre-start
|
'gemini-parser:pre-start
|
||||||
|
@ -70,7 +70,7 @@ So the whole list is like: '((\"foo\" \"bar\") (\"old\" \"new\") ...)")
|
||||||
(when rows
|
(when rows
|
||||||
(let* ((row (elt rows index))
|
(let* ((row (elt rows index))
|
||||||
(original-string (line-oriented-window:normal-text row)))
|
(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))
|
(let* ((simple-string (tui:tui-string->chars-string original-string))
|
||||||
(replaced-string simple-string))
|
(replaced-string simple-string))
|
||||||
(loop for mapping in links-mapping do
|
(loop for mapping in links-mapping do
|
||||||
|
|
Loading…
Reference in New Issue