emacs.d/lisp: added personal color themes

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