[elpa] externals/ivy-explorer 7114ebe 2/7: Move to candidate which was current on exit when entering dired

[Clemens Radermacher]

branch: externals/ivy-explorer
commit 7114ebe5ffe55afc3a58bfc25d4405dbc327695b
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Move to candidate which was current on exit when entering dired
---
 ivy-explorer.el | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/ivy-explorer.el b/ivy-explorer.el
index 607222b..ae02151 100644
--- a/ivy-explorer.el
+++ b/ivy-explorer.el
@@ -317,11 +317,16 @@ in this case `avy' is not invoked again."
            (ivy-done)))))))
 
 (defun ivy-explorer-dired ()
-  "Open current directory in `dired'."
+  "Open current directory in `dired'.
+
+Move to file which was current on exit."
   (interactive)
-  (ivy--cd ivy--directory)
-  (ivy--exhibit)
-  (ivy-done))
+  (let ((curr (ivy-state-current ivy-last)))
+    (ivy--cd ivy--directory)
+    (ivy--exhibit)
+    (run-at-time 0 nil #'dired-goto-file
+                 (expand-file-name curr ivy--directory))
+    (ivy-done)))
 
 (defun ivy-explorer-next (arg)
   "Move cursor vertically down ARG candidates."