awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-16 15:56:52 -05:00
Code Issues Packages Projects Releases Wiki Activity

Better magit+shackle integration

Browse Source
This commit is contained in:
Henrik Lissner
2017-05-17 17:28:04 +02:00
parent 44e672655d
commit a6c4aace90
4 changed files with 59 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
core/autoload/buffers.el
View File

@@ -65,11 +65,16 @@ the current workspace."
(cl-remove-if-not #'doom-real-buffer-p (or buffer-list (doom-buffer-list))))
;;;###autoload
(defun doom-buffers-in-mode (modes &optional buffer-list)
(defun doom-buffers-in-mode (modes &optional buffer-list derived-p)
"Get a list of all buffers (in the current workspace OR in BUFFER-LIST) whose
`major-mode' is one of MODES."
(let ((modes (if (listp modes) modes (list modes))))
(cl-remove-if-not (lambda (buf) (memq (buffer-local-value 'major-mode buf) modes))
(cl-remove-if-not (if derived-p
(lambda (buf)
(with-current-buffer buf
(apply #'derived-mode-p modes)))
(lambda (buf)
(memq (buffer-local-value 'major-mode buf) modes)))
(or buffer-list (doom-buffer-list)))))
;;;###autoload