color-theme-twilight.el
changeset 24 96bd2f4c9962
parent 22 a7906973ceb5
equal deleted inserted replaced
23:9c7fc00cc7a3 24:96bd2f4c9962
    22 
    22 
    23 (defun color-theme-twilight ()
    23 (defun color-theme-twilight ()
    24   "Color theme by Marcus Crafter, based off the TextMate Twilight theme, created 2008-04-18"
    24   "Color theme by Marcus Crafter, based off the TextMate Twilight theme, created 2008-04-18"
    25   (interactive)
    25   (interactive)
    26   (color-theme-install
    26   (color-theme-install
    27 	'(color-theme-twilight
    27    '(color-theme-twilight
    28 	  ((background-color . "#141414")
    28      ((background-color . "#000000")
    29 		(background-mode . dark)
    29       (background-mode . dark)
    30 		(border-color . "black")
    30       (border-color . "black")
    31 		(cursor-color . "#A7A7A7")
    31       (cursor-color . "#A7A7A7")
    32 		(foreground-color . "#F8F8F8")
    32       (foreground-color . "#F8F8F8")
    33 		(mouse-color . "sienna1"))
    33       (mouse-color . "sienna1"))
    34 	  (default ((t (:background "#141414" :foreground "#CACACA"))))
    34      (default ((t (:background "#000000" :foreground "#CACACA"))))
    35 	  (blue ((t (:foreground "blue"))))
    35      (blue ((t (:foreground "blue"))))
    36 	  (border-glyph ((t (nil))))
    36      (border-glyph ((t (nil))))
    37 	  (buffers-tab ((t (:background "#141414" :foreground "#CACACA"))))
    37      (buffers-tab ((t (:background "#000000" :foreground "#CACACA"))))
    38 	  (font-lock-builtin-face ((t (:foreground "#CACACA"))))
    38      (font-lock-builtin-face ((t (:foreground "#CACACA"))))
    39 	  (font-lock-comment-face ((t (:foreground "#5F5A60"))))
    39      (font-lock-comment-face ((t (:foreground "#5F5A60"))))
    40 	  (font-lock-constant-face ((t (:foreground "#CF6A4C"))))
    40      (font-lock-constant-face ((t (:foreground "#CF6A4C"))))
    41 	  (font-lock-doc-string-face ((t (:foreground "DarkOrange"))))
    41      (font-lock-doc-string-face ((t (:foreground "DarkOrange"))))
    42 	  (font-lock-function-name-face ((t (:foreground "#9B703F"))))
    42      (font-lock-function-name-face ((t (:foreground "#9B703F"))))
    43 	  (font-lock-keyword-face ((t (:foreground "#CDA869"))))
    43      (font-lock-keyword-face ((t (:foreground "#CDA869"))))
    44 	  (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
    44      (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
    45 	  (font-lock-reference-face ((t (:foreground "SlateBlue"))))
    45      (font-lock-reference-face ((t (:foreground "SlateBlue"))))
    46 
    46 
    47 	  (font-lock-regexp-grouping-backslash ((t (:foreground "#E9C062"))))
    47      (font-lock-regexp-grouping-backslash ((t (:foreground "#E9C062"))))
    48 	  (font-lock-regexp-grouping-construct ((t (:foreground "red"))))
    48      (font-lock-regexp-grouping-construct ((t (:foreground "red"))))
    49 
    49 
    50 	  (minibuffer-prompt ((t (:foreground "#5F5A60"))))
    50      (minibuffer-prompt ((t (:foreground "#5F5A60"))))
    51 	  (ido-subdir ((t (:foreground "#CF6A4C"))))
    51      (ido-subdir ((t (:foreground "#CF6A4C"))))
    52 	  (ido-first-match ((t (:foreground "#8F9D6A"))))
    52      (ido-first-match ((t (:foreground "#8F9D6A"))))
    53 	  (ido-only-match ((t (:foreground "#8F9D6A"))))
    53      (ido-only-match ((t (:foreground "#8F9D6A"))))
    54 	  (mumamo-background-chunk-submode ((t (:background "#222222")))) 
    54      (mumamo-background-chunk-submode ((t (:background "#222222"))))
    55 
    55 
    56 	  (font-lock-string-face ((t (:foreground "#8F9D6A"))))
    56      (font-lock-string-face ((t (:foreground "#8F9D6A"))))
    57 	  (font-lock-type-face ((t (:foreground "#9B703F"))))
    57      (font-lock-type-face ((t (:foreground "#9B703F"))))
    58 	  (font-lock-variable-name-face ((t (:foreground "#7587A6"))))
    58      (font-lock-variable-name-face ((t (:foreground "#7587A6"))))
    59 	  (font-lock-warning-face ((t (:background "#EE799F" :foreground "red"))))
    59      (font-lock-warning-face ((t (:background "#EE799F" :foreground "red"))))
    60 	  (gui-element ((t (:background "#D4D0C8" :foreground "black"))))
    60      (gui-element ((t (:background "#D4D0C8" :foreground "black"))))
    61 	  (region ((t (:background "#27292A"))))
    61      (region ((t (:background "#27292A"))))
    62 	  (mode-line ((t (:background "grey75" :foreground "black"))))
    62      (mode-line ((t (:background "grey75" :foreground "black"))))
    63 	  (highlight ((t (:background "#111111"))))
    63      (highlight ((t (:background "#111111"))))
    64 	  (highline-face ((t (:background "SeaGreen"))))
    64      (highline-face ((t (:background "SeaGreen"))))
    65 	  (left-margin ((t (nil))))
    65      (left-margin ((t (nil))))
    66 	  (text-cursor ((t (:background "yellow" :foreground "black"))))
    66      (text-cursor ((t (:background "yellow" :foreground "black"))))
    67 	  (toolbar ((t (nil))))
    67      (toolbar ((t (nil))))
    68 	  (underline ((nil (:underline nil))))
    68      (underline ((nil (:underline nil))))
    69 	  (zmacs-region ((t (:background "snow" :foreground "blue")))))))
    69      (zmacs-region ((t (:background "snow" :foreground "blue")))))))