Update ANSI colors
- correct handling of ansi-color-names-vector (even though it’s deprecated) - add support for `bright` variants - rename from `term-color` to `ansi-color`
This commit is contained in:
parent
ca6958e9d7
commit
a6d8279076
|
@ -222,8 +222,6 @@ the \"Gen RGB\" column in solarized-definitions.el to improve them further."
|
||||||
(fmt-revb `(:weight ,bold :inverse-video t))
|
(fmt-revb `(:weight ,bold :inverse-video t))
|
||||||
(fmt-revbb `(:weight ,bright-bold :inverse-video t))
|
(fmt-revbb `(:weight ,bright-bold :inverse-video t))
|
||||||
(fmt-revbbu `(:weight ,bright-bold :underline ,underline :inverse-video t)))
|
(fmt-revbbu `(:weight ,bright-bold :underline ,underline :inverse-video t)))
|
||||||
(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))
|
(mapcar (lambda (face) (apply 'create-face-spec face))
|
||||||
`(;; basic
|
`(;; basic
|
||||||
(default (,@fg-base0 ,@bg-back)) ; Normal
|
(default (,@fg-base0 ,@bg-back)) ; Normal
|
||||||
|
@ -720,15 +718,23 @@ the \"Gen RGB\" column in solarized-definitions.el to improve them further."
|
||||||
(rst-level-4 (:inherit outline-4))
|
(rst-level-4 (:inherit outline-4))
|
||||||
(rst-level-5 (:inherit outline-5))
|
(rst-level-5 (:inherit outline-5))
|
||||||
(rst-level-6 (:inherit outline-6))
|
(rst-level-6 (:inherit outline-6))
|
||||||
;;ansi-term
|
;;ansi-color
|
||||||
(term-color-black (,@fg-base02))
|
(ansi-color-cyan (,@fg-cyan ,@bg-cyan))
|
||||||
(term-color-red (,@fg-red))
|
(ansi-color-blue (,@fg-blue ,@bg-blue))
|
||||||
(term-color-green (,@fg-green))
|
(ansi-color-magenta (,@fg-magenta ,@bg-magenta))
|
||||||
(term-color-yellow (,@fg-yellow))
|
(ansi-color-red (,@fg-red ,@bg-red))
|
||||||
(term-color-blue (,@fg-blue))
|
(ansi-color-yellow (,@fg-yellow ,@bg-yellow))
|
||||||
(term-color-magenta (,@fg-magenta))
|
(ansi-color-green (,@fg-green ,@bg-green))
|
||||||
(term-color-cyan (,@fg-cyan))
|
(ansi-color-black (,@fg-base02 ,@bg-base02))
|
||||||
(term-color-white (,@fg-base00))
|
(ansi-color-white (,@fg-base2 ,@bg-base2))
|
||||||
|
(ansi-color-bright-cyan (,@fg-base1 ,@bg-base1))
|
||||||
|
(ansi-color-bright-blue (,@fg-base0 ,@bg-base0))
|
||||||
|
(ansi-color-bright-magenta (,@fg-violet ,@bg-violet))
|
||||||
|
(ansi-color-bright-red (,@fg-orange ,@bg-orange))
|
||||||
|
(ansi-color-bright-yellow (,@fg-base00 ,@bg-base00))
|
||||||
|
(ansi-color-bright-green (,@fg-base01 ,@bg-base01))
|
||||||
|
(ansi-color-bright-black (,@fg-base03 ,@bg-base03))
|
||||||
|
(ansi-color-bright-white (,@fg-base3 ,@bg-base3))
|
||||||
;; company
|
;; company
|
||||||
(company-tooltip (,@fg-base00 ,@bg-base02))
|
(company-tooltip (,@fg-base00 ,@bg-base02))
|
||||||
(company-tooltip-selection (,@fg-base1 ,@bg-base02))
|
(company-tooltip-selection (,@fg-base1 ,@bg-base02))
|
||||||
|
@ -762,6 +768,14 @@ the \"Gen RGB\" column in solarized-definitions.el to improve them further."
|
||||||
(deftheme ,name ,description)
|
(deftheme ,name ,description)
|
||||||
(apply 'custom-theme-set-faces
|
(apply 'custom-theme-set-faces
|
||||||
',name ,color-definitions)
|
',name ,color-definitions)
|
||||||
|
(custom-theme-set-variables
|
||||||
|
',name
|
||||||
|
;; This is obsolete, but something might still be referencing it.
|
||||||
|
'(ansi-color-names-vector
|
||||||
|
,(apply #'vector
|
||||||
|
(mapcar (lambda (color-name)
|
||||||
|
(nth 1 (assoc color-name solarized-colors)))
|
||||||
|
'(base02 red green yellow blue magenta cyan base2)))))
|
||||||
(provide-theme ',name)))
|
(provide-theme ',name)))
|
||||||
|
|
||||||
(provide 'solarized-definitions)
|
(provide 'solarized-definitions)
|
||||||
|
|
Loading…
Reference in New Issue