Last major edit (later minor edits)
Summary: use correct library name (replacing SwitchColorThemeMatlabLatex)
No diff available.;;; switch-color-theme-matlab-latex.el --- color themes for matlab ;; Filename: switch-color-theme-matlab-latex.el ;; Author: Da Zhang ;; Created: Wed Jan 16 13:06:57 2008 Update #: 8 ;; 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) ;;; Code: (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) ;;; switch-color-theme-matlab-latex.el ends here