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

Refactor: extract buffer-list into narf/get-buffers

Browse source
This commit is contained in:
Henrik Lissner 2015-07-19 00:44:50 +02:00
parent f8a384e5e2
commit 96af58e2bf
1 changed files with 26 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -49,20 +49,33 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
(unless (narf/real-buffer-p (current-buffer)) (unless (narf/real-buffer-p (current-buffer))
(narf/previous-real-buffer))) (narf/previous-real-buffer)))
;;;###autoload
(defun narf/get-all-buffers ()
"Get all buffers across all workgroups. Depends on
`wg-mess-with-buffer-list'."
(wg-buffer-list-emacs))
;;;###autoload
(defun narf/get-buffers ()
"Get all buffers in the current workgroup. Depends on
`wg-mess-with-buffer-list'."
(buffer-list))
;;;###autoload ;;;###autoload
(defun narf/get-visible-buffers (&optional buffer-list) (defun narf/get-visible-buffers (&optional buffer-list)
"Get a list of buffers that are not buried (i.e. visible)" "Get a list of buffers that are not buried (i.e. visible)"
(-remove #'get-buffer-window (or buffer-list (buffer-list)))) (-remove #'get-buffer-window (or buffer-list (narf/get-buffers))))
;;;###autoload ;;;###autoload
(defun narf/get-buried-buffers (&optional buffer-list) (defun narf/get-buried-buffers (&optional buffer-list)
"Get a list of buffers that are buried (i.e. not visible)" "Get a list of buffers that are buried (i.e. not visible)"
(-filter #'get-buffer-window (or buffer-list (buffer-list)))) (-filter #'get-buffer-window (or buffer-list (narf/get-buffers))))
;;;###autoload ;;;###autoload
(defun narf/get-matching-buffers (pattern &optional buffer-list) (defun narf/get-matching-buffers (pattern &optional buffer-list)
"Get a list of buffers that match the pattern" "Get a list of buffers that match the pattern"
(--filter (string-match-p pattern (buffer-name it)) (or buffer-list (buffer-list)))) (--filter (string-match-p pattern (buffer-name it))
(or buffer-list (narf/get-buffers))))
;;;###autoload ;;;###autoload
(defun narf/get-real-buffers(&optional buffer-list) (defun narf/get-real-buffers(&optional buffer-list)
@ -71,14 +84,16 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
(string-match-p it (buffer-name buffer)) (string-match-p it (buffer-name buffer))
(eq (buffer-local-value 'major-mode buffer) it)) (eq (buffer-local-value 'major-mode buffer) it))
narf-unreal-buffers))) narf-unreal-buffers)))
(or buffer-list (buffer-list)))) (or buffer-list (narf/get-buffers))))
;;;###autoload ;;;###autoload
(defun narf:kill-unreal-buffers () (defun narf:kill-unreal-buffers ()
"Kill all buried, unreal buffers in current frame. See `narf-unreal-buffers'" "Kill all buried, unreal buffers in current frame. See `narf-unreal-buffers'"
(interactive) (interactive)
(let* ((real-buffers (narf/get-real-buffers)) (let* ((all-buffers (narf/get-all-buffers))
(kill-list (--filter (not (memq it real-buffers)) (narf/get-buried-buffers)))) (real-buffers (narf/get-real-buffers all-buffers))
(kill-list (--filter (not (memq it real-buffers))
(narf/get-buried-buffers all-buffers))))
(message "Cleaned up %s buffers" (length kill-list)) (message "Cleaned up %s buffers" (length kill-list))
(mapc 'kill-buffer kill-list) (mapc 'kill-buffer kill-list)
(narf:kill-process-buffers))) (narf:kill-process-buffers)))
@ -87,7 +102,7 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
(defun narf:kill-process-buffers () (defun narf:kill-process-buffers ()
"Kill all buffers that represent running processes and aren't visible." "Kill all buffers that represent running processes and aren't visible."
(interactive) (interactive)
(let ((buffer-list (buffer-list))) (let ((buffer-list (narf/get-buffers)))
(dolist (p (process-list)) (dolist (p (process-list))
(let* ((process-name (process-name p)) (let* ((process-name (process-name p))
(assoc (assoc process-name narf-cleanup-processes-alist))) (assoc (assoc process-name narf-cleanup-processes-alist)))
@ -106,7 +121,7 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
(mapc (lambda (b) (mapc (lambda (b)
(if (string-match-p regexp (buffer-name b)) (if (string-match-p regexp (buffer-name b))
(kill-buffer b))) (kill-buffer b)))
(if buffer-list buffer-list (buffer-list)))) (if buffer-list buffer-list (narf/get-buffers))))
;;;###autoload ;;;###autoload
(defun narf/cycle-real-buffers (&optional n) (defun narf/cycle-real-buffers (&optional n)
@ -135,7 +150,7 @@ left, create a scratch buffer."
(eq (buffer-local-value 'major-mode buffer) it)) (eq (buffer-local-value 'major-mode buffer) it))
narf-unreal-buffers))))) narf-unreal-buffers)))))
;; From spacemacs <https://github.com/syl20bnr/spacemacs/blob/master/spacemacs/funcs.el> ;; Inspired by spacemacs <https://github.com/syl20bnr/spacemacs/blob/master/spacemacs/funcs.el>
;;;###autoload ;;;###autoload
(defun narf/next-real-buffer () (defun narf/next-real-buffer ()
"Switch to the next buffer and avoid special buffers." "Switch to the next buffer and avoid special buffers."
@ -154,7 +169,7 @@ left, create a scratch buffer."
(interactive "<!>") (interactive "<!>")
(narf:kill-buried-buffers) (narf:kill-buried-buffers)
(mapc 'kill-buffer (mapc 'kill-buffer
(narf/get-buried-buffers (if bang (projectile-project-buffers) (buffer-list))))) (narf/get-buried-buffers (if bang (projectile-project-buffers) (narf/get-buffers)))))
;;;###autoload (autoload 'narf:kill-all-buffers "defuns-buffers" nil t) ;;;###autoload (autoload 'narf:kill-all-buffers "defuns-buffers" nil t)
(evil-define-command narf:kill-all-buffers (&optional bang) (evil-define-command narf:kill-all-buffers (&optional bang)
@ -163,7 +178,7 @@ left, create a scratch buffer."
(interactive "<!>") (interactive "<!>")
(if (and (not bang) (projectile-project-p)) (if (and (not bang) (projectile-project-p))
(projectile-kill-buffers) (projectile-kill-buffers)
(mapc 'kill-buffer (buffer-list))) (mapc 'kill-buffer (narf/get-buffers)))
(delete-other-windows) (delete-other-windows)
(unless (narf/real-buffer-p) (unless (narf/real-buffer-p)
(narf/previous-real-buffer))) (narf/previous-real-buffer)))