 (defun get-file-at-line (line)
   (cdr (assoc line file-table)))
 
+(provide 'project)

;; for the menu i learned quite a lot from buff-menu.el
;; (http://www.mit.edu/afs.new/athena/astaff/source/src-8.2/third/emacs/lisp/buff-menu.el)

(require 'json)
(require 'widget)

(setq path-seperator '"/")
(setq settings-file-name '"settings.json")

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