From 89fe6b3cc63ed87f157d945ac3dce55ec82ddce6 Mon Sep 17 00:00:00 2001
From: Ravi R Kiran <aine.marina@gmail.com>
Date: Sun, 4 May 2014 11:57:33 -0700
Subject: Simpler keybindings and guide-key support


diff --git a/ravi-init-dired.el b/ravi-init-dired.el
index a92f546..8db82f9 100644
--- a/ravi-init-dired.el
+++ b/ravi-init-dired.el
@@ -64,23 +64,24 @@
     (use-package dired-subtree
       :ensure t
       :config
-      (bind-keys :map dired-mode-map
-                 :prefix "C-,"
-                 :prefix-map dired-subtree-map
-                 :prefix-docstring "Dired subtree map."
-                 ("<f5>" . dired-subtree-insert)
-                 ("C-/" . dired-subtree-apply-filter)
-                 ("C-k" . dired-subtree-remove)
-                 ("C-n" . dired-subtree-next-sibling)
-                 ("C-p" . dired-subtree-previous-sibling)
-                 ("C-u" . dired-subtree-up)
-                 ("C-d" . dired-subtree-down)
-                 ("C-a" . dired-subtree-beginning)
-                 ("C-e" . dired-subtree-end)
-                 ("m" . dired-subtree-mark-subtree)
-                 ("u" . dired-subtree-unmark-subtree)
-                 ("C-o C-f" . dired-subtree-only-this-file)
-                 ("C-o C-d" . dired-subtree-only-this-directory))
+      (progn
+        (bind-keys :map dired-mode-map
+                   :prefix ","
+                   :prefix-map dired-subtree-map
+                   :prefix-docstring "Dired subtree map."
+                   ("/" . dired-subtree-apply-filter)
+                   ("k" . dired-subtree-remove)
+                   ("n" . dired-subtree-next-sibling)
+                   ("p" . dired-subtree-previous-sibling)
+                   ("u" . dired-subtree-up)
+                   ("d" . dired-subtree-down)
+                   ("a" . dired-subtree-beginning)
+                   ("e" . dired-subtree-end)
+                   ("m" . dired-subtree-mark-subtree)
+                   ("u" . dired-subtree-unmark-subtree)
+                   ("C-o C-f" . dired-subtree-only-this-file)
+                   ("C-o C-d" . dired-subtree-only-this-directory))
+        (bind-key "e" 'dired-subtree-insert dired-mode-map))
       )
 
     (defconst my-dired-media-files-extensions '("mp3" "mp4" "MP3" "MP4" "avi" "mpg" "flv" "ogg")
@@ -129,6 +130,16 @@ Also used for highlighting.")
               wdired-abort-changes)
       (eval `(defadvice ,it (after revert-buffer activate)
                (revert-buffer))))
+
+    (defun ravi/dired-guide-key-hook ()
+      (guide-key/add-local-guide-key-sequence "%")
+      (guide-key/add-local-guide-key-sequence "*")
+      (guide-key/add-local-guide-key-sequence "/")
+      (guide-key/add-local-guide-key-sequence ",")
+      (guide-key/add-local-guide-key-sequence "C-t")
+      )
+    (add-hook 'dired-mode-hook 'ravi/dired-guide-key-hook)
+
     ))
 
 (provide 'ravi-init-dired)
-- 
cgit v0.10.1