   (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)))
+;  (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))
+;(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

;  (message file-table)
  (use-local-map rc-menu-mode-map))

(defun insert-from-inbox ()
  (interactive)
  (setq dir-inbox (file-name-as-directory (concat (file-name-as-directory (find-next-settings-file)) "inbox")))
  (create-file-selection-form (find-files-and-directories dir-inbox)))

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