Geçerli dosyanın tam yolunu mini arabellekte gösterme işlevi

Emacs ile düzenlediğim dosyanın tam yolunu almam gerekiyor.

• Bunun bir işlevi var mı?
• Değilse, bunu elde etmek için elisp işlevi nedir?
• Sonucu (yol adı) yeniden kullanabilmek için bir panoya nasıl kopyalayabilirim?

Mac OS X ve Aqumacs kullanıyorum.

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

KATMA

(defun show-file-name ()
  "Mini arabellekte tam yol dosya adını gösterin."
  (etkileşimli)
  (mesaj (tampon-dosya-adı))
  (kill-new (dosya-gerçek-adı tampon-dosya-adı))
)
(genel-küme-anahtarı "\ C-cz" 'dosya-adını göster)

Aldığım iki yanıtı birleştirerek istediğimi elde edebilirim. Cevaplar için teşekkürler. Ve biraz daha soru.

• (Dosya-adı) ne için?
• Yol adını diğer uygulamalarla birlikte kullanabilmek için öldürme halkasına değil, Sistemin (OS) panosuna kopyalayabilir miyim?

buffer-file-nameSize dosyanızın tam yolunu veren yerleşik işlevdir .

Yapılacak en iyi şey, emacs pencerenizin her zaman sistem adınızı ve şu anda düzenlemekte olduğunuz arabelleğin tam yolunu göstermesini sağlamaktır:

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

Bunun gibi bir şey de yapabilirsiniz:

(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

Jérôme Radix'in cevabından ödünç almak için, sadece mevcut tamponun dosya yolunu hızlıca görmek istiyorsanız, yapabilirsiniz M-: buffer-file-name.

Alternatif olarak, (buffer-file-name)arabelleği bir yere yazın ve C-x C-ekapanış parantezini çalıştırın (bu sadece lisp modunda değil, herhangi bir modda çalışacaktır).

Benim hünerim, C-x C-fbir dosyayı açmayı beğenmek, C-gçıkmak için mini düğmeyi mevcut dosya yolu ile önceden dolduracaktır . M-: buffer-file-nameDiğer yöntemlerden daha hızlı ama çok daha çirkin.

İstediğiniz şeyin doğrudan uygulanması:

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

Bununla birlikte, mini arabellekte olanın tam yolunu alabilmeyi inanılmaz derecede yararlı buluyorum ve kullandığım şey bu:

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

Ve sonra panoda istersem, satırı ( C-a C-k) öldürürüm . Ancak yukarıdaki komutta gerçek adı panoya kolayca kopyalayabiliriz, sadece son satırı şu şekilde değiştirin:

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

Yeni kısım, 'kill-newipi öldürme halkasına yerleştiren çağrıdır .

Ekstra işleve gerek yok, sadece

M-! pwd

Aşağıdaki kodu zaten uzun süredir kullanıyorum. Mod satırındaki arabellek adının ortasındaki fare düğmesine bastığımda tam dosya yolunu öldürme halkasına kopyalıyor. Mod satırında arabellek adı üzerinde shift-mouse-2 tuşuna bastığımda sadece arabellek adını kill-ring'e kopyalıyor.

(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, ayrıca çağrılabilir M-x list-directory, size mevcut dosyanızın dizinini gösterir ve mini arabelleği temizlemek için yalnızca "Enter" tuşuna basmanız gerekir. Ek ayrıntılar burada mevcuttur .

C-x C-b arabelleklerin bir listesini ve uygulanabilir olduğunda her arabellek için dosya yolunu gösterir.

C-u C-x C-b şu anda ziyaret edilen dosyaları listeler.

Yol adını diğer uygulamalarla birlikte kullanabilmek için öldürme halkasına değil, Sistemin (OS) panosuna kopyalayabilir miyim?

Xclip (Linux), pbcopy (Mac), putclip (Cygwin) gibi bir şeye kabuk verirseniz yapabilirsiniz.

Kişisel olarak sarıcı komut dosyalarını kullanıyorum cve psırasıyla kopyala ve yapıştır için, standart girdiden ilk okuma, ikincisi standart çıktıya yazma. Bu şekilde, bu tüm geliştirme platformlarımda çalışır:

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

Bunu Emacs pano desteğini kullanmaktan daha güvenilir ve yapılandırılabilir buluyorum. Örneğin, ckomutum girişi Linux'taki 3 panoya (birincil, ikincil, pano) kopyalar, böylece Ctrl-V veya orta tıklama ile yapıştırabilirim.

En basit yol ve olurdu

(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'dan ödünç alarak şunu buldum:

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

Sitede daha fazla bilgi bulabilirsiniz

copy-buffer-file-name-as-kill[0] 'dan tam olarak ihtiyacın olanı yaptığını düşünüyorum. Ayrıca sadece dizin adını veya sadece dosya adını kopyalama seçeneğine de sahiptir.

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