                           (car find-ls-option)))
     (message command)
     (shell-command (concat command "&") (current-buffer))
-    (dired-mode parent-dpath "")
+    (dired-mode default-directory "")
     (let ((map (make-sparse-keymap)))
       (set-keymap-parent map (current-local-map))
       (define-key map "\C-c\C-k" 'kill-find)
       (use-local-map map))
+
     (setq-local dired-sort-inhibit t)
     (setq-local revert-buffer-function
                 (lambda (_1 _2) `(lambda (ignore-auto noconfirm)

(require 's)
(require 'f)

(defvar ar/counsel-find--paths nil "Find path.")

(defvar ar/counsel-find--args nil "Find argumetns.")

(defvar ar/counsel-find--history nil "History for `ar/counsel-find'.")


  (interactive "P")
  (when (or arg (not ar/counsel-find--paths))
    (setq ar/counsel-find--paths
          (list (directory-file-name
                 (read-directory-name "search in: " default-directory nil t)))))
  (ar/counsel-find--in-paths ar/counsel-find--paths))

(defun ar/counsel-find--in-paths (paths)
  "Ivy narrow files found searching PATHS."
  (setq ar/counsel-find--paths (mapcar #'directory-file-name paths))
  (let ((kmap (make-sparse-keymap)))
    (define-key kmap (kbd "C-c C-e") (lambda ()
                                       (interactive)
