summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2014-07-12 22:03:03 -0400
committerKyle Meyer <kyle@kyleam.com>2014-07-12 22:03:03 -0400
commit0b51cac9a2800088ac5bd28549a016d0a4a58357 (patch)
tree4b2b34b23682a67bc3e93f29e6c1dfc6452bbd55 /lisp
parent354b1c59e8139dba770e34bbd757448dbdcedb42 (diff)
downloademacs.d-0b51cac9a2800088ac5bd28549a016d0a4a58357.tar.gz
Add dired-subtree bindings
Diffstat (limited to 'lisp')
-rw-r--r--lisp/init-dired.el18
1 files changed, 18 insertions, 0 deletions
diff --git a/lisp/init-dired.el b/lisp/init-dired.el
index 0bd08fe..b002b7f 100644
--- a/lisp/init-dired.el
+++ b/lisp/init-dired.el
@@ -77,4 +77,22 @@
(require-package 'dired-subtree)
+(define-prefix-command 'km/dired-subtree-map)
+(define-key km/dired-subtree-map "i" 'dired-subtree-insert)
+(define-key km/dired-subtree-map "r" 'dired-subtree-remove)
+(define-key km/dired-subtree-map "g" 'dired-subtree-revert)
+(define-key km/dired-subtree-map "s" 'dired-subtree-narrow)
+(define-key km/dired-subtree-map "u" 'dired-subtree-up)
+(define-key km/dired-subtree-map "d" 'dired-subtree-down)
+(define-key km/dired-subtree-map "n" 'dired-subtree-next-sibling)
+(define-key km/dired-subtree-map "p" 'dired-subtree-previous-sibling)
+(define-key km/dired-subtree-map "<" 'dired-subtree-beginning)
+(define-key km/dired-subtree-map ">" 'dired-subtree-end)
+(define-key km/dired-subtree-map "@" 'dired-subtree-mark-subtree)
+(define-key km/dired-subtree-map "." 'dired-subtree-unmark-subtree)
+
+(defun km/dired-subtree-bindings ()
+ (local-set-key (kbd "C-c m s") 'km/dired-subtree-map))
+(add-hook 'dired-mode-hook 'km/dired-subtree-bindings)
+
(provide 'init-dired)