2009/10/21

elisp ファイルのフルパスをコピー

時々ファイルのフルパスをコピーしたい時があって書いてみた。

;; カレントバッファで
(defun ore-copy-buffer-file-name ()
  "カレントバッファのファイル名 (フルパス) をコピー"
  (interactive)
  (if buffer-file-name
      (progn
        (kill-new buffer-file-name)
        (message buffer-file-name))
    (message "ファイルじゃありません")))

;; dired-mode で
(defun ore-copy-dired-get-filename ()
  "カーソル位置のファイル名 (フルパス) をコピー"
  (interactive)
  (kill-new (dired-get-filename))
  (message (dired-get-filename)))