Emacs
emacs-lisp
Themes

Emacs:複数のテーマを切り替えて使う

Emacsを快適に使うためにいろいろ自分好みのテーマを模索しますね。私の場合は、deeper-blue, misterioso, material と変遷し、今は doom-dracula を使っています。

それぞれ特徴があり、コードを書く時、文章を書く時等々、その時々で気分転換を兼ねて切り替えて使えたら面白いと思ってググってみたところ、下記サイトのQ&Aで面白いTipsを見つけたので試して見ました。結構快適で愉しいのでご紹介します。


設定

(setq my-themes (list 'doom-dracula 'material 'misterioso 'deeper-blue)) 

(setq curr-theme my-themes)
(defun my-theme-cycle ()
"Cycle custom theme."
(interactive)
(disable-theme (car curr-theme))
(setq curr-theme (cdr curr-theme))
(if (null curr-theme) (setq curr-theme my-themes))
(load-theme (car curr-theme) t)
(message "%s" (car curr-theme)))
(global-set-key [f7] 'my-theme-cycle)
(setq curr-theme my-themes)
(load-theme (car curr-theme) t)