[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r113144: eww.el: Add a command to browse using and e
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] trunk r113144: eww.el: Add a command to browse using and external browser |
Date: |
Sun, 23 Jun 2013 18:28:04 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 113144
revision-id: address@hidden
parent: address@hidden
author: Ivan Kanis <address@hidden>
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Sun 2013-06-23 20:27:58 +0200
message:
eww.el: Add a command to browse using and external browser
(eww-external-browser): New variable.
(eww-mode-map): New keystroke.
(eww-browse-with-external-browser): New command.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/net/eww.el eww.el-20130610114603-80ap3gwnw4x4m5ix-1
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-06-23 18:22:28 +0000
+++ b/lisp/ChangeLog 2013-06-23 18:27:58 +0000
@@ -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 <address@hidden>
=== modified file 'lisp/net/eww.el'
--- a/lisp/net/eww.el 2013-06-23 18:22:28 +0000
+++ b/lisp/net/eww.el 2013-06-23 18:27:58 +0000
@@ -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 @@
(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 @@
"?"
(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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r113144: eww.el: Add a command to browse using and external browser,
Lars Ingebrigtsen <=