[bglug] Emacs color theme

k|b|s kbs@bglug.it
Mar 19 Gen 2010 17:03:13 CET


Uno schema di colori per emacs leggibile e non affaticante.
Inserite nel vostro .emacs 

(require 'color-theme)
(load-file "~/path/to/color-theme-joe.el")
(color-theme-joe)

E questo è color-theme-joe:

,----[ color-theme-joe.el ]
| (defun color-theme-joe ()
|   "color theme by joe galaxy, created 2010-01-14."
|   (interactive)
|   (color-theme-install
|    '(color-theme-joe
|      ((background-color . "grey25")
|       (background-mode . dark)
|       (border-color . "grey25")
|       (cursor-color . "gold1")
|       (foreground-color . "darkolivegreen2")
|       (mouse-color . "gold1"))
|      ((blank-space-face . blank-space-face)
|       (blank-tab-face . blank-tab-face)
|       (list-matching-lines-face . bold)
|       (view-highlight-face . highlight))
|     (default ((t (nil))))
|     (blank-space-face ((t (:background "lightgray"))))
|     (blank-tab-face ((t (:background "green" :foreground "black"))))
|     (bold ((t (:bold t))))
|     (bold-italic ((t (:italic t :bold t))))
|     (ediff-current-diff-face-a ((t (:background "pale green" :foreground "firebrick"))))
|     (ediff-current-diff-face-ancestor ((t (:background "violetred" :foreground "black"))))
|     (ediff-current-diff-face-b ((t (:background "yellow" :foreground "darkorchid"))))
|     (ediff-current-diff-face-c ((t (:background "pink" :foreground "navy"))))
|     (ediff-even-diff-face-a ((t (:background "light grey" :foreground "black"))))
|     (ediff-even-diff-face-ancestor ((t (:background "grey" :foreground "white"))))
|     (ediff-even-diff-face-b ((t (:background "grey" :foreground "white"))))
|     (ediff-even-diff-face-c ((t (:background "light grey" :foreground "black"))))
|     (ediff-fine-diff-face-a ((t (:background "sky blue" :foreground "navy"))))
|     (ediff-fine-diff-face-ancestor ((t (:background "green" :foreground "black"))))
|     (ediff-fine-diff-face-b ((t (:background "cyan" :foreground "black"))))
|     (ediff-fine-diff-face-c ((t (:background "turquoise" :foreground "black"))))
|     (ediff-odd-diff-face-a ((t (:background "grey" :foreground "white"))))
|     (ediff-odd-diff-face-ancestor ((t (:background "light grey" :foreground "black"))))
|     (ediff-odd-diff-face-b ((t (:background "light grey" :foreground "black"))))
|     (ediff-odd-diff-face-c ((t (:background "grey" :foreground "white"))))
|     (font-lock-builtin-face ((t (:italic t :bold t :foreground "lightsteelblue"))))
|     (font-lock-comment-face ((t (:italic t :foreground "lightgoldenrod4"))))
|     (font-lock-constant-face ((t (:italic t :foreground "hotpink"))))
|     (font-lock-doc-string-face ((t (:italic t :foreground "orange"))))
|     (font-lock-function-name-face ((t (:italic t :bold t :foreground "red"))))
|     (font-lock-keyword-face ((t (:foreground "red"))))
|     (font-lock-preprocessor-face ((t (:italic t :foreground "hotpink"))))
|     (font-lock-string-face ((t (:italic t :foreground "orange"))))
|     (font-lock-reference-face ((t (:italic t :bold t :foreground "lightsteelblue"))))
|     (font-lock-type-face ((t (:italic t :foreground "lightslateblue"))))
|     (font-lock-variable-name-face ((t (:underline t :foreground "lightgoldenrod"))))
|     (font-lock-warning-face ((t (:bold t :foreground "pink"))))
|     (highlight ((t (:background "yellow" :foreground "red"))))
|     (isearch ((t (:background "dim gray" :foreground "aquamarine"))))
|     (ispell-face ((t (:bold t :background "#3454b4" :foreground "yellow"))))
|     (italic ((t (:italic t))))
|     (menu ((t (:background "#304020" :foreground "navajo white"))))
|     (modeline ((t (:background "#304020" :foreground "navajo white"))))
|     (modeline-buffer-id ((t (:background "navajo white" :foreground "dim gray"))))
|     (modeline-mousable ((t (:background "light goldenrod" :foreground "dim gray"))))
|     (modeline-mousable-minor-mode ((t (:background "dim gray" :foreground "light goldenrod"))))
|     (region ((t (:background "dim gray" :foreground "aquamarine"))))
|     (secondary-selection ((t (:background "darkslateblue" :foreground "light goldenrod"))))
|     (show-paren-match-face ((t (:background "turquoise" :foreground "black"))))
|     (show-paren-mismatch-face ((t (:background "purple" :foreground "white"))))
|     (underline ((t (:underline t))))
|     (zmacs-region ((t (:background "dim gray" :foreground "aquamarine")))))))
`----


Have fun ;^)

-- 
mailto: ʇı̣˙ɓnƮɓq@sqʞ


Maggiori informazioni sulla lista bglug