[nongnu] elpa/workroom e1092127bd 19/74: Add hook for buffer list change

[ELPA Syncer]

branch: elpa/workroom
commit e1092127bdf93d8f1ae0c58ec595d0181f606f1e
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    Add hook for buffer list change
---
 workroom.el | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/workroom.el b/workroom.el
index 14ef014871..29e8deecb7 100644
--- a/workroom.el
+++ b/workroom.el
@@ -163,6 +163,9 @@ The value is a mode line terminal like `mode-line-format'."
 (defvar workroom-rename-view-hook nil
   "Normal hook run after renaming a view.")
 
+(defvar workroom-buffer-list-change-hook nil
+  "Normal hook run after changing the buffer list of a workroom.")
+
 (cl-defstruct workroom
   "Structure for workroom."
   (name nil
@@ -916,7 +919,8 @@ If ROOM is the default workroom, do nothing."
   (if (functionp (workroom-buffers room))
       (error "Cannot add buffer to workroom with dynamic buffer list")
     (unless (member buffer (workroom-buffers room))
-      (push buffer (workroom-buffers room)))))
+      (push buffer (workroom-buffers room))
+      (run-hooks 'workroom-buffer-list-change-hook))))
 
 (defun workroom-remove-buffer (buffer &optional room)
   "Remove BUFFER from workroom ROOM.
@@ -949,11 +953,12 @@ If ROOM is the default workroom, kill buffer."
   (if (not (functionp (workroom-buffers room)))
       (when (member buffer (workroom-buffers room))
         (setf (workroom-buffers room)
-              (delete buffer (workroom-buffers room))))
-    (if (workroom-default-p room)
-        (kill-buffer buffer)
+              (delete buffer (workroom-buffers room)))
+        (run-hooks 'workroom-buffer-list-change-hook))
+    (unless (workroom-default-p room)
       (error (concat "Cannot remove buffer from non-default workroom with"
-                     " dynamic buffer list")))))
+                     " dynamic buffer list")))
+    (kill-buffer buffer)))
 
 (defmacro workroom-define-replacement (fn)
   "Define `workroom-FN' as replacement for FN.