     (define-key kmap (kbd "C-c C-e") (lambda ()
                                        (interactive)
                                        (ivy-quit-and-run
-                                         (message "Implement me"))))
+                                         (ar/find-dired ar/counsel-find--paths
+                                                        ar/counsel-find--args))))
     (ivy-read "find: "
               #'ar/counsel-find--function
               :initial-input (when (use-region-p)

              :keymap kmap
              :caller 'ar/counsel-find)))

(defun ar/counsel-find--function (pattern)
  "Find files ivy function matching PATTERN."
  (setq ar/counsel-find--last-command
        (format "find %s -ipath '*%s*'"
                (s-join " " ar/counsel-find--paths)
                (s-replace-regexp "[ ]+" "*" pattern)))
  (message "ar/counsel-find--function: %s"
           ar/counsel-find--last-command)
  (or
   (ivy-more-chars)
   (progn
     (counsel--async-command ar/counsel-find--last-command)
     '("" "working..."))))

(provide 'ar-counsel-find)



(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'.")

(defun ar/counsel-find (arg)
  "Call the \"find\" shell command and fuzzy narrow using ivy. With ARG choose search path."
