procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make inline SVGs work in shr again

Browse source 
* net/shr.el (shr-dom-print): Don't print comments.
(shr-tag-svg): Give inline SVG images the right type.
This commit is contained in:
Lars Magne Ingebrigtsen 2014-12-09 05:18:12 +01:00
parent a005f61018
commit c3ea511964
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2014-12-09 Lars Magne Ingebrigtsen <larsi@gnus.org>
* net/shr.el (shr-dom-print): Don't print comments.
(shr-tag-svg): Give inline SVG images the right type.
* net/eww.el (eww-update-header-line-format): Mark valid/invalid
certificates in the header line.
(eww-invalid-certificate, eww-valid-certificate): New faces.

5
lisp/net/shr.el
View file

@ -1019,6 +1019,8 @@ ones, in case fg and bg are nil."
(cond
((stringp elem)
(insert elem))
((eq (dom-tag elem) 'comment)
)
((or (not (eq (dom-tag elem) 'image))
;; Filter out blocked elements inside the SVG image.
(not (setq url (dom-attr elem ':xlink:href)))
@ -1031,7 +1033,8 @@ ones, in case fg and bg are nil."
(defun shr-tag-svg (dom)
(when (and (image-type-available-p 'svg)
(not shr-inhibit-images))
(funcall shr-put-image-function (shr-dom-to-xml dom) "SVG Image")))
(funcall shr-put-image-function (list (shr-dom-to-xml dom) 'image/svg+xml)
"SVG Image")))
(defun shr-tag-sup (dom)
(let ((start (point)))