(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)