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

Cleanup + better feedback from narf:kill-matching-buffers

Browse source
This commit is contained in:
Henrik Lissner 2015-07-30 02:35:40 +02:00
parent 31a841afa7
commit 59edf438bf
1 changed files with 13 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

20
core/lib/defuns-buffers.el
View file

@ -14,6 +14,7 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
;;;###autoload ;;;###autoload
(defun narf:widen () (defun narf:widen ()
"Undo narrowing (see `narf:narrow')"
(interactive) (interactive)
(when (buffer-narrowed-p) (when (buffer-narrowed-p)
(widen))) (widen)))
@ -34,7 +35,7 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
(set-buffer-modified-p modified))) (set-buffer-modified-p modified)))
;; Killing Life and Death ;;;;;;;;;;;;;; ;; Buffer Life and Death ;;;;;;;;;;;;;;;
;;;###autoload ;;;###autoload
(defun narf:kill-real-buffer () (defun narf:kill-real-buffer ()
@ -112,10 +113,13 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
;;;###autoload ;;;###autoload
(defun narf:kill-matching-buffers (regexp &optional buffer-list) (defun narf:kill-matching-buffers (regexp &optional buffer-list)
(interactive) (interactive)
(mapc (lambda (b) (let ((i 0))
(if (string-match-p regexp (buffer-name b)) (mapc (lambda (b)
(kill-buffer b))) (when (string-match-p regexp (buffer-name b))
(if buffer-list buffer-list (narf/get-buffers)))) (kill-buffer b)
(setq i (1+ i))))
(if buffer-list buffer-list (narf/get-buffers)))
(message "Killed %s matches" i)))
;;;###autoload ;;;###autoload
(defun narf/cycle-real-buffers (&optional n scratch-default) (defun narf/cycle-real-buffers (&optional n scratch-default)
@ -132,8 +136,7 @@ left, create a scratch buffer."
(let ((current-buffer (current-buffer))) (let ((current-buffer (current-buffer)))
(cond ((eq current-buffer start-buffer) (cond ((eq current-buffer start-buffer)
(if scratch-default (if scratch-default
(switch-to-buffer "*scratch*") (switch-to-buffer "*scratch*"))
(user-error "No other buffers"))
(setq continue nil)) (setq continue nil))
((not (memq current-buffer real-buffers)) ((not (memq current-buffer real-buffers))
(funcall move-func)) (funcall move-func))
@ -165,6 +168,7 @@ left, create a scratch buffer."
;;;###autoload (autoload 'narf:kill-buried-buffers "defuns-buffers" nil t) ;;;###autoload (autoload 'narf:kill-buried-buffers "defuns-buffers" nil t)
(evil-define-command narf:kill-buried-buffers (&optional bang) (evil-define-command narf:kill-buried-buffers (&optional bang)
"Kill buried buffers and report how many it found."
:repeat nil :repeat nil
(interactive "<!>") (interactive "<!>")
(let ((buffers (narf/get-buried-buffers (if bang (projectile-project-buffers) (narf/get-buffers))))) (let ((buffers (narf/get-buried-buffers (if bang (projectile-project-buffers) (narf/get-buffers)))))
@ -210,12 +214,14 @@ left, create a scratch buffer."
;;;###autoload (autoload 'narf:cd "defuns-buffers" nil t) ;;;###autoload (autoload 'narf:cd "defuns-buffers" nil t)
(evil-define-command narf:cd (dir) (evil-define-command narf:cd (dir)
"Ex-command alias for `cd'"
:repeat nil :repeat nil
(interactive "<f>") (interactive "<f>")
(cd (if (zerop (length dir)) "~" dir))) (cd (if (zerop (length dir)) "~" dir)))
;;;###autoload ;;;###autoload
(defun narf/kill-all-buffers-do-not-remember () (defun narf/kill-all-buffers-do-not-remember ()
"Kill all buffers so that workgroups2 will forget its current session."
(interactive) (interactive)
(let ((confirm-kill-emacs nil)) (let ((confirm-kill-emacs nil))
(mapc 'kill-buffer (buffer-list)) (mapc 'kill-buffer (buffer-list))