Last edit
Summary: color-theme compatible version
Changed:
< ;;; monokai-theme.el --- TextMate theme Monokai port for Emacs color-theme.
to
> ;;; color-theme-monokai.el --- TextMate theme Monokai port for Emacs color-theme.
> ;;
Changed:
< ;; Author: Operator <rectifier04@gmail.com>
< ;; Version: 0.1
< ;; Keywords: faces
to
> ;;
Changed:
< ;;; Code:
< (deftheme monokai
< "TextMate theme Monokai port for Emacs color-theme")
< (custom-theme-set-faces
< 'monokai
< ((foreground-color . "#F8F8F2")
< (background-color . "#272822")
< (background-mode . dark)
< (cursor-color . "#73d216") ; medium chameleon
< (mouse-color . "#73d216"))
< ;; Standard font lock faces
< (default ((t (nil))))
< (font-lock-comment-face ((t (:foreground "#75715E")))) ; dark aluminum
< (font-lock-comment-delimiter-face ((t (:foreground "#75715E")))) ; dark aluminum
< (font-lock-doc-face ((t (:foreground "#75715E")))) ; plum
< (font-lock-doc-string-face ((t (:foreground "#75715E")))) ; plum
< (font-lock-string-face ((t (:foreground "#E6DB74")))) ; plum
< (font-lock-keyword-face ((t (:foreground "#F92672")))) ; light sky blue
< (font-lock-builtin-face ((t (:foreground "#855c1b")))) ; med-dark chocolate
< (font-lock-function-name-face ((t (:foreground "#A6E22E")))) ; dark butter
< (font-lock-variable-name-face ((t (:foreground "#FD971F"))))
< (font-lock-preprocessor-face ((t (:foreground "#66D9EF")))) ; aluminum
< (font-lock-constant-face ((t (:foreground "#4e9a06")))) ; dark chameleon
< (font-lock-type-face ((t (:foreground "#66D9EF")))) ; light plum
< (font-lock-warning-face ((t (:bold t :foreground "#cc0000")))) ; scarlet red
< ;; Search
< (isearch ((t (:foreground "#080808" :background "#edd400"))))
< (isearch-lazy-highlight-face ((t (:foreground "#080808" :background "#75715E"))))
< ;; Emacs Interface
< (fringe ((t (:background "#0f0f0f"))))
< (border ((t (:background "#0f0f0f"))))
< (mode-line ((t (:background "#1f1f1f" :foreground "#eeeeec"))))
< (mode-line-buffer-id ((t (:background "#1f1f1f" :foreground "#eeeeec"))))
< (mode-line-inactive ((t (:background "#1f1f1f" :foreground "#888a85"))))
< (minibuffer-prompt ((t (:foreground "#729fcf")))) ; light sky blue
< (region ((t (:background "#49483E"))))
< ;; Parenthesis matching
< (show-paren-match-face ((t (:foreground "#2e3436" :background "#3E3D32"))))
< (show-paren-mismatch-face ((t (:foreground "#2e3436" :background "#ef2929"))))
< ;; Calendar
< (holiday-face ((t (:foreground "#cc0000")))) ; dark scarlet red
< ;; Info
< (info-xref ((t (:foreground "#729fcf")))) ; light sky blue
< (info-xref-visited ((t (:foreground "#ad7fa8")))) ; light plum
< ;; AUCTeX
< (font-latex-sectioning-5-face ((t (:foreground "#c4a000" :bold t)))) ; dark butter
< (font-latex-bold-face ((t (:foreground "#4e9a06" :bold t)))) ; dark chameleon
< (font-latex-italic-face ((t (:foreground "#4e9a06" :italic t)))) ; dark chameleon
< (font-latex-math-face ((t (:foreground "#855c1b")))) ; med-dark chocolate
< (font-latex-string-face ((t (:foreground "#77507b")))) ; plum
< (font-latex-warning-face ((t (:foreground "#cc0000")))) ; dark scarlet red
< (font-latex-slide-title-face ((t (:foreground "#c4a000")))) ; dark butter
< )
< (provide-theme 'demo)
< ;;; monokai-theme.el ends here
to
> (require 'color-theme)
> (defun color-theme-monokai ()
> "Monokai color theme for Emacs by Operator.
> Based on the TextMate theme Monokai"
> (interactive)
> (color-theme-install
> '(color-theme-monokai
> ((foreground-color . "#F8F8F2")
> (background-color . "#272822")
> (background-mode . dark)
> (cursor-color . "#73d216") ; medium chameleon
> (mouse-color . "#73d216"))
> ;;; Standard font lock faces
> (default ((t (nil))))
> (font-lock-comment-face ((t (:foreground "#75715E")))) ; dark aluminum
> (font-lock-comment-delimiter-face ((t (:foreground "#75715E")))) ; dark aluminum
> (font-lock-doc-face ((t (:foreground "#75715E")))) ; plum
> (font-lock-doc-string-face ((t (:foreground "#75715E")))) ; plum
> (font-lock-string-face ((t (:foreground "#E6DB74")))) ; plum
> (font-lock-keyword-face ((t (:foreground "#F92672")))) ; light sky blue
> (font-lock-builtin-face ((t (:foreground "#855c1b")))) ; med-dark chocolate
> (font-lock-function-name-face ((t (:foreground "#A6E22E")))) ; dark butter
> (font-lock-variable-name-face ((t (:foreground "#FD971F"))))
> (font-lock-preprocessor-face ((t (:foreground "#66D9EF")))) ; aluminum
> (font-lock-constant-face ((t (:foreground "#4e9a06")))) ; dark chameleon
> (font-lock-type-face ((t (:foreground "#66D9EF")))) ; light plum
> (font-lock-warning-face ((t (:bold t :foreground "#cc0000")))) ; scarlet red
> ;; Search
> (isearch ((t (:foreground "#080808" :background "#edd400"))))
> (isearch-lazy-highlight-face ((t (:foreground "#080808" :background "#75715E"))))
> ;; Emacs Interface
> (fringe ((t (:background "#0f0f0f"))))
> (border ((t (:background "#0f0f0f"))))
> (mode-line ((t (:background "#1f1f1f" :foreground "#eeeeec"))))
> (mode-line-buffer-id ((t (:background "#1f1f1f" :foreground "#eeeeec"))))
> (mode-line-inactive ((t (:background "#1f1f1f" :foreground "#888a85"))))
> (minibuffer-prompt ((t (:foreground "#729fcf")))) ; light sky blue
> (region ((t (:background "#49483E"))))
> ;; Parenthesis matching
> (show-paren-match-face ((t (:foreground "#2e3436" :background "#3E3D32"))))
> (show-paren-mismatch-face ((t (:foreground "#2e3436" :background "#ef2929"))))
> ;; Calendar
> (holiday-face ((t (:foreground "#cc0000")))) ; dark scarlet red
> ;; Info
> (info-xref ((t (:foreground "#729fcf")))) ; light sky blue
> (info-xref-visited ((t (:foreground "#ad7fa8")))) ; light plum
> ;;; AUCTeX
> (font-latex-sectioning-5-face ((t (:foreground "#c4a000" :bold t)))) ; dark butter
> (font-latex-bold-face ((t (:foreground "#4e9a06" :bold t)))) ; dark chameleon
> (font-latex-italic-face ((t (:foreground "#4e9a06" :italic t)))) ; dark chameleon
> (font-latex-math-face ((t (:foreground "#855c1b")))) ; med-dark chocolate
> (font-latex-string-face ((t (:foreground "#77507b")))) ; plum
> (font-latex-warning-face ((t (:foreground "#cc0000")))) ; dark scarlet red
> (font-latex-slide-title-face ((t (:foreground "#c4a000")))) ; dark butter
> )))
> (provide 'color-theme-monokai)
;;; color-theme-monokai.el --- TextMate theme Monokai port for Emacs color-theme. ;; ;; Copyright (C) 2010 Operator <rectifier04@gmail.com> ;; ;; This program is free software; you can redistribute it and/or ;; modify it under the terms of the GNU General Public License as ;; published by the Free Software Foundation; either version 3 of ;; the License, or (at your option) any later version. ;; ;; This program is distributed in the hope that it will be ;; useful, but WITHOUT ANY WARRANTY; without even the implied ;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR ;; PURPOSE. See the GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public ;; License along with this program; if not, write to the Free ;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, ;; MA 02111-1307 USA (require 'color-theme) (defun color-theme-monokai () "Monokai color theme for Emacs by Operator. Based on the TextMate theme Monokai" (interactive) (color-theme-install '(color-theme-monokai ((foreground-color . "#F8F8F2") (background-color . "#272822") (background-mode . dark) (cursor-color . "#73d216") ; medium chameleon (mouse-color . "#73d216")) ;;; Standard font lock faces (default ((t (nil)))) (font-lock-comment-face ((t (:foreground "#75715E")))) ; dark aluminum (font-lock-comment-delimiter-face ((t (:foreground "#75715E")))) ; dark aluminum (font-lock-doc-face ((t (:foreground "#75715E")))) ; plum (font-lock-doc-string-face ((t (:foreground "#75715E")))) ; plum (font-lock-string-face ((t (:foreground "#E6DB74")))) ; plum (font-lock-keyword-face ((t (:foreground "#F92672")))) ; light sky blue (font-lock-builtin-face ((t (:foreground "#855c1b")))) ; med-dark chocolate (font-lock-function-name-face ((t (:foreground "#A6E22E")))) ; dark butter (font-lock-variable-name-face ((t (:foreground "#FD971F")))) (font-lock-preprocessor-face ((t (:foreground "#66D9EF")))) ; aluminum (font-lock-constant-face ((t (:foreground "#4e9a06")))) ; dark chameleon (font-lock-type-face ((t (:foreground "#66D9EF")))) ; light plum (font-lock-warning-face ((t (:bold t :foreground "#cc0000")))) ; scarlet red ;; Search (isearch ((t (:foreground "#080808" :background "#edd400")))) (isearch-lazy-highlight-face ((t (:foreground "#080808" :background "#75715E")))) ;; Emacs Interface (fringe ((t (:background "#0f0f0f")))) (border ((t (:background "#0f0f0f")))) (mode-line ((t (:background "#1f1f1f" :foreground "#eeeeec")))) (mode-line-buffer-id ((t (:background "#1f1f1f" :foreground "#eeeeec")))) (mode-line-inactive ((t (:background "#1f1f1f" :foreground "#888a85")))) (minibuffer-prompt ((t (:foreground "#729fcf")))) ; light sky blue (region ((t (:background "#49483E")))) ;; Parenthesis matching (show-paren-match-face ((t (:foreground "#2e3436" :background "#3E3D32")))) (show-paren-mismatch-face ((t (:foreground "#2e3436" :background "#ef2929")))) ;; Calendar (holiday-face ((t (:foreground "#cc0000")))) ; dark scarlet red ;; Info (info-xref ((t (:foreground "#729fcf")))) ; light sky blue (info-xref-visited ((t (:foreground "#ad7fa8")))) ; light plum ;;; AUCTeX (font-latex-sectioning-5-face ((t (:foreground "#c4a000" :bold t)))) ; dark butter (font-latex-bold-face ((t (:foreground "#4e9a06" :bold t)))) ; dark chameleon (font-latex-italic-face ((t (:foreground "#4e9a06" :italic t)))) ; dark chameleon (font-latex-math-face ((t (:foreground "#855c1b")))) ; med-dark chocolate (font-latex-string-face ((t (:foreground "#77507b")))) ; plum (font-latex-warning-face ((t (:foreground "#cc0000")))) ; dark scarlet red (font-latex-slide-title-face ((t (:foreground "#c4a000")))) ; dark butter ))) (provide 'color-theme-monokai)