emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Revise :killo, add :killunreal

Browse source
This commit is contained in:
Henrik Lissner 2016-03-29 23:48:22 -04:00
parent 91ebf03a59
commit fc579f19ea
2 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
core/defuns/defuns-buffers.el
View file

@ -204,7 +204,7 @@ left, create a scratch buffer."
(narf/cycle-real-buffers -1))
(defun narf--kill-buffers (buffers &optional filter-func)
(let ((buffers (if filter-func (funcall filter-func buffers) buffers))
(let ((buffers (if filter-func (-filter filter-func buffers) buffers))
(affected 0))
(mapc (lambda (b) (when (kill-buffer b) (incf affected))) buffers)
(unless (narf/real-buffer-p)
@ -219,6 +219,15 @@ left, create a scratch buffer."
(when bang
(delete-other-windows)))
;;;###autoload (autoload 'narf:kill-other-buffers "defuns-buffers" nil t)
(evil-define-command narf:kill-other-buffers (&optional bang)
"Kill all other project buffers. If BANG, kill *all* other buffers (in workgroup)."
(interactive "<!>")
(narf--kill-buffers (narf/get-buffers (not bang))
(lambda (b) (not (eq b (current-buffer)))))
(when bang
(delete-other-windows)))
;;;###autoload (autoload 'narf:kill-buried-buffers "defuns-buffers" nil t)
(evil-define-command narf:kill-buried-buffers (&optional bang)
"Kill buried project buffers (in workgroup) and report how many it found. BANG = get all