Fungsi untuk menampilkan path lengkap file saat ini dalam buffer mini

Saya perlu mendapatkan path lengkap dari file yang saya edit dengan emacs.

• Apakah ada fungsi untuk itu?
• Jika tidak, apa fungsi elisp untuk mendapatkannya?
• Bagaimana cara menyalin hasil (nama jalur) ke papan klip sehingga saya dapat menggunakannya kembali?

Saya menggunakan Mac OS X dan Aqumacs.

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

DITAMBAHKAN

(defun show-file-name ()
  "Tunjukkan nama file jalur lengkap di minibuffer."
  (interaktif)
  (pesan (buffer-file-name))
  (kill-new (nama-file-nama-file-nama-file))
)
(global-set-key "\ C-cz" 'show-file-name)

Menggabungkan dua jawaban yang saya dapatkan, saya bisa mendapatkan apa yang saya inginkan. Terima kasih atas jawabannya. Dan beberapa pertanyaan lagi.

• Untuk apa (file-truename)?
• Dapatkah saya menyalin nama jalur ke papan klip Sistem (OS), bukan cincin pemutus sehingga saya dapat menggunakan info tersebut dengan aplikasi lain?

Ini adalah fungsi buffer-file-namebawaan yang memberi Anda jalur lengkap file Anda.

Hal terbaik untuk dilakukan adalah membuat jendela emacs Anda selalu menampilkan nama sistem Anda dan jalur lengkap buffer yang saat ini Anda edit:

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

Anda juga dapat melakukan sesuatu seperti ini:

(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

Untuk meminjam dari jawaban Jérôme Radix, jika Anda hanya ingin melihat jalur file buffer saat ini dengan cepat, Anda dapat melakukannya M-: buffer-file-name.

Bergantian, ketik (buffer-file-name)buffer di suatu tempat dan jalankan C-x C-edi kurung tutup (ini akan bekerja dalam mode apa pun, bukan hanya mode lisp).

Trik saya adalah melakukan C-x C-flike untuk membuka file, itu akan mengisi minibuff dengan jalur file saat ini, C-guntuk keluar. Lebih cepat dari M-: buffer-file-nametapi jauh lebih jelek dari metode lainnya.

Implementasi langsung dari apa yang Anda inginkan adalah:

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

Karena itu, saya merasa sangat berguna untuk bisa mendapatkan jalur lengkap dari apa yang ada di minibuffer, dan inilah yang saya gunakan:

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

Dan kemudian jika saya menginginkannya di clipboard, saya hanya mematikan baris ( C-a C-k). Tetapi kita dapat dengan mudah menyalin nama asli ke clipboard pada perintah di atas, cukup ubah baris terakhir menjadi:

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

Bagian baru adalah panggilan 'kill-newyang menempatkan string di cincin penghentian.

Tidak perlu fungsi ekstra, cukup

M-! pwd

Saya memiliki kode berikut sudah digunakan untuk waktu yang lama. Ini menyalin path file lengkap ke kill ring ketika saya menekan tombol tengah mouse pada nama buffer di mode-line. Ini hanya menyalin nama buffer ke kill-ring ketika saya menekan shift-mouse-2 pada nama buffer di mode-line.

(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, juga dapat dipanggil melalui M-x list-directory, akan menampilkan direktori untuk file Anda saat ini, dan Anda hanya perlu menekan tombol "Enter" untuk menghapus minibuffer. Detail tambahan tersedia di sini .

C-x C-b menunjukkan daftar buffer dan jalur file untuk setiap buffer jika berlaku.

C-u C-x C-b daftar buffer yang sedang mengunjungi file.

Dapatkah saya menyalin nama jalur ke papan klip Sistem (OS), bukan cincin pemutus sehingga saya dapat menggunakan info tersebut dengan aplikasi lain?

Anda bisa jika Anda keluar untuk sesuatu seperti xclip (Linux), pbcopy (Mac), putclip (Cygwin).

Saya pribadi menggunakan skrip pembungkus cdan puntuk salin dan tempel masing-masing, bacaan pertama dari input standar, tulisan terakhir ke output standar. Dengan begitu, ini berfungsi di semua platform pengembangan saya:

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

Saya merasa ini lebih dapat diandalkan dan dapat dikonfigurasi daripada menggunakan dukungan papan klip Emacs. Misalnya, cperintah saya menyalin input ke semua 3 papan klip di Linux (primer, sekunder, papan klip), jadi saya dapat menempel dengan Ctrl-V atau klik tengah.

Cara paling sederhana dan pasti

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

Meminjam dari Trey Jackson, saya mendapatkan ini:

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

Anda dapat menemukan informasi lebih lanjut di situs

copy-buffer-file-name-as-killdari [0] menurut saya melakukan apa yang Anda butuhkan. Ini juga memiliki opsi untuk menyalin hanya nama direktori, atau hanya nama file.

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