   (setq buffer-read-only t)
 
   (interactive "p")
+
+;  (message file-table)
   (use-local-map rc-menu-mode-map))
 
 (create-file-selection-form (find-files-and-directories dir-inbox))
 
+(defun get-file-at-line (line)
+  (car (cdr (assoc line file-table))))
 
-

    (while cur-files
      (setq cur-file (car cur-files))
      (insert cur-file)

      (setq cur-files (cdr cur-files))


(define-key rc-menu-mode-map "\C-m" 'rc-menu-entry)


(defun insert-org-image (filename)
  (insert (concat "#+CAPTION: " filename "\n"))
  (insert (concat "[[" filename "]]\n")))


(defun rc-menu-quit ()
  "Quit the menu."
  (interactive)
