>>402
わたしゃコンピュータ名やユーザ名で色を変えてます。

(set-foreground-color "black")
(set-background-color (cond ((string-match "^hoge" (system-name)) "mint cream")
(t "cornsilk")))
(set-cursor-color "darkgreen")
(set-face-background 'region "LightCyan2")
(set-face-foreground 'modeline "lightblue")
(set-face-background 'modeline (if (equal (user-login-name) "root") "darkred" "darkblue"))
(when (facep 'modeline-inactive)
(set-face-foreground 'modeline-inactive "lightblue")
(set-face-background 'modeline-inactive "royal blue"))