Function: shr-tag-video

shr-tag-video is a byte-compiled function defined in shr.el.gz.

Signature

(shr-tag-video DOM)

Source Code

;; Defined in /usr/src/emacs/lisp/net/shr.el.gz
(defun shr-tag-video (dom)
  (let ((image (dom-attr dom 'poster))
        (url (dom-attr dom 'src))
        (start (point)))
    (unless url
      (setq url (car (shr--extract-best-source dom))))
    (if (> (length image) 0)
	(shr-indirect-call 'img nil image)
      (shr-insert " [video] "))
    (shr-urlify start (shr-expand-url url))))