     (erase-buffer))
   (remove-overlays)
 
+  ;; show some information
+  (message "[Enter] - select / q - quit")
+
   ;; write the names of all directories and files into the buffer
   (while files-and-dirs
     (setq cur-entry (car files-and-dirs))
-    (message (cdr (assoc 'dir cur-entry)))
+;    (message (cdr (assoc 'dir cur-entry)))
     (setq cur-dirname (cdr (assoc 'dir cur-entry)))
     (setq cur-files (cdr (assoc 'file cur-entry)))
     

(defun find-all-inbox-entries ()
  ;; get the project directory
  (setq dir-project-root (find-next-settings-file))
  (setq dir-inbox (concat dir-project-root "inbox/"))
  (message dir-inbox)

  ;; traverse through the subdirectories
  (message (directory-files-and-attributes dir-inbox)))


(defun find-files-and-directories (dirname)

(defun get-file-at-line (line)
  (cdr (assoc line file-table)))

(provide 'project)
