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

Make style definitions stricter. 

Turns off bold/italic/underline/inverse in faces where we don't explicitly set it.
This commit is contained in:
Greg Pfeil 2012-02-16 17:55:29 -07:00
parent c003d9a45c
commit f39a9c2ee4
1 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
solarized-definitions.el
View File

@ -162,21 +162,21 @@ the \"Gen RGB\" column in solarized-definitions.el to improve them further."
(fg-blue `(:foreground ,blue))
(fg-cyan `(:foreground ,cyan))
(fmt-bold `(:weight ,bold))
(fmt-bldi `(:weight ,bold))
(fmt-undr `(:underline ,underline))
(fmt-undb `(:underline ,underline :weight ,bold))
(fmt-undi `(:underline ,underline))
(fmt-uopt `(:underline ,opt-under))
(fmt-curl `(:underline t)) ; FIXME: not quite the same
(fmt-ital `(:slant ,italic))
(fmt-stnd `(:inverse-video t)) ; FIXME: not quite the same
(fmt-revr `(:inverse-video t))
(fmt-revb `(:inverse-video t :weight ,bold))
(fmt-revbb `(:inverse-video t :weight ,bright-bold))
(fmt-revbbu `(:inverse-video t
:weight ,bright-bold
:underline ,underline)))
(fmt-bold `(:weight ,bold :slant normal :underline nil :inverse-video nil))
(fmt-bldi `(:weight ,bold :underline nil :inverse-video nil))
(fmt-undr `(:weight normal :slant normal :underline ,underline :inverse-video nil))
(fmt-undb `(:weight ,bold :slant normal :underline ,underline :inverse-video nil))
(fmt-undi `(:weight normal :underline ,underline :inverse-video nil))
(fmt-uopt `(:weight normal :slant normal :underline ,opt-under :inverse-video nil))
;; FIXME: not quite the same
(fmt-curl `(:weight normal :slant normal :underline t :inverse-video nil))
(fmt-ital `(:weight normal :slant ,italic :underline nil :inverse-video nil))
;; FIXME: not quite the same
(fmt-stnd `(:weight normal :slant normal :underline nil :inverse-video t))
(fmt-revr `(:weight normal :slant normal :underline nil :inverse-video t))
(fmt-revb `(:weight ,bold :slant normal :underline nil :inverse-video t))
(fmt-revbb `(:weight ,bright-bold :slant normal :underline nil :inverse-video t))
(fmt-revbbu `(:weight ,bright-bold :slant normal :underline ,underline :inverse-video t)))
`((;; basic
(default ((t (,@fg-base0 ,@bg-back)))) ; Normal
(cursor ((t (,@fg-base03 ,@bg-base0)))) ; Cursor