From 8060e6c8d1ffb7dd89fc83f5ba0fdfa49679824c Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 12 Dec 2015 01:28:04 -0500 Subject: [PATCH] +narf/get-visible-windows; filter from exhaustive buffer list in narf/get-visible-buffers --- core/lib/defuns-buffers.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/core/lib/defuns-buffers.el b/core/lib/defuns-buffers.el index 42dcd1361..cdca92280 100644 --- a/core/lib/defuns-buffers.el +++ b/core/lib/defuns-buffers.el @@ -49,10 +49,14 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/" `wg-mess-with-buffer-list'." (wg-workgroup-associated-buffers (wg-current-workgroup))) +;;;###autoload +(defun narf/get-visible-windows () + (-map #'get-buffer-window (narf/get-visible-buffers (narf/get-all-buffers)))) + ;;;###autoload (defun narf/get-visible-buffers (&optional buffer-list) "Get a list of buffers that are not buried (i.e. visible)" - (-filter #'get-buffer-window (or buffer-list (narf/get-buffers)))) + (-filter #'get-buffer-window (or buffer-list (narf/get-all-buffers)))) ;;;###autoload (defun narf/get-buried-buffers (&optional buffer-list)