diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/net/eww.el | 19 |
2 files changed, 22 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 521827cb03c..6f696afbbaf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -2,6 +2,9 @@ * net/eww.el (eww-search-prefix): New variable. (eww): Use it. + (eww-external-browser): New variable. + (eww-mode-map): New keystroke. + (eww-browse-with-external-browser): New command. 2013-06-23 Juanma Barranquero <lekktu@gmail.com> diff --git a/lisp/net/eww.el b/lisp/net/eww.el index eb1b0a2b659..2653d489f81 100644 --- a/lisp/net/eww.el +++ b/lisp/net/eww.el @@ -50,6 +50,18 @@ :group 'eww :type 'string) +(defcustom eww-external-browser + (cond ((eq system-type 'windows-nt) + 'browse-url-default-windows-browser) + ((eq system-type 'darwin) + 'browse-url-default-macosx-browser) + (t + 'browse-url-netscape)) + "Function used to launch an external browser." + :version "24.4" + :group 'eww + :type 'function) + (defface eww-form-submit '((((type x w32 ns) (class color)) ; Like default mode line :box (:line-width 2 :style released-button) @@ -317,6 +329,7 @@ word(s) will be searched for via `eww-search-prefix'." (define-key map "p" 'eww-previous-url) (define-key map "u" 'eww-up-url) (define-key map "t" 'eww-top-url) + (define-key map "w" 'eww-browse-with-external-browser) map)) (define-derived-mode eww-mode nil "eww" @@ -823,6 +836,12 @@ appears in a <link> or <a> tag." "?" (mm-url-encode-www-form-urlencoded values)))))) +(defun eww-browse-with-external-browser () + "Browse the current URL with an external browser. +The browser to used is specified by the `eww-external-browser' variable." + (interactive) + (funcall eww-external-browser eww-current-url)) + (provide 'eww) ;;; eww.el ends here |