cycle-themes 20150402.2009(in MELPA)
A global minor mode to make switching themes easier

概要

Emacsの カラーテーマ はたくさんあるので迷うものです。

ならば、 cycle-themes.el で複数のテーマを切り替えて使っていくのがいいです。

<2015-04-28 Tue>の時点で開発が浅いので設定で修正しています。

本設定ではC-c tでテーマを順次切り替えます。

20150428021352.png
Fig1: 最初のテーマ

20150428021356.png
Fig2: C-c tで切り替え

インストール

パッケージシステムを初めて使う人は
以下の設定を ~/.emacs.d/init.el の
先頭に加えてください。

(package-initialize)
(setq package-archives
      '(("gnu" . "http://elpa.gnu.org/packages/")
        ("melpa" . "http://melpa.org/packages/")
        ("org" . "http://orgmode.org/elpa/")))

初めてcycle-themesを使う方は
以下のコマンドを実行します。

M-x package-install cycle-themes

アップグレードする方は、
以下のコマンドでアップグレードしてください。
そのためにはpackage-utilsパッケージが必要です。

M-x package-install package-utils (初めてアップグレードする場合のみ)
M-x package-utils-upgrade-by-name cycle-themes

設定 150428012227.cycle-theme.el(以下のコードと同一)

(require 'cycle-themes)
;;; 使うthemeを設定する
(setq cycle-themes-theme-list
      '(adwaita deeper-blue leuven))
;;; 切り替えたときのthemeを表示する
(defun cycle-themes-after-cycle-hook--show ()
  (message "Themes = %S" custom-enabled-themes))
(add-hook 'cycle-themes-after-cycle-hook 'cycle-themes-after-cycle-hook--show)

;;; C-c C-tはメジャーモードで使っているのでC-c tで切り替える
(define-key cycle-themes-mode-map (kbd "C-c C-t") nil)
(define-key cycle-themes-mode-map (kbd "C-c t") 'cycle-themes)
;;; [2015-04-28 Tue]これがないとエラーになる…
(setq custom-known-themes (append '(user changed) cycle-themes-theme-list))

(cycle-themes-mode 1)

実行方法

$ wget http://rubikitch.com/f/150428012227.cycle-theme.el
$ emacs -Q -f package-initialize -l 150428012227.cycle-theme.el


本日もお読みいただき、ありがとうございました。参考になれば嬉しいです。