init.el にパスワードやアクセストークンを書かずに済む方法

[2016-05-06-1] で init.el にアクセストークンを設定するという話をし
たので。

最近は dotfiles を GitHub に公開する方も増えているかと思います。
init.el にパスワードやアクセストークンを書いたのを忘れて、GitHub
の公開リポジトリに push すると悲惨なことになりますよね。

そこで、こんな方法はいかがでしょう？

こんな関数を init.el に書いておきます。

こんな設定をしたければ、、

(setq helm-qiita-access-token "1234abcd....")

init.el にはこのように書きます。

(setq helm-qiita-access-token (my-lisp-load "helm-qiita-access-token"))

あとは ~/.emacs.d/spec/helm-qiita-access-token を作成し、

"1234abcd...."

とだけ書いておきます。ダブルクオーテーションも必要です。もちろん
~/.emacs.d/spec は .gitignore に追加します。

read() で読み込んでいるので、S式であればなんでも書けます。もちろん
コメントも OK。

実はこれ、mew-lisp-load() の簡易版です。昔よく Mew のソース を読ん
でいて、こりゃ使えそうだということで、結構前に拝借致しました。