From d53ddd591c5c553a40706210db4beea902a6f8ce Mon Sep 17 00:00:00 2001
From: Eric Danan <ricouilletaff@gmail.com>
Date: Sun, 26 Aug 2018 16:07:42 +0200
Subject: [PATCH] cp-switch-project: Add projectile-dired action

---
 README.md             | 1 +
 counsel-projectile.el | 7 +++++++
 2 files changed, 8 insertions(+)

diff --git a/README.md b/README.md
index 2b7dd00..deb8e19 100644
--- a/README.md
+++ b/README.md
@@ -116,6 +116,7 @@ This command is a replacement for `projectile-switch-project`. It adds the possi
 | <kbd>o</kbd>   | Jump to a project buffer or file: call `counsel-projectile` (default action; see above) |
 | <kbd>f</kbd>   | Jump to a project file: call `counsel-projectile-find-file` (see below)                 |
 | <kbd>d</kbd>   | Jump to a project directory: call `counsel-projectile-find-dir` (see below)             |
+| <kbd>D</kbd>   | Open project in dired                                                                   |
 | <kbd>b</kbd>   | Jump to a project buffer: call `counsel-projectile-switch-to-buffer` (see below)        |
 | <kbd>m</kbd>   | Find file manually: call `counsel-find-file` from the project root                      |
 | <kbd>S</kbd>   | Save all project buffers                                                                |
diff --git a/counsel-projectile.el b/counsel-projectile.el
index 88d8c26..5ebb5aa 100644
--- a/counsel-projectile.el
+++ b/counsel-projectile.el
@@ -1051,6 +1051,8 @@ candidates list of `counsel-projectile-switch-project'."
     "jump to a project file")
    ("d" counsel-projectile-switch-project-action-find-dir
     "jump to a project directory")
+   ("D" counsel-projectile-switch-project-action-dired
+    "open project in dired")
    ("b" counsel-projectile-switch-project-action-switch-to-buffer
     "jump to a project buffer")
    ("m" counsel-projectile-switch-project-action-find-file-manually
@@ -1144,6 +1146,11 @@ action."
            (counsel-projectile-find-dir ivy-current-prefix-arg))))
     (counsel-projectile-switch-project-by-name project)))
 
+(defun counsel-projectile-switch-project-action-dired (project)
+  "Open `dired' at PROJECT root."
+  (let ((projectile-switch-project-action 'projectile-dired))
+    (counsel-projectile-switch-project-by-name project)))
+
 (defun counsel-projectile-switch-project-action-switch-to-buffer (project)
   "Jump to a buffer in PROJECT."
   (let ((projectile-switch-project-action 'counsel-projectile-switch-to-buffer))