Function: shr--get-media-pref

shr--get-media-pref is a byte-compiled function defined in shr.el.gz.

Signature

(shr--get-media-pref ELEM)

Documentation

Determine the preference for ELEM.

The preference is a float determined from shr-prefer-media-type.

Source Code

;; Defined in /usr/src/emacs/lisp/net/shr.el.gz
(defun shr--get-media-pref (elem)
  "Determine the preference for ELEM.
The preference is a float determined from `shr-prefer-media-type'."
  (let ((type (dom-attr elem 'type))
        (p 0.0))
    (unless type
      (setq type (dom-attr elem 'src)))
    (when type
      (dolist (pref shr-prefer-media-type-alist)
        (when (and
               (> (cdr pref) p)
               (string-match-p (car pref) type))
          (setq p (cdr pref)))))
    p))