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 ------------------------------ emacs.d/lisp/color-themes-alex.elc | Bin 2265 -> 0 bytes emacs.d/lisp/themes/color-themes-alex.el | 71 ++++++++++++++++++++++++++++++ emacs.d/lisp/themes/color-themes-alex.elc | Bin 0 -> 2282 bytes 4 files changed, 71 insertions(+), 71 deletions(-) delete mode 100644 emacs.d/lisp/color-themes-alex.el delete mode 100644 emacs.d/lisp/color-themes-alex.elc create mode 100644 emacs.d/lisp/themes/color-themes-alex.el create mode 100644 emacs.d/lisp/themes/color-themes-alex.elc (limited to 'emacs.d') 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) diff --git a/emacs.d/lisp/color-themes-alex.elc b/emacs.d/lisp/color-themes-alex.elc deleted file mode 100644 index 2a9cae3..0000000 Binary files a/emacs.d/lisp/color-themes-alex.elc and /dev/null differ diff --git a/emacs.d/lisp/themes/color-themes-alex.el b/emacs.d/lisp/themes/color-themes-alex.el new file mode 100644 index 0000000..bbc52c4 --- /dev/null +++ b/emacs.d/lisp/themes/color-themes-alex.el @@ -0,0 +1,71 @@ +;; -*- 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) diff --git a/emacs.d/lisp/themes/color-themes-alex.elc b/emacs.d/lisp/themes/color-themes-alex.elc new file mode 100644 index 0000000..157952e Binary files /dev/null and b/emacs.d/lisp/themes/color-themes-alex.elc differ -- cgit v1.2.3