Deprecate the old dark/light themes.

There is now a single theme that will use light or dark versions based
on the background-mode of the frame, this allows a mix of light and dark frames.
This commit is contained in:
Greg Pfeil 2015-01-06 19:43:18 -07:00
parent 862edee6cd
commit e7b9997d34
5 changed files with 44 additions and 9 deletions

View File

@ -35,4 +35,17 @@ Ported to Emacs by Greg Pfeil, http://ethanschoonover.com/solarized."
"Solarized"
,solarized-description))
;;;###autoload
(defun color-theme-solarized-dark ()
"Color theme by Ethan Schoonover, created 2011-03-24.
Ported to Emacs by Greg Pfeil, http://ethanschoonover.com/solarized."
(declare (obsolete color-theme-solarized "2013-05-01"))
(color-theme-solarized))
;;;###autoload
(defun color-theme-solarized-light ()
"Color theme by Ethan Schoonover, created 2011-03-24.
Ported to Emacs by Greg Pfeil, http://ethanschoonover.com/solarized."
(declare (obsolete color-theme-solarized "2013-05-01"))
(color-theme-solarized))
(provide 'color-theme-solarized)

11
solarized-dark-theme.el Normal file
View File

@ -0,0 +1,11 @@
(require 'solarized-definitions
(locate-file "solarized-definitions.el" custom-theme-load-path
'("c" "")))
(create-solarized-theme solarized-dark
(concat "This theme is obsolete since 2013-05-01;
use `solarized' instead.
"
solarized-description)
(solarized-color-definitions))

View File

@ -554,4 +554,11 @@ the \"Gen RGB\" column in solarized-definitions.el to improve them further."
(add-to-list 'custom-theme-load-path
(file-name-as-directory (file-name-directory load-file-name))))
(defmacro create-solarized-theme (name description color-definitions)
`(progn
(deftheme ,name ,description)
(apply 'custom-theme-set-faces
',name ,color-definitions)
(provide-theme ',name)))
(provide 'solarized-definitions)

11
solarized-light-theme.el Normal file
View File

@ -0,0 +1,11 @@
(require 'solarized-definitions
(locate-file "solarized-definitions.el" custom-theme-load-path
'("c" "")))
(create-solarized-theme solarized-light
(concat "This theme is obsolete since 2013-05-01;
use `solarized' instead.
"
solarized-description)
(solarized-color-definitions))

View File

@ -2,12 +2,5 @@
(locate-file "solarized-definitions.el" custom-theme-load-path
'("c" "")))
(defmacro create-solarized-theme ()
(let ((theme-name 'solarized))
`(progn
(deftheme ,theme-name ,solarized-description)
(apply 'custom-theme-set-faces
',theme-name ',(solarized-color-definitions))
(provide-theme ',theme-name))))
(create-solarized-theme)
(create-solarized-theme solarized
solarized-description (solarized-color-definitions))