thirdparty/color-theme-solarized/color-theme-solarized.el
changeset 47 3415a60d5fd0
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/thirdparty/color-theme-solarized/color-theme-solarized.el	Mon Feb 13 12:46:18 2012 -0600
@@ -0,0 +1,56 @@
+;;; Author: Ethan Schoonover, Solarized; Greg Pfeil, Emacs adaptation
+;;; URL: http://ethanschoonover.com/solarized
+
+;;; This file is not (YET) part of GNU Emacs.
+
+;;; # Usage
+
+;;; 1. Install the color-theme package
+;;;   (http://www.emacswiki.org/cgi-bin/wiki/ColorTheme)
+;;; 2. Load this file
+;;; 3. M-x color-theme-solarized-[dark|light]
+
+(require 'solarized-definitions
+         (let* ((reqname (concat (file-name-directory (or load-file-name
+                                                          buffer-file-name))
+                                 "solarized-definitions.el"))
+                (compreqname (concat reqname "c")))
+           (if (file-exists-p compreqname) compreqname reqname)))
+
+(eval-when-compile
+  (require 'color-theme))
+
+;;;###autoload
+(defun color-theme-solarized (mode)
+  "Color theme by Ethan Schoonover, created 2011-03-24.
+Ported to Emacs by Greg Pfeil, http://ethanschoonover.com/solarized."
+  (interactive "Slight or dark? ")
+  (color-theme-install
+   (let* ((definitions (solarized-color-definitions mode))
+          (faces (first definitions))
+          (variables (second definitions)))
+       (solarized-color-definitions mode)
+     `(,(intern (concat "color-theme-solarized-" (symbol-name mode)))
+       ,variables
+       ,@faces))))
+
+;;;###autoload
+(defun color-theme-solarized-dark ()
+  (interactive)
+  (color-theme-solarized 'dark))
+
+;;;###autoload
+(defun color-theme-solarized-light ()
+  (interactive)
+  (color-theme-solarized 'light))
+
+(add-to-list 'color-themes
+             `(color-theme-solarized-light
+               "Solarized Light"
+               ,solarized-description))
+(add-to-list 'color-themes
+             `(color-theme-solarized-dark
+               "Solarized Dark"
+               ,solarized-description))
+
+(provide 'color-theme-solarized)