読者です 読者をやめる 読者になる 読者になる

牌語備忘録 -pygo

あくまでもメモです。なるべくオフィシャルの情報を参照してください。

牌語備忘録 -pygo

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

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