switch-color-theme-matlab-latex.el

;; Filename: switch-color-theme-matlab-latex.el
;; Description:
;; Author: Da Zhang
;; Created: Wed Jan 16 13:06:57 2008
;;     Update #: 217

;; Copyright (C) 2008 Da Zhang ECE OU, zhangda@member.fsf.org

;; This is free software; you can redistribute it and/or modify it under
;; the terms of the GNU General Public License as published by the Free
;; Software Foundation; either version 2, or (at your option) any later
;; version.
;;
;; This is distributed in the hope that it will be useful, but WITHOUT
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
;; FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
;; for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place – Suite 330, Boston,
;; MA 02111-1307, USA.

;;; Commentary:

;; switch-color-theme-matlab-latex.el contains the customized color themes
;; for matlab mode (yellow background) and normal (black background). Call
;; function da-color-theme to change to the dark face, and call C-u
;; da-color-theme for the yellow background face.

;; color-theme-da-matlab is particularly designed to simulate the warm
;; yellow-green color and visual effect of Matlab programming environment

;; color-theme-da-normal is a dark theme, designed for normal programming
;; tasks such as C/C++/Java development, org/muse mode editing and LaTeX
;; editing.

;; Install theme:
;; (1)Place switch-color-theme-matlab-latex.el into your load-path.

;; (2)In your .emacs, add:
;; (require ‘switch-color-theme-matlab-latex)

;; (3)optional settings such as keybinding and hooking
;; (add-hook ‘matlab-mode-hook ‘color-theme-da-matlab)
;; (global-set-key [f6] ‘da-color-theme)

;;;;;;;;;;;;;;;;;;;;;;;;;;; -*- Mode: Emacs-Lisp -*- ;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;; Code:

