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

- [modules] rewrite-message-urls: changed name function to avoid conflicts with other modules.

This commit is contained in:
cage 2021-01-02 11:11:25 +01:00
parent 3513f54fee
commit 7e378a3db5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -51,7 +51,7 @@ So the whole list is like: '((\"foo\" \"bar\") (\"old\" \"new\") ...)")
(return-from inner t)))))
results))
(defun replace-mapping (mapping text)
(defun rewriting-link-replace-mapping (mapping text)
(cl-ppcre:regex-replace-all (cl-ppcre:quote-meta-chars (car mapping))
text
(cdr mapping)))
@ -62,7 +62,7 @@ So the whole list is like: '((\"foo\" \"bar\") (\"old\" \"new\") ...)")
(links-mapping (rewriting-link-messages-links-rules all-links)))
(loop for mapping in links-mapping do
(setf source-text
(replace-mapping mapping source-text))))))
(rewriting-link-replace-mapping mapping source-text))))))
(defun rewriting-link-links-window-hook-fn (all-links)
(let ((links-mapping (rewriting-link-messages-links-rules all-links))
@ -70,7 +70,7 @@ So the whole list is like: '((\"foo\" \"bar\") (\"old\" \"new\") ...)")
(loop for link in all-links do
(let* ((mapping (find-if (lambda (a) (string= link (car a))) links-mapping))
(mapped (if mapping
(replace-mapping mapping link)
(rewriting-link-replace-mapping mapping link)
link)))
(push mapped results)))
(reverse results)))