From mboxrd@z Thu Jan  1 00:00:00 1970
Path: news.gmane.org!not-for-mail
From: =?UTF-8?Q?R=C3=BCdiger?= Sonderfeld <ruediger@c-plusplus.de>
Newsgroups: gmane.emacs.bugs
Subject: bug#15706: [PATCH 4/8] shr: Add support for <audio> tag.
Date: Fri, 25 Oct 2013 01:43:51 +0200
Message-ID: <2183305.kj7gF912X6@descartes>
References: <cover.1382658061.git.ruediger@c-plusplus.de>
NNTP-Posting-Host: plane.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable
X-Trace: ger.gmane.org 1382658322 8902 80.91.229.3 (24 Oct 2013 23:45:22 GMT)
X-Complaints-To: usenet@ger.gmane.org
NNTP-Posting-Date: Thu, 24 Oct 2013 23:45:22 +0000 (UTC)
Cc: Lars Magne Ingebrigtsen <larsi@gnus.org>
To: 15706@debbugs.gnu.org
Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Oct 25 01:45:25 2013
Return-path: <bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org>
Envelope-to: geb-bug-gnu-emacs@m.gmane.org
Original-Received: from lists.gnu.org ([208.118.235.17])
	by plane.gmane.org with esmtp (Exim 4.69)
	(envelope-from <bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org>)
	id 1VZUai-0006Vo-CM
	for geb-bug-gnu-emacs@m.gmane.org; Fri, 25 Oct 2013 01:45:24 +0200
Original-Received: from localhost ([::1]:56660 helo=lists.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org>)
	id 1VZUah-0006TD-Vr
	for geb-bug-gnu-emacs@m.gmane.org; Thu, 24 Oct 2013 19:45:24 -0400
Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:33326)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1VZUaX-0006Q4-FE
	for bug-gnu-emacs@gnu.org; Thu, 24 Oct 2013 19:45:20 -0400
Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1VZUaP-0007Th-0y
	for bug-gnu-emacs@gnu.org; Thu, 24 Oct 2013 19:45:13 -0400
Original-Received: from debbugs.gnu.org ([140.186.70.43]:56302)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1VZUaO-0007TG-UD
	for bug-gnu-emacs@gnu.org; Thu, 24 Oct 2013 19:45:04 -0400
Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80)
	(envelope-from <Debian-debbugs@debbugs.gnu.org>) id 1VZUaO-0005xK-8v
	for bug-gnu-emacs@gnu.org; Thu, 24 Oct 2013 19:45:04 -0400
X-Loop: help-debbugs@gnu.org
Resent-From: =?UTF-8?Q?R=C3=BCdiger?= Sonderfeld <ruediger@c-plusplus.de>
Original-Sender: "Debbugs-submit" <debbugs-submit-bounces@debbugs.gnu.org>
Resent-CC: bug-gnu-emacs@gnu.org
Resent-Date: Thu, 24 Oct 2013 23:45:04 +0000
Resent-Message-ID: <handler.15706.B.138265826522782@debbugs.gnu.org>
Resent-Sender: help-debbugs@gnu.org
X-GNU-PR-Message: report 15706
X-GNU-PR-Package: emacs
X-GNU-PR-Keywords: patch
X-Debbugs-Original-To: bug-gnu-emacs@gnu.org
Original-Received: via spool by submit@debbugs.gnu.org id=B.138265826522782
	(code B ref -1); Thu, 24 Oct 2013 23:45:04 +0000
Original-Received: (at submit) by debbugs.gnu.org; 24 Oct 2013 23:44:25 +0000
Original-Received: from localhost ([127.0.0.1]:42078 helo=debbugs.gnu.org)
	by debbugs.gnu.org with esmtp (Exim 4.80)
	(envelope-from <debbugs-submit-bounces@debbugs.gnu.org>)
	id 1VZUZl-0005vN-0Z
	for submit@debbugs.gnu.org; Thu, 24 Oct 2013 19:44:25 -0400
