From 6e7be5236b0fb41c05a7aa3ecd1a07c1d012d640 Mon Sep 17 00:00:00 2001 From: Greg Pfeil Date: Fri, 15 Apr 2011 10:53:42 -0400 Subject: [PATCH] Added a customizable variable to be able to test the 256-color version in the GUI. --- color-theme-solarized.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/color-theme-solarized.el b/color-theme-solarized.el index f68e58a..01d065c 100755 --- a/color-theme-solarized.el +++ b/color-theme-solarized.el @@ -13,6 +13,11 @@ (eval-when-compile (require 'color-theme)) +(defcustom color-theme-solarized-degrade nil + "For test purposes only; forces Solarized to use the 256 degraded color mode to test the approximate color values for accuracy." + :type 'boolean + :group 'color-theme-solarized) + (defvar color-theme-solarized-colors ;; name ideal 256 '((base03 "#002b36" "#1c1c1c") @@ -41,7 +46,10 @@ Ported to Emacs by Greg Pfeil, http://ethanschoonover.com/solarized." (interactive "Slight or dark? ") (flet ((find-color (name) - (let ((index (if (or (<= (display-color-cells) 256)) 2 1))) + (let ((index (if (or (<= (display-color-cells) 256) + color-theme-solarized-degrade) + 2 + 1))) (nth index (assoc name color-theme-solarized-colors))))) (let ((base03 (find-color 'base03)) (base02 (find-color 'base02))