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/init.el | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'tag-emacs/emacs.d/init.el')

diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el
index 66a4c06f..6b13290a 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