Option to always use external-browser for certain content.

* net/eww.el (eww-use-external-browser-for-content-type): New
variable.
(eww-render): Handle `eww-use-external-browser-for-content-type'.
Use \\` to match beginning of string instead of ^.
(eww-browse-with-external-browser): Provide optional URL parameter.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8efa64bd7e6cd613d4279f2e966187bda459967b..a6340b7fd03960e6a2aaa735caf2c78088f6c1b0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2013-12-01  Rüdiger Sonderfeld  <ruediger@c-plusplus.de>
 
+       * net/eww.el (eww-use-external-browser-for-content-type): New
+       variable.
+       (eww-render): Handle `eww-use-external-browser-for-content-type'.
+       Use \\` to match beginning of string instead of ^.
+       (eww-browse-with-external-browser): Provide optional URL parameter.
+
        * net/shr.el (shr-tag-video): Display content for video if no
        poster is available.
        (shr-tag-audio): Add support for <audio> tag.

diff --git a/lisp/net/eww.el b/lisp/net/eww.el
index 2f481c31b159b9a4c7c2fd78d25c6b00441fb8c4..ca7bf60f1a4c735f8dd66e1984e40834c3791f06 100644 (file)
--- a/lisp/net/eww.el
+++ b/lisp/net/eww.el
@@ -56,6 +56,14 @@
   :group 'eww
   :type 'string)
 
+(defcustom eww-use-external-browser-for-content-type
+  "\\`\\(video/\\|audio/\\|application/ogg\\)"
+  "Always use external browser for specified content-type."
+  :version "24.4"
+  :group 'eww
+  :type '(choice (const :tag "Never" nil)
+                 regexp))
+
 (defface eww-form-submit
   '((((type x w32 ns) (class color))   ; Like default mode line
      :box (:line-width 2 :style released-button)
@@ -162,11 +170,15 @@ word(s) will be searched for via `eww-search-prefix'."
     (unwind-protect
        (progn
          (cond
+           ((and eww-use-external-browser-for-content-type
+                 (string-match-p eww-use-external-browser-for-content-type
+                                 (car content-type)))
+            (eww-browse-with-external-browser url))
           ((equal (car content-type) "text/html")
            (eww-display-html charset url nil point))
-          ((string-match "^image/" (car content-type))
-           (eww-display-image)
-           (eww-update-header-line-format))
+          ((string-match-p "\\`image/" (car content-type))
+           (eww-display-image url))
+          (eww-update-header-line-format))
           (t
            (eww-display-raw)
            (eww-update-header-line-format)))
@@ -938,11 +950,11 @@ See URL `https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'.")
        "?"
        (mm-url-encode-www-form-urlencoded values))))))
 
-(defun eww-browse-with-external-browser ()
+(defun eww-browse-with-external-browser (&optional url)
   "Browse the current URL with an external browser.
 The browser to used is specified by the `shr-external-browser' variable."
   (interactive)
-  (funcall shr-external-browser eww-current-url))
+  (funcall shr-external-browser (or url eww-current-url)))
 
 (defun eww-follow-link (&optional external mouse-event)
   "Browse the URL under point.