From df4851f4fbaf2efa87e992904278f4fed4588c90 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 23 Apr 2014 01:24:53 -0400 Subject: Add switch-to-buffer functions for dired --- lisp/init-dired.el | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) (limited to 'lisp/init-dired.el') diff --git a/lisp/init-dired.el b/lisp/init-dired.el index 341d772..ac4c279 100644 --- a/lisp/init-dired.el +++ b/lisp/init-dired.el @@ -26,4 +26,26 @@ (setq dired-guess-shell-alist-user '(("\\.pdf\\'" "zathura"))) +(defun km/dired-switch-to-buffer () + (interactive) + (let ((buffer-name (km/dired-completing-buffer))) + (switch-to-buffer buffer-name))) + +(defun km/dired-switch-to-buffer-other-window () + (interactive) + (let ((buffer-name (km/dired-completing-buffer))) + (pop-to-buffer buffer-name))) + +(defun km/dired-completing-buffer () + (ido-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))) + +(define-key ctl-x-4-map "D" 'km/dired-switch-to-buffer-other-window) +(global-set-key (kbd "C-x D") 'km/dired-switch-to-buffer) + (provide 'init-dired) -- cgit v1.2.3