From 4899c934fb6aee4f8a86a94ad1744c071812307b Mon Sep 17 00:00:00 2001 From: Abhishek Chandratre Date: Wed, 14 Aug 2019 07:49:11 -0700 Subject: [PATCH] Adding pre delete hook Addressing wasamasa comments 1. Removing extra newline 2. Placing hook just before deletion --- eyebrowse.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/eyebrowse.el b/eyebrowse.el index 1c53ce9..8e557ed 100644 --- a/eyebrowse.el +++ b/eyebrowse.el @@ -147,6 +147,11 @@ t: Clean up and display the scratch buffer." :type 'hook :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 "Slot number assigned to the default workspace." :type 'integer @@ -449,6 +454,7 @@ another appropriate window config." (car (last window-configs))) (eyebrowse-prev-window-config nil) (eyebrowse-next-window-config nil)) + (run-hooks 'eyebrowse-pre-window-delete-hook) (eyebrowse--delete-window-config (eyebrowse--get 'last-slot))))) (defun eyebrowse-rename-window-config (slot tag)