color-theme-dark-vee.el

   1
   2 (defun color-theme-dark-vee ()
   3   "Color theme by vic, created 2006-05-05."
   4   (interactive)
   5   (color-theme-install
   6    '(color-theme-dark-vee
   7      ((background-color . "#000200")
   8       (background-mode . dark)
   9       (border-color . "black")
  10       (cursor-color . "cyan")
  11       (foreground-color . "navajo white")
  12       (mouse-color . "cyan")
  13       (viper-saved-cursor-color-in-replace-mode . "cyan"))
  14      ((goto-address-mail-face . italic)
  15       (goto-address-mail-mouse-face . secondary-selection)
  16       (goto-address-url-face . bold)
  17       (goto-address-url-mouse-face . highlight)
  18       (list-matching-lines-buffer-name-face . underline)
  19       (list-matching-lines-face . match)
  20       (rmail-highlight-face . rmail-highlight)
  21       (view-highlight-face . highlight)
  22       (widget-mouse-face . highlight))
  23      (default ((t (:stipple nil :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 116 :width normal :family "adobe-courier"))))
  24      (Buffer-menu-buffer-face ((t (:bold t :weight bold))))
  25      (bold ((t (:bold t :weight bold))))
  26      (bold-italic ((t (:italic t :bold t :slant italic :weight bold))))
  27      (border ((t (:background "black"))))
  28      (buffer-menu-buffer ((t (:bold t :weight bold))))
  29      (button ((t (:underline t))))
  30      (c-nonbreakable-space-face ((t (:background "red2" :box (:line-width 1 :color "red4")))))
  31      (comint-highlight-input ((t (:bold t :weight bold))))
  32      (comint-highlight-prompt ((t (:foreground "cyan1"))))
  33      (completions-common-part ((t (:stipple nil :background "#000800" :foreground "navajo white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width semi-condensed :family "misc-fixed"))))
  34      (completions-first-difference ((t (:bold t :foreground "aquamarine" :weight bold))))
  35      (cursor ((t (:background "cyan"))))
  36      (custom-button ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
  37      (custom-button-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style released-button)))))
  38      (custom-button-mouse ((t (:background "grey90" :foreground "black" :box (:line-width 2 :style released-button)))))
  39      (custom-button-pressed ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
  40      (custom-button-pressed-face ((t (:background "lightgrey" :foreground "black" :box (:line-width 2 :style pressed-button)))))
  41      (custom-button-pressed-unraised ((t (:underline t :foreground "violet"))))
  42      (custom-button-unraised ((t (:underline t))))
  43      (custom-changed ((t (:background "blue1" :foreground "white"))))
  44      (custom-changed-face ((t (:background "blue1" :foreground "white"))))
  45      (custom-comment ((t (:background "dim gray"))))
  46      (custom-comment-face ((t (:background "dim gray"))))
  47      (custom-comment-tag ((t (:foreground "gray80"))))
  48      (custom-comment-tag-face ((t (:foreground "gray80"))))
  49      (custom-documentation ((t (nil))))
  50      (custom-documentation-face ((t (nil))))
  51      (custom-face-tag ((t (:bold t :family "helv" :weight bold :height 1.2))))
  52      (custom-face-tag-face ((t (:bold t :family "helv" :weight bold :height 1.2))))
  53      (custom-group-tag ((t (:bold t :foreground "light blue" :weight bold :height 1.2))))
  54      (custom-group-tag-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2))))
  55      (custom-group-tag-face ((t (:bold t :foreground "light blue" :weight bold :height 1.2))))
  56      (custom-group-tag-face-1 ((t (:bold t :family "helv" :foreground "pink" :weight bold :height 1.2))))
  57      (custom-invalid ((t (:background "red1" :foreground "yellow1"))))
  58      (custom-invalid-face ((t (:background "red1" :foreground "yellow1"))))
  59      (custom-link ((t (:underline t :foreground "cyan1"))))
  60      (custom-modified ((t (:background "blue1" :foreground "white"))))
  61      (custom-modified-face ((t (:background "blue1" :foreground "white"))))
  62      (custom-rogue ((t (:background "black" :foreground "pink"))))
  63      (custom-rogue-face ((t (:background "black" :foreground "pink"))))
  64      (custom-saved ((t (:underline t))))
  65      (custom-saved-face ((t (:underline t))))
  66      (custom-set ((t (:background "white" :foreground "blue1"))))
  67      (custom-set-face ((t (:background "white" :foreground "blue1"))))
  68      (custom-state ((t (:foreground "lime green"))))
  69      (custom-state-face ((t (:foreground "lime green"))))
  70      (custom-themed ((t (:background "blue1" :foreground "white"))))
  71      (custom-variable-button ((t (:bold t :underline t :weight bold))))
  72      (custom-variable-button-face ((t (:bold t :underline t :weight bold))))
  73      (custom-variable-tag ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2))))
  74      (custom-variable-tag-face ((t (:bold t :family "helv" :foreground "light blue" :weight bold :height 1.2))))
  75      (elscreen-tab-background-face ((t (:background "Gray50"))))
  76      (elscreen-tab-current-screen-face ((t (:background "white" :foreground "black"))))
  77      (elscreen-tab-other-screen-face ((t (:background "Gray85" :foreground "Gray50"))))
  78      (escape-glyph ((t (:foreground "cyan"))))
  79      (file-name-shadow ((t (:foreground "grey70"))))
  80      (fixed-pitch ((t (:family "courier"))))
  81      (font-lock-builtin-face ((t (:foreground "DarkSeaGreen2"))))
  82      (font-lock-comment-delimiter-face ((t (:italic t :foreground "DarkOrange" :slant oblique :family "lucida"))))
  83      (font-lock-comment-face ((t (:foreground "Azure3" :family "clean"))))
  84      (font-lock-constant-face ((t (:foreground "Aquamarine"))))
  85      (font-lock-doc-face ((t (:foreground "AntiqueWhite4" :family "clean"))))
  86      (font-lock-doc-string-face ((t (:foreground "AntiqueWhite3" :family "clean"))))
  87      (font-lock-function-name-face ((t (:foreground "Aquamarine" :width ultra-condensed))))
  88      (font-lock-keyword-face ((t (:foreground "salmon" :family "clean"))))
  89      (font-lock-negation-char-face ((t (nil))))
  90      (font-lock-preprocessor-face ((t (:foreground "peru" :width condensed))))
  91      (font-lock-regexp-grouping-backslash ((t (:bold t :weight bold))))
  92      (font-lock-regexp-grouping-construct ((t (:bold t :weight bold))))
  93      (font-lock-string-face ((t (:foreground "sandybrown"))))
  94      (font-lock-type-face ((t (:foreground "PaleGreen1"))))
  95      (font-lock-variable-name-face ((t (:foreground "Aquamarine" :weight ultra-light))))
  96      (font-lock-warning-face ((t (:foreground "red2" :box (:line-width 1 :color "red4")))))
  97      (fringe ((t (:italic t :background "#000800" :foreground "DarkSeaGreen2" :slant oblique :family "times"))))
  98      (header-line ((t (:box (:line-width 1 :style released-button)))))
  99      (help-argument-name ((t (:italic t :slant italic))))
 100      (highlight ((t (:background "darkolivegreen"))))
 101      (ido-first-match ((t (:bold t :weight bold))))
 102      (ido-first-match-face ((t (:bold t :weight bold))))
 103      (ido-incomplete-regexp ((t (:box (:line-width 1 :color "red4") :foreground "red2"))))
 104      (ido-indicator ((t (:background "red1" :foreground "yellow1" :width condensed))))
 105      (ido-indicator-face ((t (:foreground "yellow" :width condensed))))
 106      (ido-only-match ((t (:foreground "ForestGreen"))))
 107      (ido-only-match-face ((t (:foreground "green"))))
 108      (ido-subdir ((t (:foreground "red1"))))
 109      (ido-subdir-face ((t (:foreground "turquoise"))))
 110      (isearch ((t (:italic t :background "DarkOliveGreen4" :foreground "DarkOliveGreen2" :slant oblique))))
 111      (italic ((t (:italic t :slant italic))))
 112      (lazy-highlight ((t (:background "DarkSeaGreen4" :foreground "DarkSeaGreen2"))))
 113      (link ((t (:foreground "cyan1" :underline t))))
 114      (link-visited ((t (:underline t :foreground "violet"))))
 115      (match ((t (:background "RoyalBlue4"))))
 116      (menu ((t (nil))))
 117      (minibuffer-prompt ((t (:italic t :foreground "pale green" :slant oblique :family "times"))))
 118      (mode-line ((t (:background "#000800" :foreground "#9CCF5A" :overline "#182410" :underline "#182410" :family "clean"))))
 119      (mode-line-highlight ((t (:background "light sky blue" :foreground "black" :family "clean"))))
 120      (mode-line-inactive ((t (:background "#000500" :foreground "#5A6929" :family "clean"))))
 121      (mode-line-buffer-id ((t (:family "clean" :weight bold :slant oblique))))
 122      (mouse ((t (:background "plum3" :slant oblique :family "times"))))
 123      (next-error ((t (:background "blue3"))))
 124      (nobreak-space ((t (:foreground "cyan" :underline t))))
 125      (paren-face-match ((t (:background "turquoise"))))
 126      (paren-face-mismatch ((t (:background "purple" :foreground "white"))))
 127      (paren-face-no-match ((t (:background "yellow" :foreground "black"))))
 128      (query-replace ((t (:italic t :background "DarkOliveGreen4" :foreground "DarkOliveGreen2" :slant oblique))))
 129      (region ((t (:background "blue3"))))
 130      (scroll-bar ((t (:background "grey75" :foreground "#cccccc"))))
 131      (secondary-selection ((t (:background "SkyBlue4"))))
 132      (semantic-dirty-token-face ((t (:background "#151C0E"))))
 133      (shadow ((t (:foreground "grey70"))))
 134      (show-paren-match ((t (:background "steelblue3"))))
 135      (show-paren-mismatch ((t (:background "purple" :foreground "white"))))
 136      (strokes-char ((t (:background "lightgray"))))
 137      (tool-bar ((t (:background "grey75" :foreground "black" :box (:line-width 1 :style released-button)))))
 138      (tooltip ((t (:background "lightyellow" :foreground "black" :family "helv"))))
 139      (trailing-whitespace ((t (:strike-through "#2A391C"))))
 140      (underline ((t (:underline t))))
 141      (variable-pitch ((t (:family "helv"))))
 142      (vertical-border ((t (nil))))
 143      (viper-insert-face ((t (:background "#263319"))))
 144      (viper-minibuffer-emacs ((t (:family "clean"))))
 145      (viper-minibuffer-emacs-face ((t (:family "clean"))))
 146      (viper-minibuffer-insert-face ((t (:background "pink" :foreground "Black"))))
 147      (viper-minibuffer-vi-face ((t (:background "grey" :foreground "DarkGreen"))))
 148      (viper-replace-overlay-face ((t (:background "darkseagreen2" :foreground "Black"))))
 149      (viper-search-face ((t (:background "khaki" :foreground "Black"))))
 150      (w3m-anchor-face ((t (:foreground "#96CD66" :weight ultra-light))))
 151      (w3m-arrived-anchor-face ((t (:foreground "#96CD66" :underline t :weight ultra-light))))
 152      (w3m-form-face ((t (:foreground "DarkSlateGray4" :underline t))))
 153      (w3m-tab-background-face ((t (:stipple nil :background "#000800" :foreground "navajo white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :width semi-condensed :family "misc-fixed"))))
 154      (w3m-tab-selected-face ((t (:background "#1C2613" :foreground "#6B9047"))))
 155      (w3m-tab-selected-retrieving-face ((t (:background "#1C2613" :foreground "#6B9047" :underline "green"))))
 156      (w3m-tab-unselected-face ((t (:background "#001600" :foreground "#384A24"))))
 157      (w3m-tab-unselected-retrieving-face ((t (:background "#001600" :foreground "#384A24" :underline "Green3"))))
 158      (widget-button ((t (:bold t :weight bold))))
 159      (widget-button-pressed ((t (:foreground "red1"))))
 160      (widget-documentation ((t (:foreground "lime green"))))
 161      (widget-field ((t (:background "dim gray"))))
 162      (widget-inactive ((t (:foreground "light gray"))))
 163      (widget-single-line-field ((t (:background "dim gray"))))
 164      (wn-modeline-face ((t (:family "clean" :foreground "#9CCF5A" :background "#101810" :box (:line-width 1 :color "#030803" :style pressed-button))))))))
 165
 166 (defalias 'vee/color-theme-dark-vee #'color-theme-dark-vee)
 167 (provide 'vee/color-theme-dark-vee)