summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lisp/init-dired.el38
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)