emacs
/
emacs-color-theme-solarized
mirror of https://github.com/sellout/emacs-color-theme-solarized.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Replaced my broken `create-solarized-theme` with a working one provided by @davidsantiago.

This commit is contained in:
Greg Pfeil 2011-05-06 08:05:56 -04:00
parent be6084bb20
commit 9cf0ddaad5
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
solarized-definitions.el
View File

@ -286,13 +286,15 @@ will use the 256 degraded color mode."
(cursor-color . ,base0))))))
(defmacro create-solarized-theme (mode)
`(let ((theme-name ',(intern (concat "solarized-" (symbol-name mode))))
(defs ',(solarized-color-definitions mode)))
`(deftheme ,theme-name ,solarized-description)
(apply 'custom-theme-set-variables
theme-name
(mapcar (lambda (def) (list (car def) (cdr def))) (second defs)))
(apply 'custom-theme-set-faces theme-name (first defs))
(provide-theme theme-name)))
(let* ((theme-name (make-symbol (concat "solarized-" (symbol-name mode))))
(defs (solarized-color-definitions mode))
(theme-vars (mapcar (lambda (def) (list (car def) (cdr def)))
(second defs)))
(theme-faces (first defs)))
`(progn
(deftheme ,theme-name ,solarized-description)
(apply 'custom-theme-set-variables ',theme-name ',theme-vars)
(apply 'custom-theme-set-faces ',theme-name ',theme-faces)
(provide-theme ',theme-name))))
(provide 'solarized-definitions)