   (dolist (cur-file cur-files)
   (if (nth 1 cur-file) (add-to-list 'new-directories (nth 0 cur-file))))
 
-  (if (not new-directories)
-      (message "no directories found.")
+;  (if (not new-directories)
+      ;(message "no directories found.")
+  (if new-directories
     (progn
       (while new-directories
       (setq new-files-and-dirs (find-files-and-directories (concat dirname (car new-directories))))

  (dolist (cur-file cur-files)
    (if (not (nth 1 cur-file)) (add-to-list 'new-files (nth 0 cur-file))))

  (dolist (new-file new-files)
    (message (concat "path: " dirname ", file:" new-file)))
    (add-to-list 'all-files-and-dirs `((dir . ,dirname) (file . ,new-files)))

  all-files-and-dirs))

(setq dir-project-root (find-next-settings-file))
(setq dir-inbox (concat dir-project-root "inbox/"))
(setq dirs-and-files (find-files-and-directories dir-inbox))


(defun create-file-selection-form (files-and-dirs)

(defun find-next-settings-file ()
  (setq cur-dir (buffer-file-name))

  (setq idx-sep (length cur-dir))
  (setq b-stop-looping nil)
  (while (and (> idx-sep 0) (not b-stop-looping))
    ;; find the last path seperator in the path string
