load-themeをトグルする

前提

Emacsの配色を変更したいときは、M-x load-themeしてみるといいですよ。Emacs 24なら、特別なものをインストールする必要はない。

• Emacs24に最初から同梱されているテーマ - AOEの日記

なにしたいの

筆者は黒い画面が好きなのでmanoj-darkテーマを愛用してるんですけど、別のカラーテーマに一時的に変更したいこともよくあります。アスキーアートを見るときとかね！

なので、黒い画面と明るめの画面をくるくる変更できると、とても捗ります。

toggle-load-themeを定義

適当に書いたので、各自.emacs.d/init.elとかにコピペすると便利です。

(defvar my/load-themes '(manoj-dark tango))
(defun toggle-load-theme ()
  "Toggle `load-theme'."
  (interactive)
  (let ((current-theme (car custom-enabled-themes)))
    (load-theme
     (car (or (cdr (member current-theme my/load-themes))
              my/load-themes)))))

my/load-themesは、お好みで設定してください。

(defvar my/load-themes '(A B C))

このように設定した場合、M-x toggle-load-themeを実行するたびに A → B → C → A → … のように変更(トグル)されます。現在の設定がXのときは、my/load-themesの先頭にあるAになります。

まとめ

やる夫スレを読むには (load-theme 'tango) がおすすめ。

宣伝: やる夫達は鳥人戦隊のようです おもしろいよ！