From d3bf3204e14fd843b022baa3467309c69846ec49 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Sat, 19 Nov 2016 00:37:01 -0500
Subject: helm: Add binding for dired command

---
 init.el         | 2 ++
 lisp/km-helm.el | 6 ++++++
 2 files changed, 8 insertions(+)

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
@@ -28,6 +28,12 @@
   (with-helm-alive-p
     (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)
-- 
cgit v1.2.3