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

Adding pre delete hook

Browse Source 
Addressing wasamasa comments 1. Removing extra newline 2. Placing hook just before deletion
This commit is contained in:
Abhishek Chandratre
2019-08-14 07:49:11 -07:00
parent 52e160997a
commit 4899c934fb
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
eyebrowse.el
View File

@ -147,6 +147,11 @@ t: Clean up and display the scratch buffer."
:type 'hook :type 'hook
:group 'eyebrowse) :group 'eyebrowse)
(defcustom eyebrowse-pre-window-delete-hook nil
"Hook run before deleting a window config."
:type 'hook
:group 'eyebrowse)
(defcustom eyebrowse-default-workspace-slot 1 (defcustom eyebrowse-default-workspace-slot 1
"Slot number assigned to the default workspace." "Slot number assigned to the default workspace."
:type 'integer :type 'integer
@ -449,6 +454,7 @@ another appropriate window config."
(car (last window-configs))) (car (last window-configs)))
(eyebrowse-prev-window-config nil) (eyebrowse-prev-window-config nil)
(eyebrowse-next-window-config nil)) (eyebrowse-next-window-config nil))
(run-hooks 'eyebrowse-pre-window-delete-hook)
(eyebrowse--delete-window-config (eyebrowse--get 'last-slot))))) (eyebrowse--delete-window-config (eyebrowse--get 'last-slot)))))
(defun eyebrowse-rename-window-config (slot tag) (defun eyebrowse-rename-window-config (slot tag)