diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2016-01-07 22:13:16 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2016-01-09 03:39:01 -0500 |
| commit | fbb0adb8f3403613014d41b6430e2c46fca5e1a5 (patch) | |
| tree | 5d9562a576f44b1882913d38d07a680b8a2e6ffe /lisp/init-dired.el | |
| parent | 61d0552371cf350be2b9888759dfc57e9bcba3a5 (diff) | |
| download | emacs.d-fbb0adb8f3403613014d41b6430e2c46fca5e1a5.tar.gz | |
Add km/mode-buffers function
Diffstat (limited to 'lisp/init-dired.el')
| -rw-r--r-- | lisp/init-dired.el | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/lisp/init-dired.el b/lisp/init-dired.el index 8cb215e..ba976ea 100644 --- a/lisp/init-dired.el +++ b/lisp/init-dired.el @@ -65,12 +65,7 @@ (defun km/dired-completing-buffer () (completing-read "Dired buffer: " - (-map 'buffer-name (km/dired-buffer-list)))) - -(defun km/dired-buffer-list () - (--filter (with-current-buffer it - (derived-mode-p 'dired-mode)) - (buffer-list))) + (mapcar #'buffer-name (km/mode-buffers 'dired-mode)))) (defun km/org-open-dired-marked-files (&optional arg) "Open marked files (or next ARG) with `org-open-file'." |