1 ;; Twilight Colour Theme for Emacs.

     2 ;;

     3 ;; Defines a colour scheme resembling that of the original TextMate Twilight colour theme.

     4 ;; To use add the following to your .emacs file (requires the color-theme package):

     5 ;;

     6 ;; (require 'color-theme)

     7 ;; (color-theme-initialize)

     8 ;; (load-file "~/.emacs.d/twilight-emacs/color-theme-twilight.el")

     9 ;;

    10 ;; And then (color-theme-twilight) to activate it.

    11 ;;

    12 ;; Several areas still require improvement such as recognition of code that ruby-mode doesn't

    13 ;; yet pick up (eg. parent classes), Rails/Merb keywords, or non Ruby code related areas

    14 ;; (eg. dired, HTML, etc). Please feel free to customize further and send in any improvements,

    15 ;; patches most welcome.

    16 ;;

    17 ;; MIT License Copyright (c) 2008 Marcus Crafter <[email protected]>

    18 ;; Credits due to the excellent TextMate Twilight theme

    19 ;;

    20 ;; Thanks to Travis Jeffery for ido-mode and fixes to the minibuffer-prompt to fit in with the rest of the theme

    21 ;;

    22 

    23 (defun color-theme-twilight ()

    24   "Color theme by Marcus Crafter, based off the TextMate Twilight theme, created 2008-04-18"

    25   (interactive)

    26   (color-theme-install

    27 	'(color-theme-twilight

    28 	  ((background-color . "#141414")

    29 		(background-mode . dark)

    30 		(border-color . "black")

    31 		(cursor-color . "#A7A7A7")

    32 		(foreground-color . "#F8F8F8")

    33 		(mouse-color . "sienna1"))

    34 	  (default ((t (:background "#141414" :foreground "#CACACA"))))

    35 	  (blue ((t (:foreground "blue"))))

    36 	  (border-glyph ((t (nil))))

    37 	  (buffers-tab ((t (:background "#141414" :foreground "#CACACA"))))

    38 	  (font-lock-builtin-face ((t (:foreground "#CACACA"))))

    39 	  (font-lock-comment-face ((t (:foreground "#5F5A60"))))

    40 	  (font-lock-constant-face ((t (:foreground "#CF6A4C"))))

    41 	  (font-lock-doc-string-face ((t (:foreground "DarkOrange"))))

    42 	  (font-lock-function-name-face ((t (:foreground "#9B703F"))))

    43 	  (font-lock-keyword-face ((t (:foreground "#CDA869"))))

    44 	  (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))

    45 	  (font-lock-reference-face ((t (:foreground "SlateBlue"))))

    46 

    47 	  (font-lock-regexp-grouping-backslash ((t (:foreground "#E9C062"))))

    48 	  (font-lock-regexp-grouping-construct ((t (:foreground "red"))))

    49 

    50 	  (minibuffer-prompt ((t (:foreground "#5F5A60"))))

    51 	  (ido-subdir ((t (:foreground "#CF6A4C"))))

    52 	  (ido-first-match ((t (:foreground "#8F9D6A"))))

    53 	  (ido-only-match ((t (:foreground "#8F9D6A"))))

    54 	  (mumamo-background-chunk-submode ((t (:background "#222222")))) 

    55 

    56 	  (font-lock-string-face ((t (:foreground "#8F9D6A"))))

    57 	  (font-lock-type-face ((t (:foreground "#9B703F"))))

    58 	  (font-lock-variable-name-face ((t (:foreground "#7587A6"))))

    59 	  (font-lock-warning-face ((t (:background "#EE799F" :foreground "red"))))

    60 	  (gui-element ((t (:background "#D4D0C8" :foreground "black"))))

    61 	  (region ((t (:background "#27292A"))))

    62 	  (mode-line ((t (:background "grey75" :foreground "black"))))

    63 	  (highlight ((t (:background "#111111"))))

    64 	  (highline-face ((t (:background "SeaGreen"))))

    65 	  (left-margin ((t (nil))))

    66 	  (text-cursor ((t (:background "yellow" :foreground "black"))))

    67 	  (toolbar ((t (nil))))

    68 	  (underline ((nil (:underline nil))))

    69 	  (zmacs-region ((t (:background "snow" :foreground "blue")))))))