(defun color-theme-da-normal ()
“Color theme by Da Zhang, created 2007-07-24.”
(interactive)
(ignore-errors  (color-theme-install
‘(my-color-theme
;; ((background-color . “black”)
;; (background-mode . dark)
;; (background-toolbar-color . “#cf3ccf3ccf3c”)
;; (border-color . “#000000000000″)
;; (bottom-toolbar-shadow-color . “#79e77df779e7″)
;; (cursor-color . “Red3″)
;; (foreground-color . “honeydew”)
;; (mouse-color . “black”))
(default ((t (:stipple nil :background “black” :foreground “honeydew3″ :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal))))
(bbdb-company ((t (nil))))
(bbdb-field-name ((t (:bold t :weight bold))))
(bbdb-field-value ((t (nil))))
(bbdb-name ((t (:underline t))))
(blue ((t (:foreground “blue”))))
(bold ((t (:bold t :weight bold))))
(bold-italic ((t (:bold t :italic t :slant italic :weight bold))))
(border ((t (:background “#000000000000″))))
(border-glyph ((t (nil))))
(buffer-menu-buffer ((t (:bold t :weight bold))))
(buffers-tab ((t (:background “black” :foreground “LightSkyBlue”))))
(button ((t (:underline t))))
(comint-highlight-prompt ((t (:bold t :foreground “Green1″ :weight bold))))
(compilation-column-number ((t (:foreground “DarkSlateGray1″))))
(compilation-error ((t (:bold t :weight bold :foreground “Red”))))
(compilation-info ((t (:bold t :foreground “Green1″ :weight bold))))
(compilation-line-number ((t (:foreground “magenta2″))))
(compilation-warning ((t (:bold t :foreground “Orange” :weight bold))))
(completions-common-part ((t (:width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :foreground “gray78″ :background “black” :stipple nil :height 120))))
(completions-first-difference ((t (:bold t :weight bold))))
(cperl-array-face ((t (:bold t :foreground “SkyBlue2″ :weight bold))))
(cperl-hash-face ((t (:foreground “LightBlue2″))))
(cperl-invalid-face ((t (:foreground “red”))))
(cperl-nonoverridable-face ((t (:foreground “chartreuse3″))))
(cursor ((t (:background “Red3″))))
(custom-button ((t (:bold t :weight bold :box (:line-width 2 :style released-button)))))
(custom-button-face ((t (:bold t :weight bold))))
(custom-button-mouse ((t (:background “grey90″ :foreground “black” :box (:line-width 2 :style released-button)))))
(custom-button-pressed ((t (:background “lightgrey” :foreground “black” :box (:line-width 2 :style pressed-button)))))
(custom-button-pressed-unraised ((t (:underline t :foreground “violet”))))
(custom-button-unraised ((t (:underline t))))
(custom-changed ((t (:background “blue” :foreground “white”))))
(custom-changed-face ((t (:background “blue” :foreground “white”))))
(custom-comment ((t (:foreground “white”))))
(custom-comment-face ((t (:foreground “white”))))
(custom-comment-tag ((t (:foreground “white”))))
(custom-comment-tag-face ((t (:foreground “white”))))
(custom-documentation ((t (nil))))
(custom-documentation-face ((t (nil))))
(custom-face-tag ((t (:underline t))))
(custom-face-tag-face ((t (:underline t))))
(custom-group-tag ((t (:foreground “dark goldenrod yellow” :weight bold :underline t))))
(custom-group-tag-1 ((t (:foreground “red” :underline t))))
(custom-group-tag-face ((t (:foreground “dark goldenrod yellow” :weight bold :underline t))))
(custom-group-tag-face-1 ((t (:foreground “red” :underline t))))
(custom-invalid ((t (:background “red” :foreground “yellow”))))
(custom-invalid-face ((t (:background “red” :foreground “yellow”))))
(custom-link ((t (:underline t :foreground “cyan1″))))
(custom-modified ((t (:background “blue” :foreground “white”))))
(custom-modified-face ((t (:background “blue” :foreground “white”))))
(custom-rogue ((t (:background “black” :foreground “pink”))))
(custom-rogue-face ((t (:background “black” :foreground “pink”))))
(custom-saved ((t (:underline t))))
(custom-saved-face ((t (:underline t))))
(custom-set ((t (:background “white” :foreground “blue”))))
(custom-set-face ((t (:background “white” :foreground “blue”))))
(custom-state ((t (:foreground “white”))))
(custom-state-face ((t (:foreground “white”))))
(custom-themed ((t (:background “blue1″ :foreground “white”))))
(custom-variable-button ((t (:bold t :underline t :weight bold))))
(custom-variable-button-face ((t (:bold t :underline t :weight bold))))
(custom-variable-tag ((t (:foreground “burlywood” :underline t))))
(custom-variable-tag-face ((t (:foreground “burlywood” :underline t))))
(cvs-filename-face ((t (:foreground “Green1″))))
(cvs-handled-face ((t (:foreground “pink”))))
(cvs-header-face ((t (:foreground “green”))))
(cvs-marked-face ((t (:bold t :foreground “green3″ :weight bold))))
(cvs-msg-face ((t (:foreground “red”))))
(cvs-need-action-face ((t (:foreground “yellow”))))
(cvs-unknown-face ((t (:foreground “grey”))))
(diff-added-face ((t (nil))))
(diff-changed-face ((t (nil))))
(diff-file-header-face ((t (:bold t :background “grey70″ :weight bold))))
(diff-hunk-header-face ((t (:background “grey85″))))
(diff-index-face ((t (:bold t :background “grey70″ :weight bold))))
(diff-removed-face ((t (nil))))
(dired-face-boring ((t (:foreground “Gray65″))))
(dired-face-directory ((t (:bold t :foreground “SkyBlue2″ :weight bold))))
(dired-face-executable ((t (:foreground “Green”))))
(dired-face-flagged ((t (:background “LightSlateGray”))))
(dired-face-header ((t (:background “grey75″ :foreground “black”))))
(dired-face-marked ((t (:background “PaleVioletRed”))))
(dired-face-permissions ((t (:background “grey75″ :foreground “black”))))
(dired-face-setuid ((t (:foreground “Red”))))
(dired-face-socket ((t (:foreground “magenta”))))
(dired-face-symlink ((t (:foreground “cyan”))))
(diredp-dir-priv ((t (:foreground “Red” :weight bold))))
(diredp-exec-priv ((t (:background “Blue4″))))
(diredp-no-priv ((t nil)))
(diredp-read-priv ((t (:background “darkgreen”))))
(diredp-write-priv ((t (:background “darkred”))))
(diredp-file-name ((t (:foreground “darkgreen” :weight bold))))
(ecb-analyse-bucket-element-face ((t (:height 1.0))))
(ecb-analyse-bucket-node-face ((t (:bold t :weight bold :height 1.0))))
(ecb-analyse-face ((t (:background “magenta”))))
(ecb-analyse-general-face ((t (:height 1.0))))
(ecb-bucket-node-face ((t (:bold t :weight bold :height 1.0))))
(ecb-default-general-face ((t (:height 1.0))))
(ecb-default-highlight-face ((t (:background “magenta”))))
(ecb-directories-general-face ((t (:height 1.0))))
(ecb-directory-face ((t (:background “magenta”))))
(ecb-directory-not-accessible-face ((t (:foreground “gray60″ :height 1.0))))
(ecb-history-face ((t (:background “magenta”))))
(ecb-history-general-face ((t (:height 1.0))))
(ecb-method-face ((t (:background “magenta”))))
(ecb-method-non-semantic-face ((t (:foreground “brown” :height 1.0))))
(ecb-methods-general-face ((t (:height 1.0))))
(ecb-mode-line-data-face ((t (nil))))
(ecb-mode-line-prefix-face ((t (:foreground “forestgreen”))))
(ecb-mode-line-win-nr-face ((t (:bold t :weight bold))))
(ecb-source-face ((t (:background “magenta”))))
(ecb-source-in-directories-buffer-face ((t (:foreground “LightBlue1″ :height 1.0))))
(ecb-source-read-only-face ((t (:italic t :slant italic))))
(ecb-sources-general-face ((t (:height 1.0))))
(ecb-tag-header-face ((t (:background “SeaGreen1″))))
(ecb-tree-guide-line-face ((t (:foreground “gray” :height 1.0))))
(ecb-type-tag-class-face ((t (:bold t :weight bold))))
(ecb-type-tag-enum-face ((t (:bold t :weight bold))))
(ecb-type-tag-group-face ((t (:bold t :foreground “dim gray” :weight bold))))
(ecb-type-tag-interface-face ((t (:bold t :weight bold))))
(ecb-type-tag-struct-face ((t (:bold t :weight bold))))
(ecb-type-tag-typedef-face ((t (:bold t :weight bold))))
(ecb-type-tag-union-face ((t (:bold t :weight bold))))
(ediff-fine-diff-A ((t (:foreground “navy” :background “sky blue”))))
(ediff-fine-diff-B ((t (:foreground “black” :background “cyan3″))))
(ediff-current-diff-A ((t (:foreground “gray80″ :background “#0A246F”))))
(ediff-current-diff-B ((t (:foreground “gray60″ :background “#0A246F”))))
(ediff-even-diff-A ((t (:foreground “gray80″ :background “blue4″))))
(ediff-even-diff-B ((t (:foreground “gray60″ :background “blue4″))))
(ediff-odd-diff-A ((t (:foreground “gray80″ :background “DarkSlateGray5″))))
(ediff-odd-diff-B ((t (:foreground “gray60″ :background “DarkSlateGray5″))))
(eieio-custom-slot-tag-face ((t (:foreground “light blue”))))
(escape-glyph ((t (:foreground “cyan”))))
(excerpt ((t (nil))))
(file-name-shadow ((t (:foreground “grey70″))))
(fixed ((t (:bold t :weight bold))))
(fixed-pitch ((t (:family “courier”))))
(font-lock-builtin-face ((t (:foreground “red3″ :weight bold))))
(font-lock-comment-delimiter-face ((t (:foreground “YellowGreen” :weight ultra-bold))))
(font-lock-comment-face ((t (:foreground “YellowGreen” :weight bold))))
(font-lock-constant-face ((t (:bold t :foreground “DarkOrange” :weight ultra-bold))))
(font-lock-doc-face ((t (:foreground “burlywood”))))
(font-lock-doc-string-face ((t (:foreground “turquoise” :weight bold))))
(font-lock-function-name-face ((t (:foreground “white” :weight ultra-bold))))
(font-lock-keyword-face ((t (:bold t :foreground “DodgerBlue” :weight ultra-bold))))
(font-lock-negation-char-face ((t (nil))))
(font-lock-preprocessor-face ((t (:foreground “green3″ :weight bold))))
(font-lock-reference-face ((t (:foreground “red3″ :weight bold))))
(font-lock-regexp-grouping-backslash ((t (:bold t :weight bold))))
(font-lock-regexp-grouping-construct ((t (:bold t :weight bold))))
(font-lock-string-face ((t (:foreground “burlywood” :weight bold))))
(font-lock-type-face ((t (:foreground “brown2″ :weight bold))))
(font-lock-variable-name-face ((t (:foreground “magenta2″ :weight bold))))
(font-lock-warning-face ((t (:bold t :foreground “Red” :weight ultra-bold))))
(font-latex-math-face ((t (:foreground “burlywood”))))
(font-latex-sedate-face ((t (:foreground “gray60″))))
(font-latex-sectioning-5-face ((t (:weight bold :bold t :foreground “red3″))))
(font-latex-bold-face ((t (:weight bold :bold t :foreground “green3″))))
(fringe ((t (:background “grey10″ :foreground “#445566″))));;this is what change the boundaries on both sides of the emacs window
(green ((t (:foreground “green”))))
(gui-button-face ((t (:background “grey75″ :foreground “black”))))
(gui-element ((t (nil))))
(header-line ((t (:background “grey20″ :foreground “grey90″ :box nil))))
(help-argument-name ((t (nil))))
(highlight ((t (:background “#0A249A”))))
(hl-line ((t (:background “#112233″))))
(html-helper-bold-face ((t (:bold t :weight bold))))
(html-helper-italic-face ((t (:bold t :foreground “yellow” :weight bold))))
(html-helper-underline-face ((t (:underline t))))
(hyper-apropos-documentation ((t (:foreground “LightSlateGray”))))
(hyper-apropos-heading ((t (:bold t :weight bold))))
(hyper-apropos-hyperlink ((t (:foreground “sky blue”))))
(hyper-apropos-major-heading ((t (:bold t :weight bold))))
(hyper-apropos-section-heading ((t (:bold t :weight bold))))
(hyper-apropos-warning ((t (:bold t :foreground “red” :weight bold))))
(ibuffer-deletion-face ((t (:foreground “red”))))
(ibuffer-marked-face ((t (:foreground “green”))))
(ido-first-match ((t (:bold t :weight ultra-bold))))
(ido-indicator ((t (:background “red” :foreground “yellow” :width condensed))))
(ido-only-match ((t (:foreground “Green” :weight ultra-bold))))
(ido-subdir ((t (:foreground “red”))))
(info-node ((t (:bold t :foreground “yellow” :weight bold))))
(info-xref ((t (:bold t :weight bold :underline t))))
(isearch ((t (:background “paleturquoise” :foreground “dark red”))))
(isearch-secondary ((t (:foreground “red3″))))
(isearch-fail ((t (:background “red” :foreground “black”))))
(italic ((t ( :italic t :slant italic))))
(lazy-highlight ((t (:background “paleturquoise4″))))
(left-margin ((t (nil))))
(link ((t (:foreground “cyan1″ :underline t))))
(link-visited ((t (:underline t :foreground “violet”))))
(linum ((t (:inherit shadow :foreground “burlywood” :height 100 :weight normal))))
(list-mode-item-selected ((t (:background “gray68″ :foreground “dark green”))))
(man-bold ((t (:bold t :weight bold))))
(man-heading ((t (:bold t :weight bold))))
(man-italic ((t (:foreground “yellow” :italic t))))
(man-xref ((t (:underline t))))
(match ((t (:background “RoyalBlue3″))))
;; (menu ((t (:foreground “systemmenutext” :background “systemmenu”))))
(message-cited-text ((t (:foreground “orange”))))
(message-header-contents ((t (:foreground “white”))))
(message-headers ((t (:bold t :foreground “orange” :weight bold))))
(message-highlighted-header-contents ((t (:bold t :weight bold))))
(message-url ((t (:bold t :foreground “pink” :weight bold))))
(minibuffer-prompt ((t (:foreground “cyan”))))
(mmm-face ((t (:background “black” :foreground “green”))))
(mode-line ((t (:background “black” :foreground “burlywood”))))
(mode-line-buffer-id ((t (:background “black” :foreground “burlywood”))))
(mode-line-highlight ((t (:box (:line-width 2 :color “grey40″ :style released-button)))))
(mode-line-inactive ((t (:background “grey30″ :foreground “grey80″ :box (:line-width -1 :color “grey40″ :style nil) :weight light))))
(modeline-mousable ((t (:background “Gray80″ :foreground “firebrick”))))
(modeline-mousable-minor-mode ((t (:background “Gray80″ :foreground “green4″))))
(mouse ((t (:background “black”))))
(next-error ((t (:foreground “DarkBlue” :background “gray65″))))
(nobreak-space ((t (:foreground “cyan” :underline t))))
(org-level-1 ((((class color) (min-colors 88) (background dark)) (:foreground “LightSkyBlue”))))
(org-level-2 ((((class color) (min-colors 88) (background dark)) (:foreground “burlywood”))))
(org-level-3 ((((class color) (min-colors 88) (background dark)) (:foreground “green3″))))
(paren-blink-off ((t (:foreground “gray80″))))
(paren-match ((t (:background “MediumBlue”))))
(paren-mismatch ((t (:background “DeepPink” :foreground “LightSkyBlue”))))
(pointer ((t (nil))))
(primary-selection ((t (:background “gray65″ :foreground “DarkBlue”))))
(query-replace ((t (:foreground “dark red” :background “paleturquoise”))))
(red ((t (:foreground “red”))))
(region ((t (:foreground “cyan” :background “#0A249A”))))
(right-margin ((t (nil))))
(scroll-bar ((t (:foreground “systemscrollbar”))))
(secondary-selection ((t (:background “paleturquoise” :foreground “black”))))
(semantic-highlight-edits-face ((t (:background “gray20″))))
(semantic-unmatched-syntax-face ((t (:underline “red”))))
(senator-intangible-face ((t (:foreground “gray75″))))
(senator-momentary-highlight-face ((t (:background “gray30″))))
(senator-read-only-face ((t (:background “#664444″))))
(shadow ((t (:foreground “grey70″))))
(shell-option-face ((t (:foreground “LightSkyBlue1″))))
(shell-output-2-face ((t (:foreground “SeaGreen1″))))
(shell-output-3-face ((t (:foreground “SeaGreen1″))))
(shell-output-face ((t (:bold t :weight bold))))
(shell-prompt-face ((t (:foreground “red4″))))
;;                     (show-paren-match ((t (:background “blue”))))
(show-paren-match-face ((t (:bold t :foreground “grey85″
:background “blue”))))
(show-paren-mismatch ((t (:background “red” :foreground “white” :bold t))))
(speedbar-button-face ((t (:foreground “green3″))))
(speedbar-directory-face ((t (:foreground “light blue”))))
(speedbar-file-face ((t (:foreground “cyan”))))
(speedbar-highlight-face ((t (:background “sea green”))))
(speedbar-selected-face ((t (:foreground “red” :underline t))))
(speedbar-separator-face ((t (:background “blue” :foreground “white” :overline “gray”))))
(speedbar-tag-face ((t (:foreground “yellow”))))
(swbuff-current-buffer-face ((t (:bold t :foreground “red” :underline t :weight bold))))
(swbuff-default-face ((t (nil))))
(swbuff-separator-face ((t (:foreground “DodgerBlue1″))))
(tabbar-button ((t (:inherit tabbar-default :foreground “dark red”))))
(tabbar-button-highlight ((t (:inherit tabbar-default :background “white” :box (:line-width 2 :color “white”)))))
(tabbar-default ((t (:inherit variable-pitch :background “gray80″ :foreground “gray40″ :box (:line-width 3 :color “gray80″) :height 99))))
(tabbar-highlight ((t (:underline t))))
(tabbar-selected ((t (:inherit tabbar-default :foreground “blue” :weight bold))))
(tabbar-separator ((t (:inherit tabbar-default))))
(tabbar-unselected ((t (:inherit tabbar-default))))
(text-cursor ((t (:background “Red3″ :foreground “black”))))
(tool-bar ((t (:background “gray80″ :foreground “black”))))
(tooltip ((t (:family “helv” :background “systeminfowindow” :foreground “systeminfotext”))))
(trailing-whitespace ((t (:background “red1″))))
(underline ((t (:underline t))))
(variable-pitch ((t (:family “helv”))))
(vertical-border ((t (nil))))
(vertical-divider ((t (nil))))
(vm-xface ((t (:background “white” :foreground “black”))))
(vmpc-pre-sig-face ((t (:foreground “forestgreen”))))
(vmpc-sig-face ((t (:foreground “steelblue”))))
(which-func ((t (:foreground “DeepSkyBlue1″))))
(widget ((t (nil))))
(widget-button ((t (:bold t :weight bold))))
(widget-button-pressed ((t (:foreground “red”))))
(widget-documentation ((t (:foreground “lime green”))))
(widget-field ((t (:background “gray30″ :foreground “gray85″))))
(widget-inactive ((t (:foreground “dim gray”))))
(widget-single-line-field ((t (:background “dim gray”))))
(x-face ((t (:background “white” :foreground “black”))))
(xrdb-option-name-face ((t (:foreground “red”))))
(yellow ((t (:foreground “yellow”))))
(zmacs-region ((t (:background “gray65″))))))))

;; default background EEF2D9, FFF2D9
(defun color-theme-da-matlab ()
“Color theme by Da Zhang, created 2007-07-23.”
(interactive)
(ignore-errors  (color-theme-install
‘(my-color-theme
;; ((background-color . “light goldenrod yellow”)
;; (background-mode . light)
;; (border-color . “black”)
;; (cursor-color . “red”)
;; (foreground-color . “black”)
;; (mouse-color . “black”))
(default ((t (:stipple nil :background “#F0F2D9″ :foreground “black” :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal))))
(bold ((t (:bold t :background “grey40″ :foreground “yellow” :weight bold))))
(bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
(border ((t (:background “yellow”))))
(buffer-menu-buffer ((t (:bold t :weight bold))))
(button ((t (:underline t))))
(comint-highlight-prompt ((t (:bold t :foreground “DarkBlue” :weight bold))))
(compilation-column-number ((t (:foreground “DarkBlue”))))
(compilation-error ((t (:bold t :weight bold :foreground “Pink”))))
(compilation-info ((t (:bold t :foreground “Green3″ :weight bold))))
(compilation-line-number ((t (:bold t :weight ultra-bold :foreground “saddle brown”))))
(compilation-warning ((t (:bold t :foreground “Orange” :weight bold))))
(completions-common-part ((t (:width normal :weight normal :slant normal :underline nil :overline nil :strike-through nil :box nil :inverse-video nil :foreground “black” :background “light goldenrod yellow” :stipple nil :height 120))))
(completions-first-difference ((t (:bold t :weight bold :foreground “yellow” :background “grey40″))))
(cursor ((t (:foreground “black” :background “red3″))))
(custom-button ((t (:background “lightgrey” :foreground “black” :box (:line-width 2 :style released-button)))))
(custom-button-mouse ((t (:background “grey90″ :foreground “black” :box (:line-width 2 :style released-button)))))
(custom-button-pressed ((t (:background “lightgrey” :foreground “black” :box (:line-width 2 :style pressed-button)))))
(custom-button-pressed-unraised ((t (:underline t :foreground “magenta4″))))
(custom-button-unraised ((t (:underline t))))
(custom-changed ((t (:background “blue1″ :foreground “white”))))
(custom-comment ((t (:background “gray85″))))
(custom-comment-tag ((t (:foreground “blue4″))))
(custom-documentation ((t (nil))))
(custom-face-tag ((t (:bold t :family “helv” :weight bold :height 1.2))))
(custom-group-tag ((t (:bold t :foreground “blue1″ :weight bold :height 1.2))))
(custom-group-tag-1 ((t (:bold t :family “helv” :foreground “red1″ :weight bold :height 1.2))))
(custom-invalid ((t (:background “red1″ :foreground “yellow1″))))
(custom-link ((t (:underline t :foreground “blue1″))))
(custom-modified ((t (:background “blue1″ :foreground “white”))))
(custom-rogue ((t (:background “black” :foreground “pink”))))
(custom-saved ((t (:underline t))))
(custom-set ((t (:background “white” :foreground “blue1″))))
(custom-state ((t (:foreground “dark green”))))
(custom-themed ((t (:background “blue1″ :foreground “white”))))
(custom-variable-button ((t (:bold t :underline t :weight bold))))
(custom-variable-tag ((t (:bold t :family “helv” :foreground “blue1″ :weight bold :height 1.2))))
(ecb-analyse-bucket-element-face ((t (:foreground “brown” :height 1.0))))
(ecb-analyse-bucket-node-face ((t (:bold t :weight bold :height 1.0))))
(ecb-analyse-face ((t (:background “cornflower blue” :foreground “yellow”))))
(ecb-analyse-general-face ((t (:height 1.0))))
(ecb-bucket-node-face ((t (:bold t :weight bold :height 1.0))))
(ecb-default-general-face ((t (:height 1.0))))
(ecb-default-highlight-face ((t (:background “cornflower blue” :foreground “yellow”))))
(ecb-directories-general-face ((t (:height 1.0))))
(ecb-directory-face ((t (:background “cornflower blue” :foreground “yellow”))))
(ecb-directory-not-accessible-face ((t (:foreground “gray60″ :height 1.0))))
(ecb-history-face ((t (:background “cornflower blue” :foreground “yellow”))))
(ecb-history-general-face ((t (:height 1.0))))
(ecb-method-face ((t (:background “cornflower blue” :foreground “yellow”))))
(ecb-method-non-semantic-face ((t (:foreground “brown” :height 1.0))))
(ecb-methods-general-face ((t (:height 1.0))))
(ecb-mode-line-data-face ((t (nil))))
(ecb-mode-line-prefix-face ((t (:foreground “forestgreen”))))
(ecb-mode-line-win-nr-face ((t (:bold t :weight bold))))
(ecb-source-face ((t (:background “cornflower blue” :foreground “yellow”))))
(ecb-source-in-directories-buffer-face ((t (:foreground “medium blue” :height 1.0))))
(ecb-source-read-only-face ((t (:italic t :slant italic))))
(ecb-sources-general-face ((t (:height 1.0))))
(ecb-tag-header-face ((t (:background “SeaGreen1″))))
(ecb-tree-guide-line-face ((t (:foreground “grey” :height 1.0))))
(ecb-type-tag-class-face ((t (:bold t :weight bold))))
(ecb-type-tag-enum-face ((t (:bold t :weight bold))))
(ecb-type-tag-group-face ((t (:bold t :foreground “dim gray” :weight bold))))
(ecb-type-tag-interface-face ((t (:bold t :weight bold))))
(ecb-type-tag-struct-face ((t (:bold t :weight bold))))
(ecb-type-tag-typedef-face ((t (:bold t :weight bold))))
(ecb-type-tag-union-face ((t (:bold t :weight bold))))
(eieio-custom-slot-tag-face ((t (:foreground “blue”))))
(escape-glyph ((t (:foreground “brown”))))
(file-name-shadow ((t (:foreground “grey50″))))
(fixed-pitch ((t (:family “courier”))))
(fl-comment-face ((t (:foreground “medium purple”))))
(fl-function-name-face ((t (:foreground “green”))))
(fl-keyword-face ((t (:foreground “LightGreen”))))
(fl-string-face ((t (:foreground “light coral”))))
(fl-type-face ((t (:foreground “cyan”))))
(flyspell-duplicate ((t (:foreground “OrangeRed” :underline t))))
(flyspell-incorrect ((t (:foreground “Red” :underline t))))
(font-lock-builtin-face ((t (:foreground “dark blue” :weight bold))))
(font-lock-comment-delimiter-face ((t (:foreground “dark green” :weight bold))))
(font-lock-comment-face ((t (:foreground “dark green” :weight bold))))
(font-lock-constant-face ((t (:bold t :foreground “DarkBlue” :weight extra-bold))))
(font-lock-doc-face ((t (:bold t :foreground “purple2″ :weight bold))))
(font-lock-function-name-face ((t (:bold t :foreground “red4″ :weight bold))))
(font-lock-keyword-face ((t (:bold t :foreground “blue” :weight bold))))
(font-lock-negation-char-face ((t (nil))))
(font-lock-preprocessor-face ((t (:foreground “LightSteelBlue” :weight bold))))
(font-lock-regexp-grouping-backslash ((t (:bold t :weight bold :foreground “NavyBlue” ))))
(font-lock-regexp-grouping-construct ((t (:bold t :weight bold :foreground “NavyBlue” ))))
(font-lock-string-face ((t (:bold t :foreground “purple2″ :weight bold))))
(font-lock-type-face ((t (:foreground “dark blue” :weight bold))))
(font-lock-variable-name-face ((t (:bold t :foreground “saddle brown” :weight bold))))
(font-lock-warning-face ((t (:bold t :foreground “Pink” :weight extra-bold))))
(font-latex-math-face ((t (:foreground “red4″))))
(font-latex-sedate-face ((t (:foreground “gray50″))))
(font-latex-sectioning-5-face ((t (:weight bold :bold t :foreground “red3″))))
(font-latex-bold-face ((t (:weight bold :bold t :foreground “dark green”))))
(fringe ((t (:background “#E0F2D9″ :foreground “#112233″))))
(header-line ((t (:background “grey90″ :foreground “grey20″ :box nil))))
(help-argument-name ((t (nil))))
(highlight ((t (:background “black” :foreground “burlywood”))))
(hl-line ((t (:background “#99AABB”))))
(html-helper-bold-face ((t (:bold t :weight bold))))
(html-helper-italic-face ((t (:bold t :background “black” :foreground “yellow” :weight bold))))
(html-helper-underline-face ((t (:underline t))))
(ibuffer-deletion-face ((t (:foreground “red”))))
(ibuffer-marked-face ((t (:foreground “green”))))
(ido-first-match ((t (:bold t :weight ultra-bold))))
(ido-indicator ((t (:background “red” :foreground “yellow” :width condensed))))
(ido-only-match ((t (:foreground “Green” :weight ultra-bold))))
(ido-subdir ((t (:foreground “red”))))
(info-node ((t (:bold t :foreground “green3″ :weight bold))))
(info-xref ((t (:bold t :weight bold :underline t))))
(isearch ((t (:background “magenta3″ :foreground “lightskyblue1″))))
(isearch-secondary ((t (:foreground “red3″))))
(isearch-fail ((t (:background “red” :foreground “black”))))
(italic ((t (:italic t :slant italic))))
(lazy-highlight ((t (:background “paleturquoise”))))
(link ((t (:foreground “blue1″ :underline t))))
(link-visited ((t (:underline t :foreground “magenta4″))))
(linum ((t (:inherit shadow :foreground “DarkGreen” :height 100 :weight normal))))
(match ((t (:background “yellow”))))
(man-bold ((t (:bold t :weight bold))))
(man-heading ((t (:bold t :weight bold))))
(man-italic ((t (:italic t :foreground “MediumBlue”))))
(man-xref ((t (:underline t))))
;; (menu ((t (:foreground “systemmenutext” :background “systemmenu”))))
(message-cited-text-face ((t (:foreground “red”))))
(message-header-cc-face ((t (:bold t :foreground “green4″ :weight bold))))
(message-header-name-face ((t (:foreground “DarkGreen”))))
(message-header-newsgroups-face ((t (:italic t :bold t :foreground “yellow” :slant italic :weight bold))))
(message-header-other-face ((t (:foreground “#b00000″))))
(message-header-subject-face ((t (:foreground “green3″))))
(message-header-to-face ((t (:bold t :foreground “green2″ :weight bold))))
(message-header-xheader-face ((t (:foreground “blue”))))
(message-mml-face ((t (:foreground “ForestGreen”))))
(message-separator-face ((t (:foreground “blue3″))))
(minibuffer-prompt ((t (:foreground “medium blue”))))
(mode-line ((t (:background “wheat” :foreground “black”))))
(mode-line-buffer-id ((t (:background “wheat” :foreground “black”))))
(mode-line-highlight ((t (:box (:line-width 2 :color “grey40″ :style released-button)))))
(mode-line-inactive ((t (:background “grey90″ :foreground “grey20″ :box (:line-width -1 :color “grey75″ :style nil) :weight light))))
(modeline-mousable ((t (:background “wheat” :foreground “black”))))
(modeline-mousable-minor-mode ((t (:background “wheat” :foreground “black”))))
(mouse ((t (:background “black”))))
(next-error ((t (:background “gray80″))))
(nobreak-space ((t (:foreground “brown” :underline t))))
(org-level-1 ((((class color) (min-colors 88) (background wheat)) (:foreground “DarkGreen”))))
(org-level-2 ((((class color) (min-colors 88) (background wheat)) (:foreground “Gray20″))))
(org-level-3 ((((class color) (min-colors 88) (background wheat)) (:foreground “dark blue”))))
(org-level-4 ((((class color) (min-colors 88) (background wheat)) (:foreground “red3″))))
(paren-blink-off ((t (:foreground “gray50″))))
(paren-match ((t (:background “MediumBlue”))))
(paren-mismatch ((t (:background “DeepPink” :foreground “LightSkyBlue”))))
(pointer ((t (nil))))
(primary-selection ((t (:background “DarkBlue” :foreground “Gray80″))))
(query-replace ((t (:foreground “lightskyblue1″ :background “magenta3″))))
(region ((t (:foreground “black” :background “gray80″))))
(scroll-bar ((t (:foreground “systemscrollbar”))))
(secondary-selection ((t (:background “darkslateblue” :foreground “black”))))
(semantic-decoration-on-private-members-face ((t (:background “#8fffff”))))
(semantic-decoration-on-protected-members-face ((t (:background “#fffff8″))))
(semantic-highlight-edits-face ((t (:background “gray90″))))
(semantic-tag-boundary-face ((t (:overline “blue”))))
(semantic-tag-highlight-face ((t (:background “#FFFFAA”))))
(semantic-tag-highlight-start-face ((t (:background “#FFFFAA”))))
(semantic-unmatched-syntax-face ((t (:underline “red”))))
(senator-intangible-face ((t (:foreground “gray25″))))
(senator-momentary-highlight-face ((t (:background “gray70″))))
(senator-read-only-face ((t (:background “#CCBBBB”))))
(shadow ((t (:foreground “grey50″))))
(show-paren-match ((t (:background “DodgerBlue”))))
(show-paren-mismatch ((t (:background “red” :foreground “white”))))
(speedbar-button-face ((t (:foreground “green4″))))
(speedbar-directory-face ((t (:foreground “blue4″))))
(speedbar-file-face ((t (:foreground “cyan4″))))
(speedbar-highlight-face ((t (:background “green”))))
(speedbar-selected-face ((t (:foreground “red” :underline t))))
(speedbar-separator-face ((t (:background “blue” :foreground “white” :overline “gray”))))
(speedbar-tag-face ((t (:foreground “brown”))))
(swbuff-current-buffer-face ((t (:bold t :foreground “red” :underline t :weight bold))))
(swbuff-default-face ((t (nil))))
(swbuff-separator-face ((t (:foreground “blue”))))
(tabbar-button-face ((t (:background “gray72″ :family “helv” :foreground “dark red” :box (:line-width 2 :color “white” :style released-button) :height 0.8))))
(tabbar-default-face ((t (:family “helv” :background “gray72″ :foreground “gray60″ :height 0.8))))
(tabbar-selected-face ((t (:background “gray72″ :family “helv” :foreground “blue” :box (:line-width 2 :color “white” :style released-button) :height 0.8))))
(tabbar-separator-face ((t (:foreground “gray60″ :background “gray72″ :family “helv” :height 0.16000000000000003))))
(tabbar-unselected-face ((t (:foreground “gray60″ :background “gray72″ :family “helv” :box (:line-width 2 :color “white” :style pressed-button) :height 0.8))))
(tool-bar ((t (:background “systembuttonface” :foreground “systembuttontext” :box (:line-width 1 :style released-button)))))
(tooltip ((t (:family “helv” :background “systeminfowindow” :foreground “systeminfotext”))))
(trailing-whitespace ((t (:background “red1″))))
(underline ((t (:underline t))))
(variable-pitch ((t (:family “helv”))))
(vertical-border ((t (nil))))
(which-func ((t (:foreground “DeepSkyBlue4″))))
(widget-button ((t (:bold t :weight bold))))
(widget-button-pressed ((t (:foreground “red1″))))
(widget-documentation ((t (:foreground “dark green”))))
(widget-field ((t (:background “gray85″))))
(widget-inactive ((t (:foreground “grey50″))))
(widget-single-line-field ((t (:background “gray85″))))
(xref-keyword-face ((t (:foreground “blue”))))
(xref-list-default-face ((t (nil))))
(xref-list-pilot-face ((t (:foreground “navy”))))
(xref-list-symbol-face ((t (:foreground “navy”))))))))

(defun color-theme-da-light-blue ()
“Color theme by Da Zhang, created on 20090315.”
(interactive)
(ignore-errors  (color-theme-install
‘(my-color-theme
;; ((background-color . “light goldenrod yellow”)
;; (background-mode . light)
;; (border-color . “black”)
;; (cursor-color . “red”)
;; (foreground-color . “black”)
;; (mouse-color . “black”))
(default ((t (:stipple nil :background “#DCECF5″ :foreground “black” :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal))))
;; (default ((t (:stipple nil :background “gray97″ :foreground “black” :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 120 :width normal :foundry “outline” :family “Andale Mono”))))
;; (default ((t (:stipple nil :background “gray97″ :foreground “black” :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 95 :width normal :foundry “microsoft” :family “Consolas”))))
(company-pseudo-tooltip-selection-face ((t (:inherit company-pseudo-tooltip-face :background “#ff6600″))))
(custom-button ((t (:background “lightgrey” :foreground “black” :box (:line-width 2 :style released-button) :height 90 :family “tahoma”))))
(custom-button-face ((((type x w32 mac) (class color)) (:background “lightgrey” :foreground “black” :box (:line-width 2 :style released-button) :height 1.1 :family “tahoma”))) t)
(custom-button-mouse ((((type x w32 mac) (class color)) (:inherit custom-button :background “grey90″ :foreground “black” :box (:line-width 2 :style released-button)))))
(custom-button-pressed ((((type x w32 mac) (class color)) (:inherit custom-button :background “lightgrey” :foreground “black” :box (:line-width 2 :style pressed-button)))))
(custom-button-pressed-face ((((type x w32 mac) (class color)) (:inherit custom-button-face :box (:line-width 2 :style pressed-button)))) t)
(custom-changed-face ((((class color)) (:inherit custom-documentation-face :background “blue” :foreground “white”))) t)
(custom-comment ((((class grayscale color) (background light)) (:inherit custom-documentation :background “gray85″))))
(custom-comment-face ((((class grayscale color) (background light)) (:inherit custom-documentation-face :background “gray85″))) t)
(custom-comment-tag ((((class color) (background light)) (:inherit custom-documentation :foreground “blue4″))))
(custom-comment-tag-face ((((class color) (background light)) (:inherit custom-documentation-face :foreground “blue4″))) t)
(custom-documentation ((t (:height 90 :family “tahoma”))))
(custom-documentation-face ((t (:family “tahoma”))) t)
(custom-group-tag ((((min-colors 88) (class color) (background light)) (:inherit variable-pitch :foreground “blue1″ :weight bold :height 1.2))))
(custom-group-tag-face ((((class color) (background light)) (:inherit variable-pitch :foreground “red” :weight bold :height 1.2))) t)
(custom-invalid-face ((((class color)) (:inherit custom-documentation-face :background “red” :foreground “yellow”))) t)
(custom-modified-face ((((class color)) (:inherit custom-documentation-face :background “blue” :foreground “white”))) t)
(custom-rogue-face ((((class color)) (:inherit custom-documentation-face :background “black” :foreground “pink”))) t)
(custom-saved-face ((t (:inherit custom-documentation-face :underline t))) t)
(custom-set-face ((((class color)) (:inherit custom-documentation-face :background “white” :foreground “blue”))) t)
(custom-state ((((class color) (background light)) (:inherit custom-documentation :foreground “dark green”))))
(custom-state-face ((((class color) (background light)) (:inherit custom-documentation-face :foreground “dark green”))) t)
(diff-added ((t (:inherit diff-changed :background “#EEFFEE” :foreground “#009900″))))
(diff-changed ((nil (:background “grey95″))))
(diff-context ((((class color grayscale) (min-colors 88)) (:inherit shadow :foreground “#333333″))))
(diff-file-header ((((class color) (min-colors 88) (background light)) (:weight bold))))
(diff-header ((((class color) (min-colors 88) (background light)) (:foreground “#3333FF”))))
(diff-hunk-header ((t (:background “#eeeeee” :weight bold))))
(diff-indicator-added ((t (:inherit diff-added :weight bold))))
(diff-indicator-removed ((t (:inherit diff-removed :weight bold))))
(diff-removed ((t (:inherit diff-changed :background “#FFEEEE” :foreground “#990000″))))
(ecb-default-general-face ((((class color) (background light)) (:height 100 :family “tahoma”))))
(ecb-default-highlight-face ((((class color) (background light)) (:inherit ecb-default-general-face :background “cornflower blue” :foreground “yellow” :family “tahoma”))))
(ecb-tag-header-face ((((class color) (background light)) (:background “SeaGreen1″))))
(ecb-tree-highlight-face ((((class color) (background light)) (:inherit (ecb-default-general-face highlight) :height 1.0))))
(file-name-shadow ((t (:inherit shadow :foreground “grey80″))))
(fixed-pitch ((t nil)))
(flyspell-duplicate ((t (:foreground “Gold3″ :underline t))))
(flyspell-incorrect ((t (:foreground “OrangeRed” :underline t))))
(font-latex-verbatim-face ((((class color) (background light)) (:inherit monotype-courier\ new :foreground “SaddleBrown”))))
(font-latex-math-face ((t (:foreground “burlywood”))))
(font-latex-sedate-face ((t (:foreground “LightGray”))))
(font-lock-comment-delimiter-face ((default (:inherit font-lock-comment-face :slant normal)) (((class color) (min-colors 16)) nil)))
(font-lock-comment-face ((t (:foreground “#0a0″ :slant oblique :height 1.0))))
(font-lock-doc-face ((t (:foreground “#c0c” :slant italic))))
(font-lock-function-name-face ((t (:foreground “Blue” :weight bold))))
(font-lock-keyword-face ((t (:foreground “Purple” :weight bold))))
(font-lock-preprocessor-face ((t (:inherit font-lock-builtin-face :foreground “#999″))))
(font-lock-string-face ((t (:foreground “firebrick” :height 1.0))))
(font-lock-type-face ((t (:foreground “#0a6″))))
(font-lock-warning-face ((((class color) (min-colors 88) (background light)) (:background “yellow” :foreground “Red1″ :slant normal :weight extra-bold))))
(fringe ((((class color) (background light)) (:background “grey96″ :foreground “#112233″))))
(grep-edit-face ((t (:background “#77ff55″ :weight bold))))
(grep-edit-file-face ((t (:background “#77ff55″ :weight bold))))
(highlight ((((class color) (min-colors 88) (background light)) (:background “#FAFABF”))))
(hl-line ((t (:background “#99AABB”))))
(ido-first-match ((t (:inherit font-lock-function-name-face))))
(ido-first-match-face ((t (:inherit font-lock-function-name-face))))
(ido-only-match-face ((((class color)) (:inherit font-lock-comment-face))))
(italic ((t ( :italic t :slant italic))))
(margin-face ((t (:background “red”))) t)
(minibuffer-prompt ((t (:foreground “dark blue”))))
(mode-line ((t (:background “#FFBB44″ :foreground “black” :box (:line-width 3 :color “#FFBB44″)))))
(mode-line-buffer-id ((t (:foreground “#990000″ :weight bold))))
(mode-line-highlight ((((class color) (min-colors 88) (background light)) (:inherit mode-line :background “RoyalBlue4″ :foreground “white” :box (:line-width 2 :color “RoyalBlue4″)))))
(mode-line-inactive ((t (:inherit mode-line :background “grey80″ :foreground “grey20″ :box (:line-width 3 :color “grey80″)))))
(mumamo-background-chunk-major ((t nil)))
(mumamo-background-chunk-submode ((((class color) (min-colors 88) (background light)) (:background “#efefff”))))
(nxml-comment-content-face ((t (:inherit font-lock-comment-face))))
(org-special-keyword ((((class color) (min-colors 16) (background light)) (:foreground “#66aa00″))))
(pesche-tab ((t (:background “red”))))
(py-XXX-tag-face ((t (:background “yellow” :foreground “#f00″))) t)
(py-builtins-face ((t (:inherit font-lock-keyword-face :weight normal))) t)
(py-pseudo-keyword-face ((t (:inherit font-lock-keyword-face :weight normal))) t)
(semantic-dirty-token-face ((((class color) (background light)) (:background “gray96″))))
(semantic-highlight-edits-face ((((class color) (background light)) (:background “gray95″))))
(semantic-unmatched-syntax-face ((((class color) (background light)) (:underline “red”))))
(show-ws-spaces ((((class color)) nil)))
(show-ws-tabs ((((class color)) (:inherit trailing-whitespace))))
(show-ws-unbr-spaces ((((class color)) nil)))
(speedbar-directory-face ((((class color) (background light)) (:inherit speedbar-file-face :foreground “blue4″))))
(speedbar-file-face ((((class color) (background light)) (:foreground “cyan4″ :family “tahoma”))))
(speedbar-highlight-face ((((class color) (background light)) (:inherit speedbar-file-face :background “green”))))
(speedbar-selected-face ((((class color) (background light)) (:inherit speedbar-file-face :foreground “red” :underline t))))
(speedbar-tag-face ((((class color) (background light)) (:inherit speedbar-file-face :foreground “brown”))))
(tabbar-button ((t (:inherit tabbar-default :foreground “dark red”))))
(tabbar-button-highlight ((t (:inherit tabbar-default :background “white” :box (:line-width 2 :color “white”)))))
(tabbar-default ((t (:inherit variable-pitch :background “gray90″ :foreground “gray50″ :box (:line-width 3 :color “gray90″) :height 99))))
(tabbar-highlight ((t (:underline t))))
(tabbar-selected ((t (:inherit tabbar-default :foreground “blue” :weight bold))))
(tabbar-separator ((t (:inherit tabbar-default))))
(tabbar-unselected ((t (:inherit tabbar-default))))
(table-cell-face ((t (:foreground “#0000aa” :inverse-video nil))))
(tool-bar ((default (:foreground “black” :box (:line-width 1 :style released-button))) (((type x w32 mac) (class color)) (:background “grey75″))))
(trailing-whitespace ((((class color) (background light)) (:background “#ffcccc”))))
(trex-unicode-face ((t nil)))
(variable-pitch ((t (:height 105 :family “tahoma”))))
(vline ((t (:inherit highlight))))
(widget-documentation ((((class color) (background light)) (:inherit custom-documentation :foreground “dark green”))))
(woman-addition ((t (:inherit default :foreground “orange”))))
(woman-bold ((((min-colors 88) (background light)) (:inherit default :foreground “blue1″ :weight bold))))
(woman-italic ((((min-colors 88) (background light)) (:inherit default :foreground “red1″ :underline t :slant italic))))
(woman-unknown ((((background light)) (:inherit default :foreground “brown”))))))))

(defun color-theme-da-dark ()
“dark color theme by Da Zhang, created on 20090319.”
(interactive)
(ignore-errors  (color-theme-install
‘(my-color-theme
;; ((foreground-color . “#a9eadf”)
;; (background-color . “black”)
;; (background-mode . dark)
;; (background-toolbar-color . “#cf3ccf3ccf3c”)
;; (border-color . “#000000000000″)
;; (bottom-toolbar-shadow-color . “#79e77df779e7″)
;; (cursor-color . “Red3″)
;; (foreground-color . “honeydew”)
;; (mouse-color . “black”))
(bold ((t (:bold t))))
(bold-italic ((t (:italic t :bold t))))
(border ((t (:background “#000000000000″))))
(border-glyph ((t (nil))))
(default ((t (nil))))
(font-lock-builtin-face ((t (:italic t :foreground “#a96da0″))))
(font-lock-comment-face ((t (:italic t :foreground “#bbbbbb”))))
(font-lock-comment-delimiter-face ((t (:foreground “#666666″))))
(font-lock-constant-face ((t (:bold t :foreground “#197b6e”))))
(font-lock-doc-string-face ((t (:foreground “#3041c4″))))
(font-lock-doc-face ((t (:foreground “gray”))))
(font-lock-reference-face ((t (:foreground “white”))))
(font-lock-function-name-face ((t (:foreground “#356da0″))))
(font-lock-keyword-face ((t (:bold t :foreground “#bcf0f1″))))
(font-lock-preprocessor-face ((t (:foreground “#e3ea94″))))
(font-lock-string-face ((t (:foreground “#ffffff”))))
(font-lock-type-face ((t (:bold t :foreground “#364498″))))
(font-lock-variable-name-face ((t (:foreground “#7685de”))))
(font-lock-warning-face ((t (:bold t :italic nil :underline nil
:foreground “yellow”))))
(fringe ((t (:background “grey10″ :foreground “#112233″))))
(italic ((t ( :italic t :slant italic))))
(hl-line ((t (:background “#112233″))))
(minibuffer-prompt ((t (:foreground “red”))))
(mode-line ((t (:foreground “#ffffff” :background “#333333″))))
(region ((t (:foreground nil :background “#555555″))))
(show-paren-match-face ((t (:bold t :foreground “#ffffff”
:background “#050505″))))))))

(defun da-color-theme (&optional arg)
“Changes color theme to my custom black background theme.
With a prefix arg, changes to my custom white background theme.”
(interactive “P”)
(ignore-errors
(if arg
(color-theme-da-matlab)
(color-theme-da-normal))))
(provide ‘switch-color-theme-matlab-latex)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; switch-color-theme-matlab-latex.el ends here