Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
114 lines (90 sloc) 3.826 kb
;; color-theme-mac-classic.el -- a color theme that resembles the TextMate Mac Classic theme.
;;
;; To use add the following to your .emacs file (requires the color-theme package):
;;
;; (require 'color-theme)
;; (color-theme-initialize)
;; (load-file "~/.emacs.d/color-theme-mac-classic/color-theme-mac-classic.el")
;;
;; And then to to activate:
;; (color-theme-mac-classic)
;;
;;Copyright (C) 2009-2010 Jason Watson <jbw@jbw.cc>
;;
;; 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;
(defun color-theme-mac-classic ()
"Color theme by Jason Watson, based off the TextMate Mac Classic theme, created 2010-09-01"
(interactive)
(color-theme-install
'(color-theme-mac-classic
((foreground-color . "#000")
(background-color . "#fff")
(background-mode . dark)
(border-color . "#000")
(cursor-color . "#A7A7A7")
(mouse-color . "sienna1"))
(default ((t (:background "#fff" :foreground "#000"))))
(border-glyph ((t (nil))))
;;;; General
;; Comment
(font-lock-comment-face ((t (:foreground "#B2B2B2" :italic t))))
(font-lock-comment-delimiter-face ((t (:foreground "#B2B2B2"))))
;; Keyword
(font-lock-keyword-face ((t (:foreground "#2C2CF6" :bold t))))
;; User-defined constant
(font-lock-builtin-face ((t (:foreground "#D61619" :bold t))))
;; Variables
(font-lock-variable-name-face ((t (:foreground "#3596A4"))))
;; Constant
(font-lock-constant-face ((t (:foreground "#D61619" :bold t))))
(font-lock-reference-face ((t (:foreground "#7175F0"))))
;; Type
(font-lock-type-face ((t (:foreground "#7175F0"))))
;; String
(font-lock-string-face ((t (:foreground "#007B22"))))
;; Preprocessor line
(font-lock-preprocessor-face ((t (:foreground "#3596A4"))))
;; Function name
(font-lock-function-name-face ((t (:foreground "#1B1CAB" :bold t))))
;; Documentation string
(font-lock-doc-string-face ((t (:foreground "#B2B2B2"))))
;; Regexp
(font-lock-regexp-grouping-backslash ((t (:foreground "#00BD41"))))
;;;; Emacs frame specific
;; Mode-line
(mode-line-inactive ((t (:background "#ddd" :foreground "#000"))))
(mode-line ((t (:background "#2A358D" :foreground "#fff"))))
;; Selection highlight
(highlight ((t (:background "#426BEE" ))))
(highline-face ((t (:background "#426BEE" ))))
;; Text Highlight
(region ((t (:background "#E4F1FE"))))
;; Cursor
(text-cursor ((t (:background "aa0000" :foreground "black"))))
;; Frame
(fringe ((t (:background "#fff"))))
;; Navigation
(minibuffer-prompt ((t (:foreground "#000"))))
(ido-subdir ((t (:foreground "#D61619" :bold t))))
(ido-first-match ((t (:foreground "#007B22" :bold t))))
(ido-only-match ((t (:foreground "#007B22" :bold t))))
;; Etc.
(left-margin ((t (nil))))
(toolbar ((t (nil))))
(underline ((nil (:underline nil))))
(gui-element ((t (:background "#aa0000" :foreground "#00aa00"))))
)))
(provide 'color-theme-mac-classic)
Jump to Line
Something went wrong with that request. Please try again.