[bglug] Emacs color theme

[Alberto Bonacina]

Il 21 gennaio 2010 11.03, k|b|s <kbs@bglug.it> ha scritto:
> Ottimo, aspettiamo di vederla.

Come promesso ecco il mio emacs color theme ;-), personalizzato
prendendo il tuo e modificato per la sintassi LaTeX. Mettete nel
vostro .emacs

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

ed ecco il file color-theme-galois.el

--------8<---cut-here---8<---------

(defun color-theme-galois ()
 "Color theme by Galois, created 2010-01-21."
 (interactive)
 (color-theme-install
  '(color-theme-galois
    ((background-color . "black")
     (background-mode . dark)
     (border-color . "black")
     (cursor-color . "black")
     (foreground-color . "LightGray")
     (mouse-color . "black"))
    ((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))))
;;   (font-lock-builtin-face ((t (:italic t :bold t :foreground
"LightSteelBlue"))))
   (font-lock-comment-face ((t (:italic t :underline t :foreground "yellow"))))
   (font-lock-constant-face ((t (:foreground "green"))))
   (font-lock-function-name-face ((t (:italic t :bold t :foreground "Blue"))))
   (font-lock-keyword-face ((t (:foreground "red"))))
   (font-lock-preprocessor-face ((t (:italic t :foreground "HotPink"))))
   (font-lock-string-face ((t (:foreground "green"))))
;;   (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 (:foreground "blue"))))
   (font-lock-warning-face ((t (:bold t :foreground "blue"))))

;; Comandi specifici per LaTeX
   (font-latex-math-face ((t (:foreground "green"))))
   (font-latex-italic-face ((t (:foreground "orange"))))
   (font-latex-bold-face ((t (:foreground "orange"))))
   (font-latex-string-face ((t (:foreground "orange"))))
   (font-latex-verbatim-face ((t (:foreground "orange"))))
;;

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

--------8<---cut-here---8<---------


-- 
Bonacina Alberto
email: bonacina.alberto@gmail.com
Per favore, non mandatemi allegati in Word o PowerPoint
http://www.gnu.org/philosophy/no-word-attachments.it.html
Sai perche' GNU/Linux e' meglio?
http://www.whylinuxisbetter.net/index_it.php