mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Rüdiger Sonderfeld 2013-12-01 16:41:10 +01:00 committed by Lars Magne Ingebrigtsen
parent 177948a5b2
commit eb2dd24d5b
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/ChangeLog
View File

@ -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

6
lisp/net/shr.el
View File

@ -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