在迷你缓冲区中显示当前文件的完整路径的功能

Question

我需要获取我正在使用emacs编辑的文件的完整路径.

• 有功能吗？
• 如果没有,那么获得它的elisp功能是什么？
• 如何将结果(路径名)复制到剪贴板以便我可以重复使用它？

我正在使用Mac OS X和Aqumacs.

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

添加

(defun show-file-name ()
  "Show the full path file name in the minibuffer."
  (interactive)
  (message (buffer-file-name))
  (kill-new (file-truename buffer-file-name))
)
(global-set-key "\C-cz" 'show-file-name)

结合我得到的两个答案,我可以得到我想要的.谢谢你的回答.还有一些问题.

• (file-truename)是什么？
• 我可以将路径名复制到系统(OS)的剪贴板,而不是杀死环,以便我可以将信息与其他应用程序一起使用吗？

Answer 1

它是内置函数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

Answer 2

借用JérômeRadix的答案,如果你只想快速查看当前缓冲区的文件路径,你可以这样做M-: buffer-file-name.

Answer 3

我的诀窍就是C-x C-f打开一个文件,它会用当前文件路径预填充迷你文件,然后C-g退出.M-: buffer-file-name比任何其他方法都要快,但远远不够.

Answer 4

直接实现您想要的是:

(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).但是我们可以在上面的命令中轻松地将truename复制到剪贴板,只需将最后一行更改为:

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

新部分是'kill-new将字符串放入kill ring 的调用.

Answer 5

不需要额外的功能,只是

M-! pwd

Answer 6

C-x C-b显示缓冲区列表以及每个缓冲区的文件路径（如果适用）。

Answer 7

C-x C-d也可通过 调用M-x list-directory，将显示当前文件的目录，您只需按“Enter”键即可清除迷你缓冲区。更多详细信息请参见此处。