From 7e378a3db5eb71622630db8f1c4273923d658447 Mon Sep 17 00:00:00 2001 From: cage Date: Sat, 2 Jan 2021 11:11:25 +0100 Subject: [PATCH] - [modules] rewrite-message-urls: changed name function to avoid conflicts with other modules. --- modules/rewrite-message-urls.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/modules/rewrite-message-urls.lisp b/modules/rewrite-message-urls.lisp index 9e47cd0..e8f96fd 100644 --- a/modules/rewrite-message-urls.lisp +++ b/modules/rewrite-message-urls.lisp @@ -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)))