procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

eww: exit and close actions

Browse source 
* net/eww.el (eww-exit, eww-close): Add UI convenience wrappers.
(eww-mode-map): Use them.
This commit is contained in:
Ted Zlatanov 2013-12-11 14:01:44 -05:00
parent 3c29190fbe
commit f4fe8fdd37
2 changed files with 20 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2013-12-11 Teodor Zlatanov <tzz@lifelogs.com>
* net/eww.el (eww-exit, eww-close): Add UI convenience wrappers.
(eww-mode-map): Use them.
2013-12-11 Martin Rudalics <rudalics@gmx.at> 2013-12-11 Martin Rudalics <rudalics@gmx.at>
* window.el (display-buffer-in-side-window): Fix doc-string * window.el (display-buffer-in-side-window): Fix doc-string

18
lisp/net/eww.el
View file

@ -392,7 +392,8 @@ word(s) will be searched for via `eww-search-prefix'."
(defvar eww-mode-map (defvar eww-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
(suppress-keymap map) (suppress-keymap map)
(define-key map "q" 'quit-window) (define-key map "q" 'eww-close)
(define-key map "Q" 'eww-exit)
(define-key map "g" 'eww-reload) (define-key map "g" 'eww-reload)
(define-key map [tab] 'shr-next-link) (define-key map [tab] 'shr-next-link)
(define-key map [backtab] 'shr-previous-link) (define-key map [backtab] 'shr-previous-link)
@ -418,8 +419,8 @@ word(s) will be searched for via `eww-search-prefix'."
(easy-menu-define nil map "" (easy-menu-define nil map ""
'("Eww" '("Eww"
["Exit" eww-quit t] ["Exit" eww-exit t]
["Close browser" quit-window t] ["Close browser" eww-close t]
["Reload" eww-reload t] ["Reload" eww-reload t]
["Back to previous page" eww-back-url ["Back to previous page" eww-back-url
:active (not (zerop (length eww-history)))] :active (not (zerop (length eww-history)))]
@ -450,6 +451,17 @@ word(s) will be searched for via `eww-search-prefix'."
;;(setq buffer-read-only t) ;;(setq buffer-read-only t)
) )
(defun eww-exit ()
"Exit the Emacs Web Wowser."
(interactive)
(setq eww-history nil)
(kill-buffer (current-buffer)))
(defun eww-close ()
"Close the Emacs Web Wowser browser, leaving history intact."
(interactive)
(quit-window))
(defun eww-save-history () (defun eww-save-history ()
(push (list :url eww-current-url (push (list :url eww-current-url
:title eww-current-title :title eww-current-title