Posted at

開いているファイル/フォルダのパスをクリップボードに保存する

More than 5 years have passed since last update.

ちょっとした手間を省くElispです。

この設定ではM-x put-current-path-to-clipboardもしくはC-c C-c pで現在のバッファのパスをクリップボードに読み込みます。

;;; Get current path and put it to clipboard

(defun put-current-path-to-clipboard ()
(interactive)
(let ((file-path buffer-file-name)
(dir-path default-directory))
(cond (file-path
(kill-new (expand-file-name file-path))
(message "This file path is on the clipboard!"))
(dir-path
(kill-new (expand-file-name dir-path))
(message "This directory path is on the clipboard!"))
(t
(error-message-string "Fail to get path name.")
))))
(global-set-key (kbd "C-c C-c p") 'put-current-path-to-clipboard)