+;;; test package --- la di da di
+
 ;; 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)
+
+(global-set-key (kbd "C-c f i") 'insert-from-inbox)
 
 (setq path-seperator '"/")
 (setq settings-file-name '"settings.json")

	; append the current file to the file table
	; line-number, full path to file, contents of comments file
	(setq file-table (cons `(,(line-number-at-pos) ,(concat (file-name-as-directory cur-dirname) cur-file) ,comment) file-table))
	(if (> (length cur-files) 1)
	    (insert "\n")))
	(beginning-of-line) ; looks nicer)
      (setq cur-files (cdr cur-files)))

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

;;;###autoload
(defun insert-from-inbox ()
  (interactive)
  (setq dir-inbox (file-name-as-directory (concat (file-name-as-directory (find-next-settings-file)) "inbox")))
