diff options
| -rw-r--r-- | lisp/init-dired.el | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/lisp/init-dired.el b/lisp/init-dired.el index b7f4b59..93a9105 100644 --- a/lisp/init-dired.el +++ b/lisp/init-dired.el @@ -65,35 +65,35 @@ (require-package 'dired-narrow) -(define-prefix-command 'km/dired-narrow-map) -(define-key km/dired-narrow-map "n" 'dired-narrow) -(define-key km/dired-narrow-map "f" 'dired-narrow-fuzzy) -(define-key km/dired-narrow-map "r" 'dired-narrow-regexp) +(define-prefix-command 'km/dired-narrow-prefix-map) +(define-key km/dired-narrow-prefix-map "n" 'dired-narrow) +(define-key km/dired-narrow-prefix-map "f" 'dired-narrow-fuzzy) +(define-key km/dired-narrow-prefix-map "r" 'dired-narrow-regexp) (defun km/dired-narrow-bindings () - (local-set-key (kbd "C-c m n") 'km/dired-narrow-map)) + (local-set-key (kbd "C-c m n") 'km/dired-narrow-prefix-map)) (add-hook 'dired-mode-hook 'km/dired-narrow-bindings) (define-key dired-mode-map "/" 'dired-narrow-fuzzy) (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) +(define-prefix-command 'km/dired-subtree-prefix-map) +(define-key km/dired-subtree-prefix-map "i" 'dired-subtree-insert) +(define-key km/dired-subtree-prefix-map "r" 'dired-subtree-remove) +(define-key km/dired-subtree-prefix-map "g" 'dired-subtree-revert) +(define-key km/dired-subtree-prefix-map "s" 'dired-subtree-narrow) +(define-key km/dired-subtree-prefix-map "u" 'dired-subtree-up) +(define-key km/dired-subtree-prefix-map "d" 'dired-subtree-down) +(define-key km/dired-subtree-prefix-map "n" 'dired-subtree-next-sibling) +(define-key km/dired-subtree-prefix-map "p" 'dired-subtree-previous-sibling) +(define-key km/dired-subtree-prefix-map "<" 'dired-subtree-beginning) +(define-key km/dired-subtree-prefix-map ">" 'dired-subtree-end) +(define-key km/dired-subtree-prefix-map "@" 'dired-subtree-mark-subtree) +(define-key km/dired-subtree-prefix-map "." 'dired-subtree-unmark-subtree) (defun km/dired-subtree-bindings () - (local-set-key (kbd "C-c m s") 'km/dired-subtree-map)) + (local-set-key (kbd "C-c m s") 'km/dired-subtree-prefix-map)) (add-hook 'dired-mode-hook 'km/dired-subtree-bindings) (provide 'init-dired) |