helm: Add binding for dired command

2 files changed, 8 insertions, 0 deletions

diff --git a/init.el b/init.el
index e12f18a..183e897 100644
--- a/init.el
+++ b/init.el
@@ -1204,11 +1204,13 @@
   :init
   (after 'helm-files
     (bind-keys :map helm-find-files-map
+               ("C-c ." . km/helm-visit-in-dired)
                ("C-c b" . km/helm-find-file-below)
                ("C-c x" . km/helm-ff-org-open-file)
                ("C-c C-o" . km/helm-display-file)))
   (after 'helm-locate
     (bind-keys :map helm-generic-files-map
+               ("C-c ." . km/helm-visit-in-dired)
                ("C-c b" . km/helm-find-file-below)
                ("C-c x" . km/helm-ff-org-open-file)
                ("C-c C-o" . km/helm-display-file)))
diff --git a/lisp/km-helm.el b/lisp/km-helm.el
index b8d2dc0..f4471a1 100644
--- a/lisp/km-helm.el
+++ b/lisp/km-helm.el
@@ -29,6 +29,12 @@
     (helm-exit-and-execute-action #'display-buffer)))
 
 ;;;###autoload
+(defun km/helm-visit-in-dired ()
+  (interactive)
+  (with-helm-alive-p
+    (helm-exit-and-execute-action #'helm-point-file-in-dired)))
+
+;;;###autoload
 (defun km/helm-display-file ()
   (interactive)
   (with-helm-alive-p