[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