ฟังก์ชันแสดงพา ธ เต็มของไฟล์ปัจจุบันในมินิบัฟเฟอร์

ฉันต้องการเส้นทางแบบเต็มของไฟล์ที่ฉันแก้ไขด้วย emacs

• มีฟังก์ชั่นสำหรับสิ่งนั้นหรือไม่?
• ถ้าไม่ฟังก์ชั่น elisp ในการรับสิ่งนั้นคืออะไร?
• ฉันจะคัดลอกผลลัพธ์ (ชื่อพา ธ ) ไปยังคลิปบอร์ดเพื่อนำกลับมาใช้ใหม่ได้อย่างไร

ฉันใช้ Mac OS X และ Aqumacs

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

เพิ่มแล้ว

(ยุติการแสดงชื่อไฟล์ ()
  "แสดงชื่อไฟล์พา ธ แบบเต็มในมินิบัฟเฟอร์"
  (เชิงโต้ตอบ)
  (ข้อความ (ชื่อไฟล์บัฟเฟอร์))
  (kill-new (ชื่อไฟล์บัฟเฟอร์ชื่อไฟล์))
)
(global-set-key "\ C-cz" 'แสดงชื่อไฟล์)

เมื่อรวมสองคำตอบที่ฉันได้ฉันจะได้สิ่งที่ต้องการ ขอบคุณสำหรับคำตอบ และคำถามอื่น ๆ

• สำหรับ (file-truename) คืออะไร?
• ฉันสามารถคัดลอกชื่อพา ธ ไปยังคลิปบอร์ดของ System (OS) ไม่ใช่ kill ring เพื่อใช้ข้อมูลกับแอพอื่นได้หรือไม่

เป็นฟังก์ชันในตัว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

หากต้องการยืมจากคำตอบของJérôme Radix หากคุณต้องการดูเส้นทางไฟล์ของบัฟเฟอร์ปัจจุบันอย่างรวดเร็วคุณสามารถทำได้ M-: buffer-file-nameถ้าคุณเพียงแค่ต้องการได้อย่างรวดเร็วเห็นเส้นทางแฟ้มของบัฟเฟอร์ปัจจุบันที่คุณสามารถทำได้

อีกวิธีหนึ่งพิมพ์(buffer-file-name)ในบัฟเฟอร์ที่ใดที่หนึ่งและเรียกใช้C-x C-eในวงเล็บปิด (ซึ่งจะทำงานในโหมดใดก็ได้ไม่ใช่แค่โหมดเสียงกระเพื่อม)

เคล็ดลับของฉันคือทำC-x C-fเหมือนเปิดไฟล์มันจะเติมมินิบัฟด้วยเส้นทางไฟล์ปัจจุบันก่อนC-gเพื่อออก เร็วกว่าM-: buffer-file-nameแต่น่าเกลียดกว่าวิธีอื่น ๆ

การนำสิ่งที่คุณต้องการไปใช้โดยตรงคือ:

(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ที่ทำให้สตริงอยู่ในวงแหวนฆ่า

ไม่จำเป็นต้องมีฟังก์ชั่นพิเศษเพียง

M-! pwd

ฉันมีรหัสต่อไปนี้ใช้งานมานานแล้ว มันคัดลอกเส้นทางไฟล์แบบเต็มไปยัง kill ring เมื่อฉันกดปุ่มกลางของเมาส์ที่ชื่อบัฟเฟอร์ในบรรทัดโหมด มันคัดลอกเพียงชื่อบัฟเฟอร์ไปยัง kill-ring เมื่อฉันกด shift-mouse-2 บนชื่อบัฟเฟอร์ในบรรทัดโหมด

(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นอกจากนี้ยังสามารถโทรผ่านได้M-x list-directoryด้วยจะแสดงไดเร็กทอรีสำหรับไฟล์ปัจจุบันของคุณและคุณจะต้องกดปุ่ม "Enter" เพื่อล้างมินิบัฟเฟอร์ รายละเอียดเพิ่มเติมมีอยู่ที่นี่

C-x C-b แสดงรายการบัฟเฟอร์และเส้นทางไฟล์สำหรับแต่ละบัฟเฟอร์หากมี

C-u C-x C-b แสดงรายการบัฟเฟอร์ที่กำลังเยี่ยมชมไฟล์

ฉันสามารถคัดลอกชื่อพา ธ ไปยังคลิปบอร์ดของ System (OS) ไม่ใช่ kill ring เพื่อใช้ข้อมูลกับแอพอื่นได้หรือไม่

คุณสามารถถ้าคุณใส่บางอย่างเช่น xclip (Linux), pbcopy (Mac), putclip (Cygwin)

ฉันใช้สคริปต์ wrapper เป็นการส่วนตัวcและpสำหรับการคัดลอกและวางตามลำดับการอ่านครั้งแรกจากอินพุตมาตรฐานการเขียนหลังไปยังเอาต์พุตมาตรฐาน วิธีนี้ใช้ได้กับทุกแพลตฟอร์มการพัฒนาของฉัน:

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

ฉันพบว่าสิ่งนี้น่าเชื่อถือและกำหนดค่าได้มากกว่าการใช้การสนับสนุนคลิปบอร์ดของ Emacs ตัวอย่างเช่นcคำสั่งของฉันคัดลอกอินพุตไปยังคลิปบอร์ดทั้ง 3 รายการบน Linux (หลักรองคลิปบอร์ด) ดังนั้นฉันจึงสามารถวางด้วย Ctrl-V หรือคลิกกลาง

วิธีที่ง่ายที่สุดและจะเป็น

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

คุณสามารถค้นหาข้อมูลเพิ่มเติมได้ที่เว็บไซต์

copy-buffer-file-name-as-killจาก [0] ฉันคิดว่าสิ่งที่คุณต้องการ นอกจากนี้ยังมีตัวเลือกในการคัดลอกเฉพาะชื่อไดเร็กทอรีหรือเพียงแค่ชื่อไฟล์

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