summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--emacs.d/lisp/color-themes-alex.el71
-rw-r--r--emacs.d/lisp/color-themes-alex.elcbin0 -> 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
new file mode 100644
index 0000000..2a9cae3
--- /dev/null
+++ b/emacs.d/lisp/color-themes-alex.elc
Binary files differ