[Emacs-diffs] trunk r115333: (shr-tag-audio): Add support for <audio> tag.

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 115333
revision-id: address@hidden
parent: address@hidden
author: Rüdiger Sonderfeld <address@hidden>
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Sun 2013-12-01 16:41:10 +0100
message:
  (shr-tag-audio): Add support for <audio> tag.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/net/shr.el                shr.el-20101002102929-yfzewk55rsg0mn93-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-12-01 15:40:12 +0000
+++ b/lisp/ChangeLog    2013-12-01 15:41:10 +0000
@@ -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

=== modified file 'lisp/net/shr.el'
--- a/lisp/net/shr.el   2013-12-01 15:40:12 +0000
+++ b/lisp/net/shr.el   2013-12-01 15:41:10 +0000
@@ -1105,6 +1105,12 @@
       (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