Initial version

README.markdown

@@ -0,0 +1,16 @@
+An Emacs color-theme version of Ethan Schoonover's "Solarized" theme pair.
+
+Usage:
+
+    M-x color-theme-sanityinc-solarized-light
+    M-x color-theme-sanityinc-solarized-dark
+
+See http://ethanschoonover.com/solarized for more info.
+
+Thanks to Greg Pfeil for color-theme-solarized, of which these themes
+are a different formulation, providing a different set of faces and a
+few different choices. You might want to use his version instead.
+
+Note that, depending on your version of Emacs, the colors in this
+theme may not be rendered accurately. See, for example,
+[this OS X Emacs bug](http://debbugs.gnu.org/cgi/bugreport.cgi?bug=8402).

color-theme-sanityinc-solarized.el

@@ -0,0 +1,173 @@
+;;; color-theme-sanityinc-solarized --- an alternate formulation of Ethan Schoonover's Solarized theme
+
+;; Copyright (C) 2011 Steve Purcell
+
+;; Author: Steve Purcell <steve [at] sanityinc.com>
+;; Keywords: themes
+;; X-URL: http://github.com/purcell/color-theme-sanityinc-solarized
+;; URL: http://github.com/purcell/color-theme-sanityinc-solarized
+
+;; 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, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; Here are two slightly subdued color themes that are easy on the eyes
+;; and cover a reasonably complete set of faces.
+;;
+;;; Use:
+;;
+;; M-x color-theme-solarized-light
+;; M-x color-theme-solarized-dark
+;;
+;;; Credit:
+;;
+;; Genius colour selection by Ethan Schoonover:
+;; http://ethanschoonover.com/solarized
+;; Some faces borrowed from Greg Pfeil's emacs theme:
+;; https://github.com/sellout/solarized/blob/master/emacs-color-theme-solarized/color-theme-solarized.el
+;;
+;;; Code:
+
+;; requires
+(require 'color-theme)
+
+
+
+(defun color-theme-sanityinc-solarized (mode)
+  (interactive "Sdark or light")
+  (let* ((base03  "#002b36")
+         (base02  "#073642")
+         (base01  "#586e75")
+         (base00  "#657b83")
+         (base0   "#839496")
+         (base1   "#93a1a1")
+         (base2   "#eee8d5")
+         (base3   "#fdf6e3")
+         (yellow  "#b58900")
+         (orange  "#cb4b16")
+         (red     "#d30102")
+         (magenta "#d33682")
+         (violet  "#6c71c4")
+         (blue    "#268bd2")
+         (cyan    "#2aa198")
+         (green   "#859900")
+         (foregrounds (list base1 base0 base00 base01))
+         (backgrounds (list base03 base02))
+         (contrast-backgrounds (list base3 base2)))
+    (when (eq 'light mode)
+      (rotatef backgrounds contrast-backgrounds)
+      (setq foregrounds (reverse foregrounds)))
+    (let ((background (first backgrounds))
+          (foreground (second foregrounds))
+          (alt-background (second backgrounds))
+          (contrast-background (first contrast-backgrounds)))
+      (color-theme-install
+       `(,(intern (concat "color-theme-sanityinc-solarized-" (symbol-name'light)))
+         ((background-color . ,background)
+          (background-mode . light)
+          (border-color . ,foreground)
+          (cursor-color . ,magenta)
+          (foreground-color . ,foreground)
+          (mouse-color . ,cyan))
+
+         ;; Standard font lock faces
+         (default ((t (nil))))
+         (bold ((t (:bold t))))
+         (bold-italic ((t (:italic t :bold t))))
+         (underline ((t (:underline t))))
+         (italic ((t (:italic t))))
+         (font-lock-builtin-face ((t (:foreground ,green))))
+         (font-lock-comment-delimiter-face ((t (:foreground ,(third foregrounds) :slant italic))))
+         (font-lock-comment-face ((t (:foreground ,(fourth foregrounds) :slant italic))))
+         (font-lock-constant-face ((t (:foreground ,yellow))))
+         (font-lock-doc-face ((t (:foreground ,magenta))))
+         (font-lock-doc-string-face ((t (:foreground ,yellow))))
+         (font-lock-function-name-face ((t (:foreground ,blue))))
+         (font-lock-keyword-face ((t (:foreground ,green :bold t))))
+         (font-lock-preprocessor-face ((t (:foreground ,orange))))
+         (font-lock-string-face ((t (:foreground ,cyan))))
+         (font-lock-type-face ((t (:foreground ,yellow))))
+         (font-lock-variable-name-face ((t (:foreground ,orange))))
+         (font-lock-warning-face ((t (:bold t :foreground ,red))))
+
+         ;; Flymake
+         (flymake-warnline ((t (:underline ,orange :background ,background))))
+         (flymake-errline ((t (:underline ,red :background ,background))))
+
+         ;; MMM-mode
+         (mmm-code-submode-face ((t (:background ,alt-background))))
+         (mmm-comment-submode-face ((t (:inherit font-lock-comment-face))))
+         (mmm-output-submode-face ((t (:background ,alt-background))))
+
+         ;; Search
+         (isearch ((t (:foreground ,background :background ,green))))
+         (isearch-lazy-highlight-face ((t (:foreground ,foreground :background ,yellow))))
+
+         ;; IDO
+         (ido-subdir ((t (:foreground ,magenta))))
+         (ido-first-match ((t (:foreground ,orange))))
+         (ido-only-match ((t (:foreground ,green))))
+
+         ;; Emacs interface
+         (fringe ((t (:background ,alt-background))))
+         (border ((t (:background ,alt-background))))
+         (border-glyph ((t (nil))))
+         (highlight ((t (:background ,(second contrast-backgrounds)))))
+         (gui-element ((t (:background ,alt-background :foreground ,foreground))))
+         (mode-line ((t (:foreground ,(fourth foregrounds) :background ,alt-background :bold t
+                                     :box (:line-width 1)))))
+         (mode-line-buffer-id ((t (:foreground nil :background nil :bold nil))))
+         (mode-line-inactive ((t (:inherit mode-line
+                                           :foreground ,(third foregrounds)
+                                           :background ,background :bold nil
+                                           :box (:line-width 1)))))
+         (minibuffer-prompt ((t (:foreground ,blue))))
+         (region ((t (:background ,(second contrast-backgrounds)))))
+         (secondary-selection ((t (:foreground ,(second foregrounds)))))
+
+         ;; Parenthesis matching
+         (show-paren-match ((t (:background nil :foreground nil :inverse-video t))))
+         (show-paren-mismatch ((t (:background ,magenta :foreground ,background))))
+
+         (slime-highlight-edits-face ((t (:foreground ,(first foregrounds)))))
+         (magit-item-highlight ((t (:inherit highlight :background nil))))
+
+         (link ((t (:foreground nil :underline t))))
+         (widget-button ((t (:underline t))))
+         (org-link ((t (:foreground ,blue :underline t))))
+         (org-date ((t (:foreground ,blue :underline t))))
+         (org-done ((t (:foreground ,green))))
+         (org-todo ((t (:foreground ,red))))
+         (org-special-keyword ((t (:foreground ,orange))))
+         (org-level-1 ((t (:foreground ,blue))))
+         (org-level-2 ((t (:foreground ,foreground))))
+         (org-level-3 ((t (:foreground ,violet))))
+         (org-column ((t (:background ,alt-background))))
+         (org-warning ((t (:bold t :foreground ,red))))
+         (org-scheduled-previously ((t (:foreground ,orange))))
+
+         (hl-sexp-face ((t (:background ,alt-background))))
+         (highlight-80+ ((t (:background ,alt-background))))
+         )))))
+
+(defun color-theme-sanityinc-solarized-dark ()
+  (interactive)
+  (color-theme-sanityinc-solarized 'dark))
+
+(defun color-theme-sanityinc-solarized-light ()
+  (interactive)
+  (color-theme-sanityinc-solarized 'light))
+
+
+(provide 'color-theme-sanityinc-solarized)