From b2afb3ea3e5be8f056b896f20d56dedd932b50c2 Mon Sep 17 00:00:00 2001
From: =?utf8?q?R=C3=BCdiger=20Sonderfeld?= <ruediger@c-plusplus.de>
Date: Sun, 1 Dec 2013 16:44:25 +0100
Subject: [PATCH] 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.

---
 lisp/ChangeLog  |  6 ++++++
 lisp/net/eww.el | 22 +++++++++++++++++-----
 2 files changed, 23 insertions(+), 5 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8efa64bd7e..a6340b7fd0 100644
--- 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 2f481c31b1..ca7bf60f1a 100644
--- 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.
-- 
2.20.1