[elpa] master b34bf45 140/399: counsel.el (counsel-dired): Add

[Oleh Krehel]

branch: master
commit b34bf45bd6cfdeaaa0d5238df7f0d8e4211ac4b7
Author: Vincent Zhang <address@hidden>
Commit: Oleh Krehel <address@hidden>

    counsel.el (counsel-dired): Add
    
    Fixes #1993
    Fixes #1999
---
 counsel.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/counsel.el b/counsel.el
index 6b9a8ba..d9299b6 100644
--- a/counsel.el
+++ b/counsel.el
@@ -2053,6 +2053,19 @@ result as a URL."
                (format formatter word-at-point)))))
        counsel-url-expansions-alist))))
 
+;;** `counsel-dired'
+(declare-function dired "dired")
+
+;;;###autoload
+(defun counsel-dired (&optional initial-input)
+  "Forward to `dired'.
+When INITIAL-INPUT is non-nil, use it in the minibuffer during completion."
+  (interactive)
+  (counsel--find-file-1
+   "Dired (directory): " initial-input
+   (lambda (d) (dired (expand-file-name d)))
+   'counsel-dired))
+
 ;;** `counsel-recentf'
 (defvar recentf-list)
 (declare-function recentf-mode "recentf")