Merge branch 'master' of ssh://repo.or.cz/srv/git/Worg
[Worg.git] / color-themes / color-theme-railscast.el
blobe69fe0cc9297a6c22a2292f31813233e6418e9f1
1 ;; Railscasts color theme for Emacs.
2 ;;
3 ;; To use add the following to your .emacs file:
4 ;;
5 ;; (require 'color-theme)
6 ;; (color-theme-initialize)
7 ;; (load-file "~/.emacs.d/site-lisp/themes/color-theme-railscasts.el")
8 ;; (color-theme-railscasts)
9 ;;
10 ;; MIT License Copyright (c) 2009 Oleg Shaldybin <oleg.shaldybin@gmail.com>
11 ;; Inspired by the brilliant Railscasts theme for TextMate
14 (defun color-theme-railscasts ()
15 (interactive)
16 (color-theme-install
17 '(color-theme-railscasts
18 ((background-color . "#232323")
19 (background-mode . dark)
20 (cursor-color . "#5A647E")
21 (foreground-color . "#E6E1DC"))
22 (default ((t (nil))))
23 (bold ((t (:bold t))))
24 (bold-italic ((t (:italic t :bold t))))
25 (fringe ((t (:background "#232323"))))
26 (font-lock-builtin-face ((t (:foreground "#D0D0FF"))))
27 (font-lock-comment-face ((t (:foreground "#BC9458" :italic t))))
28 (font-lock-constant-face ((t (:foreground "#6D9CBE"))))
29 (font-lock-doc-string-face ((t (:foreground "#A5C261"))))
30 (font-lock-function-name-face ((t (:foreground "#FFC66D"))))
31 (font-lock-keyword-face ((t (:foreground "#CC7833"))))
32 (font-lock-preprocessor-face ((t (:foreground "#CC7833"))))
33 (font-lock-reference-face ((t (:foreground "LightSteelBlue"))))
34 (font-lock-string-face ((t (:foreground "#A5C261"))))
35 (font-lock-type-face ((t (:foreground "white"))))
36 (font-lock-variable-name-face ((t (:foreground "LightSteelBlue"))))
37 (font-lock-warning-face ((t (:foreground "Pink"))))
38 (paren-face-match-light ((t (:foreground "#FFC66D" :background "#555577"))))
39 (highlight ((t (:background "darkolivegreen"))))
40 (italic ((t (:italic t))))
41 (modeline ((t (:background "#A5BAF1" :foreground "black"))))
42 (modeline-buffer-id ((t (:background "#A5BAF1" :foreground
43 "black"))))
44 (modeline-mousable ((t (:background "#A5BAF1" :foreground
45 "black"))))
46 (modeline-mousable-minor-mode ((t (:background
47 "#A5BAF1" :foreground "black"))))
48 (region ((t (:background "#555577"))))
49 (primary-selection ((t (:background "#555577"))))
50 (isearch ((t (:background "#555555"))))
51 (zmacs-region ((t (:background "#555577"))))
52 (secondary-selection ((t (:background "darkslateblue"))))
53 (flymake-errline ((t (:background "LightSalmon" :foreground
54 "black"))))
55 (flymake-warnline ((t (:background "LightSteelBlue" :foreground
56 "black"))))
57 (underline ((t (:underline t))))
58 (minibuffer-prompt ((t (:bold t :foreground "#FF6600"))))
59 ;; two org-mode faces
60 (org-document-info-keyword ((t (:foreground "#BC9458" :bold t))))
61 (org-document-title ((t (:foreground "#BC9458" :bold t))))
62 )))