モードラインにファイルのフルパスを表示

Emacs のモードラインの左部分にはバッファ名が表示されています。 この部分を左クリックしたら一定時間だけファイルのパス名が表示されるようにしてみました。 ついでにクリックと同時にパス文字列をキルリングにコピーします。 下記は [powerline](https://github.com/milkypostman/powerline)での表示例です。 普段はバッファ名が表示されているけど…  左クリックするとフルパス表示に切り替わる  (defvar mode-line-buffer-fullpath (list 'buffer-file-name (propertized-buffer-identification "%12f") (propertized-buffer-identification "%12b"))) (add-hook 'dired-mode-hook (lambda () ;; TODO: handle (DIRECTORY FILE ...) list value for dired-directory (setq mode-line-buffer-identification ;; emulate "%17b" (see dired-mode): '(:eval (propertized-buffer-identification (if (< (length default-directory) 17) (concat default-directory (make-string (- 17 (length default-directory)) ?\s)) default-directory)))))) (setq mode-line-buffer-default mode-line-buffer-identification) (defun show-mode-line-fullpath (event) (interactive "e") (when (buffer-file-name) (select-window (posn-window (event-start event))) ; activate window (let ((wait-sec 5)) (setq mode-line-buffer-identification mode-line-buffer-fullpath) (force-mode-line-update) (my-copy-buffer-file-name) ; copy path string to killring (sit-for wait-sec) (setq mode-line-buffer-identification mode-line-buffer-default) (force-mode-line-update) (message "")))) (define-key mode-line-buffer-identification-keymap [mode-line mouse-1] 'show-mode-line-fullpath) ; left click (set-face-attribute 'mode-line-highlight nil :box nil) ; remove box when hover mouse (defun my-copy-buffer-file-name () "copy buffer-file-name to kill-ring." (interactive) (let ((fn (unwind-protect (buffer-file-name) nil))) (if fn (let ((f (abbreviate-file-name (expand-file-name fn)))) (kill-new f) (message "copied: \"%s\"" f)) (message "no file name")))) この例では5秒間表示されます。表示時間は wait-sec で変更します。 なお、一定時間表示ではなく、クリックするたびに表示をトグルしたい場合は、`show-mode-line-fullpath` の代わりに下記の `toggle-mode-line-fullpath` を `define-key` するといいです。 (defun toggle-mode-line-fullpath () (interactive) (setq mode-line-buffer-identification (if (string= (format "%s" mode-line-buffer-identification) (format "%s" mode-line-buffer-fullpath)) mode-line-buffer-default mode-line-buffer-fullpath)) ;; (force-mode-line-update) ) ####参考リンク - [Add button with dynamic menu to emacs's modeline?](http://stackoverflow.com/questions/9019717/add-button-with-dynamic-menu-to-emacss-modeline)