diff options
| -rw-r--r-- | emacs.d/lisp/color-themes-alex.el | 71 | ||||
| -rw-r--r-- | emacs.d/lisp/color-themes-alex.elc | bin | 0 -> 2265 bytes |
2 files changed, 71 insertions, 0 deletions
diff --git a/emacs.d/lisp/color-themes-alex.el b/emacs.d/lisp/color-themes-alex.el new file mode 100644 index 0000000..bbc52c4 --- /dev/null +++ b/emacs.d/lisp/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/color-themes-alex.elc b/emacs.d/lisp/color-themes-alex.elc Binary files differnew file mode 100644 index 0000000..2a9cae3 --- /dev/null +++ b/emacs.d/lisp/color-themes-alex.elc |