                                                     (danny--handle-file-created fpath))))
                                    :unwind (lambda ()
                                              (delete-frame)
+                                             (kill-buffer "*danny*")
                                              (other-window 1))))))
 
 (defun danny--handle-file-created (file-path)

   (cons 'vertical-scroll-bars nil))
  "Base frame parameters.")

(cl-defstruct
    danny-destination-root
  name
  dpath
  recursive)

(defun danny-stop-monitoring ()
  (interactive)
  "Stop monitoring for new files."

      (setq input (yes-or-no-p prompt))
      (delete-frame)
      (other-window 1)
      (kill-buffer "*danny*")
      input)))

(defun danny--longest-line-length (lines)
