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

5 thoughts on “switch-color-theme-matlab-latex.el

  1. Hello Da,

    I am newbie to emacs. I like your color theme very much and use it for my everyday programming and editing. But I get the following messages all the time:

    Unable to load color “systemscrollbar”
    Unable to load color “systemmenutext”
    Unable to load color “systemmenu”

    I don’t know how to deal with them. Any suggestion? Thanks a lot!

    • Hi Tan,

      You can search the in file “switch-color-theme-matlab-latex.el”, and remove the lines containing “systemscrollbar”, “systemmenutext”, and “systemmenu”. Basically the reason is I am using Emacs in Windows, and these symbols are native for a windows environment, and the lines makes the scrollbar, menu, and menutext similar to the general settings in Windows . For Mac, you can remove these lines or change the colors according to your preference.

  2. i cant seem to get this working on a Windows Vista machine … im new to emacs (only a week into it!), largely want to use it as a basic word processor/basic coding environment …

    i can use emacs alright,

    but this color themes thing is doing my head in

    i followed the three steps,

    i think my problem is not having the color-theme.el file in the right place =/ … can load path be defined in any other way … perhaps an example …

    at the moment i have C:\emacs … is the folder where the program is installed at

    considering ive added the require code to emacs.el

    any help would be appreciated

    • Hi Aaron,

      Here is my setting:

      I put the switch-color-theme-matlab-latex.el in C:/Emacs/site-lisp/, and put the following lines in .emacs file in in my home path, which you can set it by the environment variable “HOME”

      ;; Call function da-color-theme to change to the dark face, and call C-u da-color-theme for the yellow background face.
      (require ‘switch-color-theme-matlab-latex) ;; load the theme
      (global-set-key [f6] ‘da-color-theme) ;; I prefer to use f6 to change to my dark theme, and use C-u f6 to change to the matlab-like theme

      (da-color-theme) ; select my own my dark theme as default

      I will upload my new version of the color theme soon.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s