jadedctrl/ mirror-img
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Activity

Fix URL-substitions with some tags (<link>)

This commit is contained in:
Jaidyn Ann 2024-05-29 21:55:59 -05:00
parent 93022814fd
commit 43cc123057
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/mirror-img.lisp
View File

@ -64,7 +64,7 @@ For example:
(linked-urls dom :tags tags))))
;; lquery-dom alist list → nil
(defun substitute-urls (dom substitution-alist &key (tags '("img")))
(defun substitute-urls (dom substitution-alist &key (tags *default-tags*))
"Replace SRC or HREF attributes of certain tags in an LQuery DOM, based on a
substitution associative list. The substitution alist is made up of cons-cells
mapping replacee URLs to substition URLs.
@ -125,10 +125,11 @@ HREF and SRC attributes."
"Set the SRC or HREF attribute of an LQuery node (based on which attribute is
already set)."
(and node
(if (lquery-funcs:attr node "src")
(lquery-funcs:attr node "src" url))
(if (lquery-funcs:attr node "href")
(lquery-funcs:attr node "href" url))))
(cond ((lquery-funcs:attr node "src")
(lquery-funcs:attr node "src" url))
((lquery-funcs:attr node "href")
(lquery-funcs:attr node "href" url))
('T node))))