                                                                                               (f-filename file-path))
                                                                               :action (danny--create-move-action-fun file-path)
                                                                               :collection (lambda (str pred v)
-                                                                                            (f-directories (danny-destination-root-dpath root)
-                                                                                                           nil
-                                                                                                           (danny-destination-root-recursive root)))
+                                                                                            (-concat
+                                                                                             (list (danny-destination-root-dpath root))
+                                                                                             (f-directories (danny-destination-root-dpath root)
+                                                                                                            nil
+                                                                                                            (danny-destination-root-recursive root))))
                                                                               :unwind unwind))
                                              danny-destination-roots))))))
 


(defvar danny-destination-roots
  (list (make-danny-destination-root :name "Documents"
                                     :dpath "~/Documents"))
  "Root destination directories. For example:

  (list (make-danny-destination-root :name \"Documents\"

   (list
    (make-danny--framed-ivy-source :prompt (format "Action on (%s): " (f-filename fpath))
                                   :collection (lambda (str pred v)
                                                 (-concat (list "Open"
                                                                "Move...")
                                                          (-map
                                                           (lambda (item)
                                                             (format "Move to %s" item))
                                                           (danny--last-destinations))))
                                   :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)
