alx/eyebrowse
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Make window config closing customizable

Browse Source 
Closes #35
This commit is contained in:
Vasilij Schneidermann
2015-06-14 23:02:26 +02:00
parent 8a31c0ed8c
commit 9ce001b04c
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
eyebrowse.el
View File

@ -167,6 +167,12 @@ The following format codes are supported:
:type 'string :type 'string
:group 'eyebrowse) :group 'eyebrowse)
(defcustom eyebrowse-close-window-config-prompt nil
"Ask user for confirmation when closing a window config?
If t, ask for confirmation."
:type 'boolean
:group 'eyebrowse)
(defvar eyebrowse-mode-map (defvar eyebrowse-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
(let ((prefix-map (make-sparse-keymap))) (let ((prefix-map (make-sparse-keymap)))
@ -360,7 +366,9 @@ This removes it from `eyebrowse-window-configs' and switches to
another appropriate window config." another appropriate window config."
(interactive) (interactive)
(let ((window-configs (eyebrowse--get 'window-configs))) (let ((window-configs (eyebrowse--get 'window-configs)))
(when (> (length window-configs) 1) (when (and (> (length window-configs) 1)
(or (not eyebrowse-close-window-config-prompt)
(yes-or-no-p "Close current window config?")))
(if (equal (assq (eyebrowse--get 'current-slot) window-configs) (if (equal (assq (eyebrowse--get 'current-slot) window-configs)
(car (last window-configs))) (car (last window-configs)))
(eyebrowse-prev-window-config nil) (eyebrowse-prev-window-config nil)