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

Merge a8a1fb0e34 into f3ca8902ea

This commit is contained in:
Sam Brightman 2017-10-25 08:48:20 +00:00 committed by GitHub
parent f3ca8902ea a8a1fb0e34
commit 73f15ada0f
1 changed files with 633 additions and 622 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
solarized-definitions.el
View File

@ -157,8 +157,10 @@ the \"Gen RGB\" column in solarized-definitions.el to improve them further."
(((background light) (type tty) (min-colors 8))
,(solarized-face-for-index facespec 5 t)))))
(defun solarized-color-definitions ()
(let ((bold (if solarized-bold 'bold 'unspecified))
(defmacro solarized-with-color-variables (&rest body)
"`let' bind all colors available for use in `solarized' around BODY."
(declare (indent 0))
`(let ((bold (if solarized-bold 'bold 'unspecified))
(bright-bold (if solarized-bold 'unspecified 'bold))
(underline (if solarized-underline t 'unspecified))
(opt-under 'unspecified)
@ -224,9 +226,19 @@ the \"Gen RGB\" column in solarized-definitions.el to improve them further."
(fmt-revb `(:weight ,bold :inverse-video t))
(fmt-revbb `(:weight ,bright-bold :inverse-video t))
(fmt-revbbu `(:weight ,bright-bold :underline ,underline :inverse-video t)))
,@body)))
(defun solarized-apply-definitions (definitions theme)
"Apply face DEFINITIONS to THEME."
(apply 'custom-theme-set-faces
theme
(mapcar (lambda (face) (apply 'create-face-spec face))
definitions)))
(defun solarized-color-definitions ()
(solarized-with-color-variables
(eval-after-load 'ansi-color
'(setf ansi-color-names-vector [,base02 ,red ,green ,yellow ,blue ,magenta ,cyan ,base00]))
(mapcar (lambda (face) (apply 'create-face-spec face))
`(;; basic
(default (,@fg-base0 ,@bg-back)) ; Normal
(cursor (,@fg-base03 ,@bg-base0)) ; Cursor
@ -777,7 +789,7 @@ the \"Gen RGB\" column in solarized-definitions.el to improve them further."
(undo-tree-visualizer-unmodified-face (,@fg-cyan))
(undo-tree-visualizer-register-face (,@fg-yellow))
;; haskell
(haskell-keyword-face (,@fg-cyan)))))))
(haskell-keyword-face (,@fg-cyan)))))
;;;###autoload
(when (boundp 'custom-theme-load-path)
@ -787,8 +799,7 @@ the \"Gen RGB\" column in solarized-definitions.el to improve them further."
(defmacro create-solarized-theme (name description color-definitions)
`(progn
(deftheme ,name ,description)
(apply 'custom-theme-set-faces
',name ,color-definitions)
(solarized-apply-definitions ,color-definitions ',name)
(provide-theme ',name)))
(provide 'solarized-definitions)