Chức năng hiển thị đường dẫn đầy đủ của tệp hiện tại trong bộ đệm nhỏ

Tôi cần lấy đường dẫn đầy đủ của tệp mà tôi đang chỉnh sửa bằng emacs.

• Có một chức năng cho điều đó?
• Nếu không, hàm elisp sẽ là gì để có được điều đó?
• Làm cách nào để sao chép kết quả (tên đường dẫn) vào khay nhớ tạm để tôi có thể sử dụng lại nó?

Tôi đang sử dụng Mac OS X và Aqumacs.

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

THÊM

(định nghĩa show-file-name ()
  "Hiển thị tên tệp đường dẫn đầy đủ trong bộ đệm nhỏ."
  (tương tác)
  (tin nhắn (đệm-tệp-tên))
  (kill-new (file-truename buffer-file-name))
)
(global-set-key "\ C-cz" 'show-file-name)

Kết hợp hai câu trả lời mà tôi nhận được, tôi có thể có được những gì tôi muốn. Cảm ơn vì những câu trả lời. Và một số câu hỏi khác.

• Đối với (file-truename) là gì?
• Tôi có thể sao chép tên đường dẫn vào khay nhớ tạm của Hệ thống (HĐH), không phải vòng đệm để tôi có thể sử dụng thông tin với các ứng dụng khác không?

Đó là chức năng tích buffer-file-namehợp cung cấp cho bạn đường dẫn đầy đủ của tệp của bạn.

Điều tốt nhất cần làm là để cửa sổ emacs của bạn luôn hiển thị tên hệ thống của bạn và đường dẫn đầy đủ của bộ đệm mà bạn hiện đang chỉnh sửa:

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

Bạn cũng có thể làm điều gì đó như sau:

(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ượn câu trả lời của Jérôme Radix, nếu bạn chỉ muốn xem nhanh đường dẫn tệp của bộ đệm hiện tại, bạn có thể làm M-: buffer-file-name.

Hoặc, gõ (buffer-file-name)vào bộ đệm ở đâu đó và chạy C-x C-etrên dấu ngoặc đóng (điều này sẽ hoạt động ở bất kỳ chế độ nào, không chỉ ở chế độ lisp).

Mẹo của tôi là làm C-x C-fnhư mở một tệp, nó sẽ điền trước minibuff bằng đường dẫn tệp hiện tại, C-gđể thoát. Nhanh hơn M-: buffer-file-namenhưng xấu hơn nhiều so với bất kỳ phương pháp nào khác.

Việc thực hiện trực tiếp những gì bạn muốn là:

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

Điều đó nói rằng, tôi thấy nó vô cùng hữu ích khi có thể có được đường dẫn đầy đủ của những gì có trong bộ đệm nhỏ và đây là những gì tôi sử dụng:

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

Và sau đó nếu tôi muốn nó trong clipboard, tôi chỉ cần ngắt dòng ( C-a C-k). Nhưng chúng ta có thể dễ dàng sao chép truename vào khay nhớ tạm trong lệnh trên, chỉ cần thay đổi dòng cuối cùng thành:

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

Phần mới là lệnh gọi 'kill-newđặt chuỗi vào vòng tiêu diệt.

Không cần thêm chức năng, chỉ cần

M-! pwd

Tôi có mã sau đây đã được sử dụng trong một thời gian dài. Nó sao chép đường dẫn tệp đầy đủ vào vòng đệm khi tôi nhấn nút chuột giữa vào tên bộ đệm trong dòng chế độ. Nó chỉ sao chép tên bộ đệm vào vòng đệm khi tôi nhấn shift-mouse-2 vào tên bộ đệm trong dòng chế độ.

(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, cũng có thể gọi qua M-x list-directory, sẽ hiển thị cho bạn thư mục cho tệp hiện tại của bạn và bạn chỉ cần nhấn phím "Enter" để xóa bộ đệm nhỏ. Chi tiết bổ sung có sẵn tại đây .

C-x C-b hiển thị danh sách các bộ đệm và đường dẫn tệp cho mỗi bộ đệm nếu có.

C-u C-x C-b liệt kê bộ đệm hiện đang truy cập tệp.

Tôi có thể sao chép tên đường dẫn vào khay nhớ tạm của Hệ thống (HĐH), không phải vòng đệm để tôi có thể sử dụng thông tin với các ứng dụng khác không?

Bạn có thể làm như vậy nếu bạn sử dụng một thứ gì đó như xclip (Linux), pbcopy (Mac), putclip (Cygwin).

Cá nhân tôi sử dụng các tập lệnh trình bao bọc cvà pđể sao chép và dán tương ứng, lần đọc đầu tiên từ đầu vào tiêu chuẩn, phần sau ghi vào đầu ra tiêu chuẩn. Bằng cách đó, điều này hoạt động trên tất cả các nền tảng phát triển của tôi:

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

Tôi thấy điều này đáng tin cậy và có thể định cấu hình hơn so với việc sử dụng hỗ trợ bảng tạm của Emacs. Ví dụ: clệnh của tôi sao chép đầu vào vào cả 3 khay nhớ tạm trên Linux (chính, phụ, khay nhớ tạm), vì vậy tôi có thể dán bằng Ctrl-V hoặc nhấp chuột giữa.

Cách đơn giản nhất và sẽ là

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

Vay mượn từ Trey Jackson, tôi nghĩ ra điều này:

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

Bạn có thể tìm thêm thông tin trên trang web

copy-buffer-file-name-as-killtừ [0] thực hiện chính xác những gì bạn cần, tôi nghĩ. Nó cũng có tùy chọn sao chép chỉ tên thư mục hoặc chỉ tên tệp.

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