La función para mostrar la ruta completa del archivo actual en mini búfer

Necesito obtener la ruta completa del archivo que estoy editando con emacs.

• ¿Hay alguna función para eso?
• Si no es así, ¿cuál sería la función elisp para conseguirlo?
• ¿Cómo puedo copiar el resultado (nombre de la ruta) en un portapapeles para poder reutilizarlo?

Estoy usando Mac OS X y Aqumacs.

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

ADICIONAL

(defun show-file-name ()
  "Muestra el nombre del archivo de ruta completo en el minibúfer".
  (interactivo)
  (mensaje (nombre-archivo-búfer))
  (kill-new (file-truename búfer-nombre-archivo))
)
(global-set-key "\ C-cz" 'show-file-name)

Combinando las dos respuestas que obtuve, podría obtener lo que quiero. Gracias por las respuestas. Y algunas preguntas más.

• ¿Para qué sirve (file-truename)?
• ¿Puedo copiar el nombre de la ruta en el portapapeles del sistema (SO), no en el kill ring, para poder usar la información con las otras aplicaciones?

Es la función incorporada buffer-file-nameque le brinda la ruta completa de su archivo.

Lo mejor que puede hacer es que la ventana de emacs muestre siempre el nombre de su sistema y la ruta completa del búfer que está editando actualmente:

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

También puedes hacer algo como esto:

(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

Para tomar prestado de la respuesta de Jérôme Radix, si solo desea ver rápidamente la ruta del archivo del búfer actual, puede hacerlo M-: buffer-file-name.

Alternativamente, escriba (buffer-file-name)en el búfer en algún lugar y ejecute C-x C-eel paréntesis de cierre (esto funcionará en cualquier modo, no solo en modo lisp).

Mi truco es hacer un me C-x C-fgusta para abrir un archivo, rellenará previamente el minibuff con la ruta del archivo actual, C-gpara salir. Más rápido que M-: buffer-file-namecualquier otro método, pero mucho más feo.

La implementación directa de lo que desea es:

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

Dicho esto, me parece increíblemente útil poder obtener la ruta completa de lo que hay en el minibúfer, y esto es lo que uso:

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

Y luego, si lo quiero en el portapapeles, simplemente mato la línea ( C-a C-k). Pero podríamos copiar fácilmente el nombre verdadero al portapapeles en el comando anterior, simplemente cambie la última línea para que sea:

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

La parte nueva es la llamada a la 'kill-newque pone la cadena en el anillo de muerte.

No se necesitan funciones adicionales, solo

M-! pwd

Tengo el siguiente código ya en uso durante mucho tiempo. Copia la ruta completa del archivo al kill ring cuando presiono el botón central del mouse en el nombre del búfer en la línea de modo. Copia solo el nombre del búfer en el kill-ring cuando presiono shift-mouse-2 en el nombre del búfer en la línea de modo.

(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, también invocable mediante M-x list-directory, le mostrará el directorio de su archivo actual, y solo necesita presionar la tecla "Enter" para borrar el minibúfer. Detalles adicionales están disponibles aquí .

C-x C-b muestra una lista de búferes y la ruta del archivo para cada búfer cuando corresponda.

C-u C-x C-b enumera los búferes que actualmente visitan los archivos.

¿Puedo copiar el nombre de la ruta en el portapapeles del sistema (SO), no en el kill ring, para poder usar la información con las otras aplicaciones?

Puede hacerlo si utiliza algo como xclip (Linux), pbcopy (Mac), putclip (Cygwin).

Yo personalmente uso scripts de envoltura cy ppara copiar y pegar respectivamente, la primera lectura de la entrada estándar, la última escritura en la salida estándar. De esa manera, esto funciona en todas mis plataformas de desarrollo:

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

Encuentro esto más confiable y configurable que usar el soporte del portapapeles de Emacs. Por ejemplo, mi ccomando copia la entrada a los 3 portapapeles en Linux (primario, secundario, portapapeles), por lo que puedo pegar con Ctrl-V o con un clic central.

La forma más sencilla y sería

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

Tomando prestado de Trey Jackson, se me ocurrió esto:

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

Puede encontrar más información en el sitio.

copy-buffer-file-name-as-killde [0] hace exactamente lo que necesitas, creo. También tiene la opción de copiar solo el nombre del directorio o solo el nombre del archivo.

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