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

[bpt/emacs.git] / lisp / net / shr.el

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index d4f57ee..30d9710 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -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