cp-switch-project: Add projectile-dired action

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                                                                |

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))