Some org-bable config

2 files changed, 81 insertions, 0 deletions

diff --git a/lisp/themes/color-themes-alex.el b/lisp/themes/color-themes-alex.el
new file mode 100644
index 0000000..3f3795b
--- /dev/null
+++ b/lisp/themes/color-themes-alex.el
@@ -0,0 +1,48 @@
+;; -*- 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))
+     (border ((t (:background "gray50"))))
+     (diff-removed ((t (:inherit diff-changed :foreground "red3"))))
+     (diff-added ((t (:inherit diff-changed :foreground "Lime green"))))
+     (diff-header ((t (:weight bold :background nil))))
+     (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))))
+     (fringe ((t (:background "gray10"))))
+     (highlight ((nil (:background "grey10"))))
+     (linum ((t (:background "gray10" :foreground "gray50" :height 0.8))))
+     (magit-item-highlight ((t (:background "gray10"))))
+     (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")))))))
+
+(defun color-theme-alex-console ()
+  "Color theme by Alexander Sulfrian for console, created 2012-03-14."
+  (interactive)
+  (color-theme-alex)
+  (color-theme-install
+   '(color-theme-alex-console
+     ()
+     (default ((t (:background nil :foreground "white"))))
+     (linum ((t (:background   nil :foreground "white" :box nil
+                 :strike-through nil :overline nil :underline nil
+                 :slant normal :weight normal))))
+     (region ((nil (:inverse-video t)))))))
+
+(provide 'color-themes-alex)
diff --git a/lisp/themes/color-themes-monokai-alex.el b/lisp/themes/color-themes-monokai-alex.el
new file mode 100644
index 0000000..21bc4c3
--- /dev/null
+++ b/lisp/themes/color-themes-monokai-alex.el
@@ -0,0 +1,33 @@
+;; -*- self-compile-mode: t -*-
+
+(eval-when-compile
+  (require 'color-theme))
+
+(defun color-theme-monokai-alex ()
+  "Color theme by Alexander Sulfrian base on monokai"
+  (interactive)
+  (color-theme-monokai)
+  (let ((color-theme-is-cumulative t))
+    (color-theme-install
+     '(color-theme-monokai-alex
+       ((background-color . "black")
+        (background-mode . dark))
+       (font-lock-keyword-face ((t (:foreground "#66D9EF"))))
+       (font-lock-type-face ((t (:weight bold :slant italic :foreground "#66D9EF"))))
+       (linum ((t (:height 0.8 :inherit (default)))))
+       (scroll-bar ((t (:foreground "gray20" :background "black"))))
+
+       (mode-line  ((((class color) (min-colors 88))
+                     (:foreground "black" :background "grey75")
+                     (t (:inverse-video t)))))
+       (mode-line-inactive (((default
+                               (:inherit (mode-line)))
+                             (((class color) (min-colors 88)
+                               (background light))
+                              (:background "grey90" :foreground "grey20"))
+                             (((class color) (min-colors 88)
+                               (background dark))
+                              (:background "grey30" :foreground "grey80")))))
+       ))))
+
+(provide 'color-themes-monokai-alex)