   (lambda (ignored)
     (find-file file-path)))
 
+(defun danny--choose-action (fpath)
+  (danny--framed-ivy-read
+   (list
+    (make-danny--framed-ivy-source :prompt (format "Action on (%s): " (f-filename fpath))
+                                   :collection (lambda (str pred v)
+                                                 '("Open"
+                                                   "Move"))
+                                   :action (lambda (item)
+                                             (cond ((equal item "Open")
+                                                    (unless (f-exists-p fpath)
+                                                      (error "File not found: %s" fpath))
+                                                    (find-file fpath))
+                                                   ((equal item "Move")
+                                                    (danny--handle-file-created fpath))))
+                                   :unwind (lambda ()
+                                             (delete-frame)
+                                             (other-window 1))))))
+
 (defun danny--handle-file-created (file-path)
   "Handle new file created at FILE-PATH."
   (with-current-buffer (get-buffer-create "*danny*")

(defun danny--notify-callback (event)
  "Handle EVENT for file-notify events."
  (let ((event-type (nth 1 event))
        (file-path (nth 2 event)))
    (when (and (eq event-type 'created)
               (f-file-p file-path))
      (danny--handle-file-created file-path))))

(defun danny--create-move-action-fun (src-fpath)
  (lambda (dst-dpath)

                     (delete-frame)
                     (other-window 1))))
      (danny--framed-ivy-read (-concat (list
                                        (make-danny--framed-ivy-source :prompt (format "Save in Recent (%s): " (f-filename file-path))
                                                                       :action (danny--create-move-action-fun file-path)
                                                                       :collection (lambda (str pred v)
