adding new color scheme.

Signed-off-by: Andreas Gerler <baronNOSPAMbundesbrandschatzamt.de>

diff --git a/bba.org b/bba.org
index f91fc756e7b15b07cb9b5e238df1e29800e9d4c1..5e9befe1b632604dea9fdeb24562fef1f5294a3d 100644 (file)
--- a/bba.org
+++ b/bba.org
@@ -1632,6 +1632,32 @@ Some nice functions
 
 
 
+#+END_SRC
+
+*** set theme bba1
+
+#+BEGIN_SRC emacs-lisp
+  (deftheme bba1 "DOCSTRING for bba1")
+    (custom-theme-set-faces 'bba1
+     '(default ((t (:foreground "#07e30d" :background "#282828" ))))
+     '(cursor ((t (:background "#f09213" ))))
+     '(fringe ((t (:background "#131313" ))))
+     '(mode-line ((t (:foreground "#282828" :background "#d96503" ))))
+     '(region ((t (:background "#7a7674" ))))
+     '(secondary-selection ((t (:background "#584e47" ))))
+     '(font-lock-builtin-face ((t (:foreground "#fe8019" ))))
+     '(font-lock-comment-face ((t (:foreground "#df7114" ))))
+     '(font-lock-function-name-face ((t (:foreground "#b8bb26" ))))
+     '(font-lock-keyword-face ((t (:foreground "#fb4934" ))))
+     '(font-lock-string-face ((t (:foreground "#b8bb26" ))))
+     '(font-lock-type-face ((t (:foreground "#d3869b" ))))
+     '(font-lock-constant-face ((t (:foreground "#d3869b" ))))
+     '(font-lock-variable-name-face ((t (:foreground "#83a598" ))))
+     '(minibuffer-prompt ((t (:foreground "#b8bb26" :bold t ))))
+     '(font-lock-warning-face ((t (:foreground "red" :bold t ))))
+     )
+  (provide-theme 'bba1)
+
 #+END_SRC
 
 *** load custom file

diff --git a/custom.el b/custom.el
index 4316c88489b09f10a339b171777ec0db20813a49..1684c4443bb111be59bb325e5af7acd2b62bdf15 100644 (file)
--- a/custom.el
+++ b/custom.el
@@ -4,6 +4,7 @@
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
  '(blink-cursor-mode t)
+ '(custom-safe-themes (quote ("8db4b03b9ae654d4a57804286eb3e332725c84d7cdab38463cb6b97d5762ad26" default)))
  '(gnuserv-program (concat exec-directory "/gnuserv"))
  '(history-length 1000)
  '(magit-commit-signoff t)
@@ -15,24 +16,6 @@
  '(template-default-directories (quote ("~/.emacs.d/templates/")))
  '(toolbar-visible-p nil)
  '(vc-handled-backends (quote (RCS CVS SVN SCCS Bzr Hg Mtn Arch))))
-(custom-set-faces
- ;; custom-set-faces was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
- '(default ((t (:inherit nil :stipple nil :background "black" :foreground "green" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 1 :width normal :foundry "default" :family "default"))))
- '(cursor ((t (:foreground "red"))))
- '(helm-selection ((((background dark)) (:background "white" :distant-foreground "black")) (((background light)) (:background "#b5ffd1" :distant-foreground "black"))))
- '(rainbow-delimiters-depth-1-face ((((background dark)) (:foreground "gray90"))))
- '(rainbow-delimiters-depth-2-face ((((background dark)) (:foreground "#ff82ab"))))
- '(rainbow-delimiters-depth-3-face ((((background dark)) (:foreground "#66ffff"))))
- '(rainbow-delimiters-depth-4-face ((((background dark)) (:foreground "#ffa500"))))
- '(rainbow-delimiters-depth-5-face ((((background dark)) (:foreground "white"))))
- '(rainbow-delimiters-depth-6-face ((((background dark)) (:foreground "#12bdbd"))))
- '(rainbow-delimiters-depth-7-face ((((background dark)) (:foreground "#ff826b"))))
- '(rainbow-delimiters-depth-8-face ((((background dark)) (:foreground "#004c00"))))
- '(rainbow-delimiters-depth-9-face ((((background dark)) (:foreground "blue"))))
- '(tool-bar ((t (:background "Gray80" :size "8")))))
 (defcustom sql-mysql-program "/usr/local/mysql/bin/mysql"
 "*Command to start mysql by mysqlDB."
 :type 'file