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))))) (return-from inner t)))))
results)) 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)) (cl-ppcre:regex-replace-all (cl-ppcre:quote-meta-chars (car mapping))
text text
(cdr mapping))) (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))) (links-mapping (rewriting-link-messages-links-rules all-links)))
(loop for mapping in links-mapping do (loop for mapping in links-mapping do
(setf source-text (setf source-text
(replace-mapping mapping source-text)))))) (rewriting-link-replace-mapping mapping source-text))))))
(defun rewriting-link-links-window-hook-fn (all-links) (defun rewriting-link-links-window-hook-fn (all-links)
(let ((links-mapping (rewriting-link-messages-links-rules 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 (loop for link in all-links do
(let* ((mapping (find-if (lambda (a) (string= link (car a))) links-mapping)) (let* ((mapping (find-if (lambda (a) (string= link (car a))) links-mapping))
(mapped (if mapping (mapped (if mapping
(replace-mapping mapping link) (rewriting-link-replace-mapping mapping link)
link))) link)))
(push mapped results))) (push mapped results)))
(reverse results))) (reverse results)))