117

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

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

我正在使用 Mac OS X 和 Aqumacs。

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

添加

(defun 显示文件名 ()
  “在 minibuffer 中显示完整路径文件名。”
  (交互的)
  (消息(缓冲区文件名))
  (kill-new (file-truename buffer-file-name))
)
(global-set-key "\C-cz" '显示文件名)

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

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

13 回答 13

108

它是内置函数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
于 2010-09-08T16:04:00.387 回答
82

借用 Jérôme Radix 的答案,如果您只想快速查看当前缓冲区的文件路径,您可以执行M-: buffer-file-name.

或者,(buffer-file-name)在某处输入缓冲区并C-x C-e在右括号上运行(这将在任何模式下工作,而不仅仅是 lisp 模式)。

于 2013-07-02T00:14:55.027 回答
46

我的技巧是点C-x C-f赞打开一个文件,它会用当前文件路径预先填充 minibuff,然后C-g退出。比任何其他方法都快,M-: buffer-file-name但比任何其他方法都要丑陋得多。

于 2013-10-24T08:22:52.090 回答
16

您想要的直接实现是:

(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))))

也就是说,我发现能够获得 minibuffer 中内容的完整路径非常有用,这就是我使用的:

(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将字符串放入 kill ring 的调用。

于 2010-09-08T15:59:08.400 回答
13

无需额外功能,只需

M-! pwd
于 2017-01-21T02:23:29.747 回答
4

我有以下代码已经使用了很长时间。当我在模式行中的缓冲区名称上按下鼠标中键时,它会将完整文件路径复制到终止环。当我在模式行中的缓冲区名称上按 shift-mouse-2 时,它只会将缓冲区名称复制到 kill-ring。

(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)))
于 2014-10-29T12:09:38.540 回答
4

C-x C-b显示缓冲区列表和每个缓冲区的文件路径(如果适用)。

于 2016-02-10T22:31:27.333 回答
4

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

于 2016-12-19T19:03:02.303 回答
4

C-u C-x C-b列出当前访问文件的缓冲区。

于 2018-06-17T02:01:58.027 回答
3

要做到标题所说的(在 minibuffer 中显示当前文件路径),您可以这样做:

M-x buffer-file-name

要在模式行中永久显示它,您可以使用以下命令:

(setq-default mode-line-buffer-identification
              (list 'buffer-file-name
                    (propertized-buffer-identification "%12f")
                    (propertized-buffer-identification "%12b")))

或者这个(颜色+缩写):

(setq-default mode-line-buffer-identification
              '((:eval
                 (list (propertize (abbreviate-file-name
                                    (expand-file-name buffer-file-name))
                                   'face 'font-lock-string-face)))))
于 2021-02-24T21:13:25.437 回答
1

我可以将路径名复制到系统(操作系统)的剪贴板,而不是杀伤环,以便我可以将信息与其他应用程序一起使用吗?

如果您使用 xclip (Linux)、pbcopy (Mac)、putclip (Cygwin) 之类的东西,则可以。

我个人分别使用包装脚本cp复制和粘贴,第一次从标准输入读取,后者写入标准输出。这样,这适用于我所有的开发平台:

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

我发现这比使用 Emacs 剪贴板支持更可靠且可配置。例如,我的c命令将输入​​复制到 Linux 上的所有 3 个剪贴板(主要、次要、剪贴板),因此我可以使用 Ctrl-V 或中键进行粘贴。

于 2013-11-07T11:50:25.000 回答
0

最简单的方法是

(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>

借用 Trey Jackson 我想出了这个:

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

您可以在网站上找到更多信息

于 2015-02-08T18:06:00.260 回答
0

copy-buffer-file-name-as-killfrom [0] 完全符合我的想法。它还可以选择仅复制目录名或文件名。

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

于 2015-08-20T10:50:13.323 回答