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


      ; append the current file to the file table
      ;(message (line-number-at-pos))
      (setq file-table (cons `(,(line-number-at-pos) ,(concat cur-dirname cur-file)) file-table))
;      (message file-table)
;      (print-elements-of-list file-table) ;


  (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 new-directories
    (progn
      (while new-directories
      (setq new-files-and-dirs (find-files-and-directories (concat dirname (car new-directories))))
