branch: externals/ivy-explorer
commit 7114ebe5ffe55afc3a58bfc25d4405dbc327695b
Author: Clemens Radermacher <clem...@posteo.net>
Commit: Clemens Radermacher <clem...@posteo.net>
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."
