もう春だし何となくEmacsのカラーテーマを変えてみた

［修正］window-system ではない環境での Emacs 起動時にエラーにならないよう color-theme を読み込まない設定に変更。あと若干色変更。

Inspiration っていう Color Theme ジェネレータサイトがあるんだけど、いくらやってもしっくりこないんで結局自分でいろいろ色とか指定してみた。

コンセプトは、「ちょいとアグレッシブに攻めていきたいッス2010」

.emacs.elに下記設定

(defun my-color-theme ()
  (interactive)
  (color-theme-install
   '(my-color-theme
     ((background-color . "#000C00")
      (foreground-color . "#D3D3D3")
      (background-mode . dark)
      (border-color . "#323232")
      (cursor-color . "#FFA500")
      (mouse-color . "#323232"))
     (mode-line ((t (:foreground "#FFFFFF" :background "#323232"))))
;;      (region ((t (:background "#323232"))))
     (region ((t (:background "#767676"))))

     (font-lock-comment-face ((t (:foreground "#FF6850"))))
     (font-lock-constant-face ((t (:foreground "#D28000"))))
     (font-lock-builtin-face ((t (:foreground "#CD73C9"))))
     (font-lock-function-name-face ((t (:foreground "#FF78AA"))))
     (font-lock-variable-name-face ((t (:foreground "#9F79EE"))))
     (font-lock-keyword-face ((t (:foreground "#CD1076"))))
     (font-lock-string-face ((t (:foreground "#FFC400"))))
     (font-lock-doc-string-face ((t (:foreground "#FFC400"))))
     (font-lock-type-face ((t (:foreground "#FF34B3"))))
     )))
;; (require 'color-theme)
;; (my-color-theme)
(when (not (eq (symbol-value 'window-system) nil))
  (require 'color-theme)
  (my-color-theme))