Original-Received: from eggs.gnu.org ([208.118.235.92]:59446)
	by debbugs.gnu.org with esmtp (Exim 4.80)
	(envelope-from <ruediger@c-plusplus.de>) id 1VZUZi-0005vB-HZ
	for submit@debbugs.gnu.org; Thu, 24 Oct 2013 19:44:22 -0400
Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <ruediger@c-plusplus.de>) id 1VZUZW-00074w-MT
	for submit@debbugs.gnu.org; Thu, 24 Oct 2013 19:44:17 -0400
Original-Received: from lists.gnu.org ([2001:4830:134:3::11]:58106)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <ruediger@c-plusplus.de>) id 1VZUZW-00074s-JH
	for submit@debbugs.gnu.org; Thu, 24 Oct 2013 19:44:10 -0400
Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:32820)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <ruediger@c-plusplus.de>) id 1VZUZQ-00060J-J4
	for bug-gnu-emacs@gnu.org; Thu, 24 Oct 2013 19:44:10 -0400
Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <ruediger@c-plusplus.de>) id 1VZUZK-00072x-J6
	for bug-gnu-emacs@gnu.org; Thu, 24 Oct 2013 19:44:04 -0400
Original-Received: from ptmx.org ([178.63.28.110]:41415)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <ruediger@c-plusplus.de>) id 1VZUZK-00072r-Dq
	for bug-gnu-emacs@gnu.org; Thu, 24 Oct 2013 19:43:58 -0400
Original-Received: from localhost (localhost [127.0.0.1])
	by ptmx.org (Postfix) with ESMTP id E122E2B155;
	Fri, 25 Oct 2013 01:43:57 +0200 (CEST)
X-Virus-Scanned: Debian amavisd-new at ptmx.org
Original-Received: from ptmx.org ([127.0.0.1])
	by localhost (ptmx.org [127.0.0.1]) (amavisd-new, port 10024)
	with ESMTP id kpUr71IjtzTl; Fri, 25 Oct 2013 01:43:56 +0200 (CEST)
Original-Received: from descartes.localnet (chello080108246092.7.14.vie.surfer.at
	[80.108.246.92]) by ptmx.org (Postfix) with ESMTPSA id 11CDA2AEE8;
	Fri, 25 Oct 2013 01:43:56 +0200 (CEST)
User-Agent: KMail/4.11.2 (Linux/3.11.0-12-generic; KDE/4.11.2; x86_64; ; )
In-Reply-To: <cover.1382658061.git.ruediger@c-plusplus.de>
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x
X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address
	(bad octet value).
X-BeenThere: debbugs-submit@debbugs.gnu.org
X-Mailman-Version: 2.1.15
Precedence: list
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x
X-Received-From: 140.186.70.43
X-BeenThere: bug-gnu-emacs@gnu.org
List-Id: "Bug reports for GNU Emacs,
	the Swiss army knife of text editors" <bug-gnu-emacs.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/bug-gnu-emacs>,
	<mailto:bug-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/bug-gnu-emacs>
List-Post: <mailto:bug-gnu-emacs@gnu.org>
List-Help: <mailto:bug-gnu-emacs-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/bug-gnu-emacs>,
	<mailto:bug-gnu-emacs-request@gnu.org?subject=subscribe>
Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org
Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org
Xref: news.gmane.org gmane.emacs.bugs:79611
Archived-At: <http://permalink.gmane.org/gmane.emacs.bugs/79611>

* lisp/net/shr.el (shr-tag-audio): New function.

Signed-off-by: R=C3=BCdiger Sonderfeld <ruediger@c-plusplus.de>
---
 lisp/net/shr.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 39e0470..3ea2829 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1106,6 +1106,12 @@ (defun shr-tag-video (cont)
       (shr-insert " [video] "))
     (shr-urlify start (shr-expand-url url))))
=20
+(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
 =09    (and cont
--=20
1.8.4.1