マスタカの ChangeLog メモ / 2014-05-11-1

■ Emacsの自動保存ファイル(#*#)やバックアップファイル(*~)の作成先変更まとめ [Emacs]

Emacsをデフォルトの設定で何かファイルを編集していると、たくさんファ
イルが出来てゲンナリします。


あと、起動したEmacs単位でこういうファイルも作られます。


ファイルを保存すると①と②が消えます。③は残ります。
Emacsを終了すると④は消えます。

当然ですが、Emacsが強制終了すると①②④は消えません。

一切作らない方法

③を作りたくない方は多いと思うので、こんな設定をする方も多いと思います。

(setq make-backup-files nil)

④も作りたくない方はこちら。Mule時代はHOMEに作られたので、結構ウザ
かったです。

(setq auto-save-list-file-prefix nil)

①と②は調べてません。出来ないかもしれません。

作成先の変更

とはいえバージョン管理していない場合、③はあればうれしいかもしれま
せん。

実は③の作成先はカスタマイズ可能です。HOME以下のファイルを対象に、
OSXのゴミ箱~/.Trashに変更してみましょう。
~/.Trash/!Users!masutaka!hoge!aaa.txt~のようなファイルが作られます。

(add-to-list 'backup-directory-alist
             (cons (expand-file-name "~/") (expand-file-name "~/.Trash/")))

ついでに①も変更してみます。
同様に~/.Trash/#!Users!masutaka!hoge!aaa.txt#のようなファイルが作られます。

(add-to-list 'auto-save-file-name-transforms
             `("~/\\([^/]*/\\)*\\([^/]*\\)$" "~/.Trash/\\2" t))

④はもっと簡単です。
こちらも~/.Trash/.saves-70938-Takashi-no-MacBook-Air.local~のような
ファイルが作られます。

(setq auto-save-list-file-prefix "~/.Trash/.saves-")

詳しくはヘルプ(F1 v)をご覧ください。

②は分かりませんでした。

DRYに書く

EmacsLispもプログラミング言語です。DRYに書きます。

(let ((target-dir (expand-file-name "~/"))
      (dest-dir (expand-file-name "~/.Trash/")))

  ;; ①自動保存ファイル(#*#)の作成先変更
  (add-to-list 'auto-save-file-name-transforms
               `(,(concat target-dir "\\([^/]*/\\)*\\([^/]*\\)$")
                 ,(concat dest-dir "\\2")
                 t))

  ;; ③バックアップファイル(*~)の作成先変更
  (add-to-list 'backup-directory-alist (cons target-dir dest-dir))

  ;; ④自動保存リスト(.saves-<PID>-<HOSTNAME>)の作成先変更
  (setq auto-save-list-file-prefix (expand-file-name ".saves-" dest-dir)))