Функция для отображения полного пути к текущему файлу в мини-буфере

Мне нужно получить полный путь к файлу, который я редактирую с помощью emacs.

• Есть ли для этого функция?
• Если нет, то какой была бы функция elisp для этого?
• Как я могу скопировать результат (путь) в буфер обмена, чтобы использовать его повторно?

Я использую Mac OS X и Aqumacs.

(setq filepath (get-fullpath-current-file)) ???
(copy-to-clipboard 'filepath) ???

ДОБАВЛЕНО

(defun показать-имя-файла ()
  «Показать полный путь к файлу в минибуфере».
  (интерактивный)
  (сообщение (имя-файла-буфера))
  (kill-new (имя-файла-файла-буфера))
)
(глобальный-набор-ключ "\ C-cz" 'имя-шоу-файла)

Объединив два полученных ответа, я смог получить то, что хочу. Спасибо за ответы. И еще несколько вопросов.

• Что для (имя-файла)?
• Могу ли я скопировать имя пути в буфер обмена системы (ОС), а не список уничтожений, чтобы я мог использовать информацию с другими приложениями?

Это встроенная функция, buffer-file-nameкоторая дает вам полный путь к вашему файлу.

Лучше всего, чтобы в окне emacs всегда отображалось имя вашей системы и полный путь к буферу, который вы редактируете в данный момент:

(setq frame-title-format
      (list (format "%s %%S: %%j " (system-name))
        '(buffer-file-name "%f" (dired-directory dired-directory "%b"))))

Вы также можете сделать что-то вроде этого:

(defun show-file-name ()
  "Show the full path file name in the minibuffer."
  (interactive)
  (message (buffer-file-name)))

(global-set-key [C-f1] 'show-file-name) ; Or any other key you want

Чтобы позаимствовать из ответа Жерома Радикса, если вы просто хотите быстро увидеть путь к файлу текущего буфера, вы можете это сделать M-: buffer-file-name.

Либо введите (buffer-file-name)где-нибудь буфер и запустите C-x C-eзакрывающую скобку (это будет работать в любом режиме, а не только в режиме lisp).

Мой трюк - сделать что-то C-x C-fвроде открытия файла, он предварительно заполнит минибуф текущим путем C-gк файлу, чтобы выйти. Быстрее, чем M-: buffer-file-nameлюбые другие методы, но намного уродливее.

Прямая реализация того, что вы хотите:

(defun copy-full-path-to-kill-ring ()
  "copy buffer's full path to kill ring"
  (interactive)
  (when buffer-file-name
    (kill-new (file-truename buffer-file-name))))

Тем не менее, я считаю невероятно полезным иметь возможность получить полный путь к тому, что находится в минибуфере, и вот что я использую:

(define-key minibuffer-local-completion-map "\C-r" 'resolve-sym-link)
(defun resolve-sym-link ()
  "Try to resolve symbolic links into true paths."
  (interactive)
  (beginning-of-line)
  (let* ((file (buffer-substring (point)
                                 (save-excursion (end-of-line) (point))))
         (file-dir (file-name-directory file))
         (file-true-dir (file-truename file-dir))
         (file-name (file-name-nondirectory file)))
    (delete-region (point) (save-excursion (end-of-line) (point)))
    (insert (concat file-true-dir file-name))))

А затем, если я хочу, чтобы это было в буфере обмена, я просто убиваю строку ( C-a C-k). Но мы могли бы легко скопировать истинное имя в буфер обмена в приведенной выше команде, просто изменив последнюю строку на:

(insert (kill-new (concat file-true-dir file-name)))))

Новая часть - это вызов, 'kill-newкоторый помещает строку в список уничтожения.

Нет необходимости в дополнительных функциях, просто

M-! pwd

У меня уже давно используется следующий код. Он копирует полный путь к файлу в список уничтожений, когда я нажимаю среднюю кнопку мыши на имени буфера в строке режима. Он копирует только имя буфера в список уничтожений, когда я нажимаю shift-mouse-2 на имени буфера в строке режима.

(defun copy-buffer-file-name (event &optional bufName)
  "Copy buffer file name to kill ring.
If no file is associated with buffer just get buffer name.
"
  (interactive "eP")
  (save-selected-window
    (message "bufName: %S" bufName)
    (select-window (posn-window (event-start event)))
    (let ((name (or (unless bufName (buffer-file-name)) (buffer-name))))
      (message "Saved file name \"%s\" in killring." name)
      (kill-new name)
      name)))

(define-key mode-line-buffer-identification-keymap [mode-line mouse-2] 'copy-buffer-file-name)
(define-key mode-line-buffer-identification-keymap [mode-line S-mouse-2] '(lambda (e) (interactive "e") (copy-buffer-file-name e 't)))

C-x C-d, также вызываемый через M-x list-directory, покажет вам каталог для вашего текущего файла, и вам нужно только нажать клавишу «Enter», чтобы очистить минибуфер. Дополнительная информация доступна здесь .

C-x C-b показывает список буферов и путь к файлу для каждого буфера, где это применимо.

C-u C-x C-b перечисляет буферы, посещающие в данный момент файлы.

Могу ли я скопировать имя пути в буфер обмена системы (ОС), а не список уничтожений, чтобы я мог использовать информацию с другими приложениями?

Вы можете использовать что-то вроде xclip (Linux), pbcopy (Mac), putclip (Cygwin).

Я лично использую сценарии-оболочки cи pдля копирования и вставки соответственно, первое чтение со стандартного ввода, второе запись на стандартный вывод. Таким образом, это работает на всех моих платформах разработки:

(shell-command (format "echo '%s' | c" buffer-file-name))

Я считаю это более надежным и настраиваемым, чем использование поддержки буфера обмена Emacs. Например, моя cкоманда копирует ввод во все 3 буфера обмена в Linux (основной, дополнительный, буфер обмена), поэтому я могу вставить его с помощью Ctrl-V или среднего щелчка.

Самый простой способ и был бы

(buffer-name)<(C-x)(C-e)> for the file name to appear in the echo area

(buffer-name)<(C-u)(C-x)(C-e)> would print the location <here>

Заимствуя у Трея Джексона, я придумал следующее:

(defun buffer-kill-path ()
  "copy buffer's full path to kill ring"
  (interactive)
  (kill-new (buffer-file-name)))

Вы можете найти больше информации на сайте

copy-buffer-file-name-as-killfrom [0], я думаю, делает именно то, что вам нужно. Также есть возможность скопировать только имя каталога или просто имя файла.

[0] http://www.emacswiki.org/emacs/download/buffer-extension.el