Commit eb2dd24d authored by Rüdiger Sonderfeld's avatar Rüdiger Sonderfeld Committed by Lars Magne Ingebrigtsen
Browse files

(shr-tag-audio): Add support for <audio> tag.

parent 177948a5
......@@ -2,6 +2,7 @@
* net/shr.el (shr-tag-video): Display content for video if no
poster is available.
(shr-tag-audio): Add support for <audio> tag.
* net/eww.el (eww-text-input-types): : New const.
(eww-process-text-input): Treat input types in
......@@ -1105,6 +1105,12 @@ ones, in case fg and bg are nil."
(shr-insert " [video] "))
(shr-urlify start (shr-expand-url url))))
(defun shr-tag-audio (cont)
(let ((url (cdr (assq :src cont)))
(start (point)))
(shr-insert " [audio] ")
(shr-urlify start (shr-expand-url url))))
(defun shr-tag-img (cont &optional url)
(when (or url
(and cont
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment