   (interactive)
   (danny-stop-monitoring)
   (setq danny--history-hash (danny--read-history-hashtable danny--history-path))
-  (cl-assert danny-monitor-path nil "`danny-monitor-path' must be set")
-  (setq danny--notify-descriptor (file-notify-add-watch danny-monitor-path
+  (cl-assert danny-monitor-dir-path nil "`danny-monitor-dir-path' must be set")
+  (setq danny--notify-descriptor (file-notify-add-watch danny-monitor-dir-path
                                                         '(change attribute-change)
                                                         'danny--notify-callback)))
 

               (f-file-p file-path))
      (danny--handle-file-created file-path))))

(defun danny--create-move-action-fun (file-path)
  (lambda (destination-dir)
    (let ((destination-file (f-join destination-dir
                                    (danny--read-string (format "Save as (%s): " (f-filename file-path))
                                                        (f-filename file-path)
                                                        20))))
      (if (f-exists-p destination-file)
          (progn
            (unless (danny--y-or-n (format "Override? %s\n" destination-file))
              (error "Aborted"))
            (rename-file file-path destination-file t)
            (danny--add-destination-dir destination-dir))
        (rename-file file-path destination-file t)
        (danny--add-destination-dir destination-dir)))))

(defun danny--create-open-action-fun (file-path)
  (lambda (ignored)

(require 'ht)
(require 'ivy)

(defvar danny-monitor-dir-path nil "Directory path to monitor.")

(defvar danny--notify-descriptor nil "File notify descriptor.")

(defvar danny--history-hash (ht) "History hashtable.")

(defvar danny--destination-root "~/Downloads/Targets")

