Download
(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 "light goldenrod yellow" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 130 :width normal :family "outline-andale mono"))))
(bold ((t (:bold t :background "grey40" :foreground "yellow" :weight bold))))
(bold-italic ((t (:italic t :bold t :foreground "yellow green" :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 (:family "outline-andale mono" :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 (:background "red"))))
(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"))))
(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 extra-bold))))
(font-lock-type-face ((t (:foreground "dark blue" :weight bold))))
(font-lock-variable-name-face ((t (:bold t :foreground "saddle brown" :weight ultra-bold))))
(font-lock-warning-face ((t (:bold t :foreground "Pink" :weight extra-bold))))
(fringe ((t (:background "grey95"))))
(header-line ((t (:background "grey90" :foreground "grey20" :box nil))))
(help-argument-name ((t (nil))))
(highlight ((t (:background "black" :foreground "burlywood"))))
(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))))
(isearch ((t (:background "magenta3" :foreground "lightskyblue1"))))
(italic ((t (:italic t :foreground "yellow3" :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 (:foreground "MediumBlue"))))
(man-xref ((t (:underline t))))
(menu ((t (:foreground "systemmenu" :background "systemmenutext"))))
(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))))
(query-replace ((t (:foreground "lightskyblue1" :background "magenta3"))))
(region ((t (: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 "turquoise"))))
(show-paren-mismatch ((t (:background "purple" :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-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")
(top-toolbar-shadow-color . "#fffffbeeffff"))
(default ((t (:stipple nil :background "black" :foreground "honeydew3" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 130 :width normal :family "outline-andale mono"))))
(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 :foreground "yellow" :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 (:family "outline-andale mono" :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))))
(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 "blue" :underline t))))
(custom-group-tag-1 ((t (:foreground "red" :underline t))))
(custom-group-tag-face ((t (:foreground "blue" :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 "blue" :underline t))))
(custom-variable-tag-face ((t (:foreground "blue" :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"))))
(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))))
(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" ))))
(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))))
(fringe ((t (:background "grey10"))))
(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 "darkseagreen2" :foreground "blue"))))
(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))))
(isearch ((t (:background "paleturquoise" :foreground "dark red"))))
(isearch-secondary ((t (:foreground "red3"))))
(italic ((t (:bold t :foreground "yellow" :weight bold))))
(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"))))
(man-xref ((t (:underline t))))
(match ((t (:background "RoyalBlue3"))))
(menu ((t (:foreground "systemmenu" :background "systemmenutext"))))
(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 (nil))))
(mode-line-buffer-id ((t (:background "Gray80" :foreground "blue4"))))
(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" :weight bold))))
(org-level-3 ((((class color) (min-colors 88) (background dark)) (:foreground "Green2" :weight normal))))
(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 (:background "gray65" :foreground "DarkBlue"))))
(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 "steelblue3"))))
(show-paren-mismatch ((t (:background "purple" :foreground "white"))))
(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-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))))
(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 "gray85" :foreground "black"))))
(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"))))))))
(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)