From 046dfb9cf1e1690487d20091ae4545f158141fa6 Mon Sep 17 00:00:00 2001 From: Alan Pearce Date: Sun, 6 Jul 2014 11:54:24 +0100 Subject: Emacs: install and configure dired-subtree --- tag-emacs/emacs.d/Cask | 1 + tag-emacs/emacs.d/init.el | 16 ++++++++++++++++ 2 files changed, 17 insertions(+) (limited to 'tag-emacs') diff --git a/tag-emacs/emacs.d/Cask b/tag-emacs/emacs.d/Cask index 880449a..78b286c 100644 --- a/tag-emacs/emacs.d/Cask +++ b/tag-emacs/emacs.d/Cask @@ -19,6 +19,7 @@ (depends-on "diff-hl") (depends-on "diminish") (depends-on "dired+") +(depends-on "dired-subtree") (depends-on "discover") (depends-on "discover-my-major") (depends-on "elisp-slime-nav") diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el index 66a4c06..6b13290 100644 --- a/tag-emacs/emacs.d/init.el +++ b/tag-emacs/emacs.d/init.el @@ -260,6 +260,22 @@ (setq dired-omit-files "#\\|\\.$" dired-find-subdir t))) +(req-package dired-subtree + :defer t + :config (progn + (setq dired-subtree-use-backgrounds nil) + (defun dired-subtree-maybe-up () + "Jump up one subtree or directory" + (interactive) + (let ((ov (dired-subtree--get-ov))) + (if ov + (progn (goto-char (overlay-start ov)) + (dired-previous-line 1)) + (dired-up-directory)))) + (bind-key "^" #'dired-subtree-maybe-up dired-mode-map)) + :init (progn + (bind-key "i" #'dired-subtree-insert dired-mode-map))) + ;;;; Documentation (req-package which-func -- cgit 1.4.1