Открыть панель (файлы/папки) и вставить файл в позицию курсора

Question

Я ищу способ открыть панель (дерево каталогов) файлов/папок в Emacs в операционной системе OSX и выбрать любой файл из списка для вставки в позицию курсора в текущем буфере. Cx i требует, чтобы я знал имя точного имени/пути файла, что означает, что я должен сначала посетить этот файл, открыть его и запустить функцию определения пути/имени файла, затем скопировать этот путь/имя файла и вернуться к исходный буфер, а затем запустить Cx i, удалить путь выборки, который есть, и вставить правильный путь/имя файла и нажать return. В качестве альтернативы, мне придется использовать другую программу, чтобы получить имя файла/путь, а затем выполнить те же заключительные шаги.

Я заканчиваю писать свой собственный плагин для Sublime Text 2, используя python open(self.template_path).read(), однако для этого мне потребовалось пару дней. Кто-нибудь знает пример defun, который откроет панель (из папок/файлов), чтобы вставить файл в позицию курсора, или, возможно, что-то похожее на пример python open.read, который можно изменить, чтобы вставить файл, открыв панель?

insert_file http://www.lawlist.com/images/insert_file.png

Answer 1

ли вы имеете в виду что-то вроде

(defun insert-file-from-osx-panel() 
    (interactive) 
    (let ((file-name (ns-read-file-name "Select File to Insert" nil t))) 
    (and file-name (insert-file file-name)))) 

?