From 8a6be64e30f656a9d3ec0c65e39f7ad4d8ce3f84 Mon Sep 17 00:00:00 2001 From: Alexander Sulfrian Date: Wed, 25 Apr 2012 01:03:42 +0200 Subject: emacs.d/lisp: fix color-themes setup --- emacs.d/lisp/color-themes-alex.el | 71 --------------------------------------- 1 file changed, 71 deletions(-) delete mode 100644 emacs.d/lisp/color-themes-alex.el (limited to 'emacs.d/lisp/color-themes-alex.el') diff --git a/emacs.d/lisp/color-themes-alex.el b/emacs.d/lisp/color-themes-alex.el deleted file mode 100644 index bbc52c4..0000000 --- a/emacs.d/lisp/color-themes-alex.el +++ /dev/null @@ -1,71 +0,0 @@ -;; -*- self-compile-mode: t -*- - -(eval-when-compile - (require 'color-theme)) - -(defun color-theme-alex () - "Color theme by Alexander Sulfrian, created 2012-03-14." - (interactive) - (color-theme-install - '(color-theme-alex - ((foreground-color . "grey90") - (background-color . "black") - (background-mode . dark)) - (default ((t (:height 79)))) - (border ((t (:background "gray50")))) - (fixed-pitch ((t (:family "terminus")))) - (font-lock-comment-face ((nil (:foreground "green3")))) - (font-lock-constant-face ((nil (:weight bold)))) - (font-lock-negation-char-face ((t (:foreground "red" :weight bold)))) - (font-lock-preprocessor-face ((t (:inherit font-lock-builtin-face :foreground "magenta")))) - (font-lock-string-face ((nil (:foreground "red2")))) - (font-lock-warning-face ((t (:foreground "Red" :weight bold)))) - (highlight ((nil (:background "grey10")))) - (linum ((t (:background "gray10" :foreground "gray50" :box nil :overline nil :underline nil :slant normal :weight normal :height 0.75 :width normal)))) - (mode-line ((t (:box (:line-width 1 :color "grey75"))))) - (mode-line-highlight ((((class color) (min-colors 88)) (:box (:line-width 2 :color "grey40" :style released-button))))) - (mode-line-inactive ((default (:inherit mode-line :foreground "gray60")) (nil nil))) - (region ((((class color) (min-colors 88) (background dark)) (:inverse-video t)))) - (scroll-bar ((t (:background "black" :foreground "gray25"))))))) - -;; '(custom-face-tag ((t (:weight bold)))) -;; '(custom-group-tag ((((min-colors 88) (class color) (background light)) (:foreground "blue1" :weight bold)))) -;; '(custom-group-tag-1 ((((min-colors 88) (class color) (background light)) (:foreground "red1" :weight bold :height 1.2)))) -;; '(custom-variable-tag ((((min-colors 88) (class color) (background light)) (:foreground "blue1" :weight bold)))) -;; '(fringe ((((class color) (background light)) (:background "gray80")))) -;; '(isearch ((((class color) (min-colors 88) (background dark)) (:background "yellow3" :foreground "black" :weight bold)))) -;; '(italic ((((supports :underline t)) (:underline t)))) -;; '(link ((((class color) (min-colors 88) (background dark)) (:foreground "cyan1" :underline t)))) -;; '(linum ((t (:background "gray10" :foreground "gray50" :box nil :overline nil :underline nil :slant normal :weight normal :height 0.75 :width normal)))) -;; '(menu ((t nil))) -;; '(mumamo-background-chunk-major ((((class color) (min-colors 88) (background light)) nil))) -;; '(mumamo-background-chunk-submode ((((class color) (min-colors 88) (background light)) nil))) -;; '(newsticker-immortal-item-face ((t (:foreground "blue" :slant italic :weight bold)))) -;; '(newsticker-new-item-face ((t (:weight bold)))) -;; '(newsticker-obsolete-item-face ((t (:strike-through t :weight bold)))) -;; '(newsticker-old-item-face ((t (:foreground "red4" :weight bold)))) -;; '(shadow ((((class color grayscale) (min-colors 88) (background dark)) (:foreground "grey50")))) -;; '(sml-modeline-end-face ((t (:inherit modeline)))) -;; '(sml-modeline-vis-face ((t (:background "gray30")))) -;; '(tooltip ((t (:background "lightyellow" :foreground "black")))) -;; '(variable-pitch ((t (:family "terminus")))) -;; '(vhdl-font-lock-attribute-face ((((class color) (background light)) (:foreground "Orchid")))) -;; '(vhdl-font-lock-directive-face ((((class color) (background light)) (:foreground "cyan3")))) -;; '(vhdl-font-lock-prompt-face ((t (:foreground "Red")))) -;; '(vhl/default-face ((t (:inherit secondary-selection :background "darkred")))) -;; '(widget-button ((t (:background "grey75" :foreground "black" :box (:line-width 2 :color "grey75" :style released-button))))) -;; '(widget-field ((t (:background "gray85" :foreground "black")))) -;; '(widget-single-line-field ((t (:background "gray85"))))) - -(defun color-theme-alex-console () - "Color theme by Alexander Sulfrian for console, created 2012-03-14." - (interactive) - (color-theme-alex) - (let ((color-theme-is-cumulative t)) - (color-theme-install - '(color-theme-alex-console - ((foreground-color . "white")) - (default ((t (:height 0.75)))) - (region ((nil (:inverse-video t)))))))) - -(provide 'color-themes-alex) -- cgit v1.2.3