Browse Source

Added in the ibuffer-filter for buffer-sets

Samuel W. Flint 7 years ago
parent
commit
4b6562d933
1 changed files with 7 additions and 0 deletions
  1. 7 0
      buffer-sets.el

+ 7 - 0
buffer-sets.el

@@ -311,6 +311,13 @@
       (remove-hook 'kill-emacs-hook #'buffer-sets-unload-all-buffer-sets)
       (remove-hook 'kill-emacs-hook #'buffer-sets-save-definitions))))
 
+;;;###autoload
+(define-ibuffer-filter in-buffer-set
+    "Check to see if a buffer is in a given buffer-set."
+  (:reader (intern (completing-read "Set Name: " *buffer-sets-applied*)))
+  (let ((buffers-list (symbol-value (buffer-set--generate-buffers-list qualifier))))
+    (member buf buffers-list)))
+
 ;;;###autoload
 (defun buffer-sets-install-emacs-start-hook ()
   "Install the hook to load buffer-sets on Emacs start."