From: Rüdiger Sonderfeld <ruediger@c-plusplus.de>
Date: Sun, 1 Dec 2013 15:41:10 +0000 (+0100)
Subject: (shr-tag-audio): Add support for <audio> tag.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~602
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eb2dd24d5b5c871f0b38667f460e4efd23fde799;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a4c9827236c..8efa64bd7e6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index d4f57ee0bb1..30d97105bd7 100644
--- 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