diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-07-12 22:03:03 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-07-12 22:03:03 -0400 |
| commit | 0b51cac9a2800088ac5bd28549a016d0a4a58357 (patch) | |
| tree | 4b2b34b23682a67bc3e93f29e6c1dfc6452bbd55 | |
| parent | 354b1c59e8139dba770e34bbd757448dbdcedb42 (diff) | |
| download | emacs.d-0b51cac9a2800088ac5bd28549a016d0a4a58357.tar.gz | |
Add dired-subtree bindings
| -rw-r--r-- | lisp/init-dired.el | 18 |
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) |