Added a "Generic RGB" color set, which will hopefully look more correct than sRGB to most Emacs users.

This commit is contained in:
Greg Pfeil 2011-04-23 11:06:00 -04:00
parent 4615778e1c
commit be5fed9e3e
1 changed files with 22 additions and 19 deletions

View File

@ -34,24 +34,27 @@ to test the approximate color values for accuracy."
:type 'boolean
:group 'solarized)
;; FIXME: The Generic RGB colors will actually vary from device to device, but
;; hopefully these are closer to the intended colors than the sRGB values
;; that Emacs seems to dislike
(defvar solarized-colors
;; name ideal 256
'((base03 "#002b36" "#1c1c1c")
(base02 "#073642" "#262626")
(base01 "#586e75" "#4e4e4e")
(base00 "#657b83" "#585858")
(base0 "#839496" "#808080")
(base1 "#93a1a1" "#8a8a8a")
(base2 "#eee8d5" "#d7d7af")
(base3 "#fdf6e3" "#ffffd7")
(yellow "#b58900" "#af8700")
(orange "#cb4b16" "#d75f00")
(red "#dc322f" "#af0000")
(magenta "#d33682" "#af005f")
(violet "#6c71c4" "#5f5faf")
(blue "#268bd2" "#0087ff")
(cyan "#2aa198" "#00afaf")
(green "#859900" "#5f8700"))
;; name sRGB Gen RGB degraded
'((base03 "#002b36" "#042028" "#1c1c1c")
(base02 "#073642" "#0a2832" "#262626")
(base01 "#586e75" "#465a61" "#4e4e4e")
(base00 "#657b83" "#52676f" "#585858")
(base0 "#839496" "#708183" "#808080")
(base1 "#93a1a1" "#81908f" "#8a8a8a")
(base2 "#eee8d5" "#e9e2cb" "#d7d7af")
(base3 "#fdf6e3" "#fcf4dc" "#ffffd7")
(yellow "#b58900" "#a57705" "#af8700")
(orange "#cb4b16" "#bd3612" "#d75f00")
(red "#dc322f" "#c60007" "#af0000")
(magenta "#d33682" "#c61b6e" "#af005f")
(violet "#6c71c4" "#5859b7" "#5f5faf")
(blue "#268bd2" "#2075c7" "#0087ff")
(cyan "#2aa198" "#259185" "#00afaf")
(green "#859900" "#728a05" "#5f8700"))
"This is a table of all the colors used by the Solarized color theme. Each
column is a different set, one of which will be chosen based on term
capabilities, etc.")
@ -64,8 +67,8 @@ Ported to Emacs by Greg Pfeil, http://ethanschoonover.com/solarized."
(flet ((find-color (name)
(let ((index (if (or (<= (display-color-cells) 256)
solarized-degrade)
2
1)))
3
2)))
(nth index (assoc name solarized-colors)))))
(let ((base03 (find-color 'base03))
(base02 (find-color 'base02))