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

Correct handling of colored underlines 

They use symbolic names now, rather than hardcoded colors.
This commit is contained in:
Greg Pfeil 2023-01-31 19:08:25 -07:00
parent 2dd11b02d2
commit d217eb9c1d
No known key found for this signature in database
GPG Key ID: 1193ACD196ED61F2
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
solarized-definitions.el
View File

@ -140,10 +140,17 @@ LIGHT is non-nil."
(plist-put new-fontspec
property
(nth index (assoc color-name solarized-colors))))))
(when (plist-get new-fontspec :box)
(when (consp (plist-get new-fontspec :box))
(plist-put new-fontspec
:box
(solarized-face-for-index (plist-get new-fontspec :box) index
(solarized-face-for-index (plist-get new-fontspec :box)
index
light)))
(when (consp (plist-get new-fontspec :underline))
(plist-put new-fontspec
:underline
(solarized-face-for-index (plist-get new-fontspec :underline)
index
light)))
new-fontspec))
@ -227,11 +234,10 @@ contains Solarized symbols."
(fmt-undb `(:weight ,bold :underline ,underline))
(fmt-undi `( :slant ,italic :underline ,underline))
(fmt-uopt `( :underline ,opt-under))
;; FIXME: don’t hardcode the SRGB color names
(fmt-curl-red `( :underline (:color "#dc322f" :style wave)))
(fmt-curl-yellow `( :underline (:color "#b58900" :style wave)))
(fmt-curl-magenta `( :underline (:color "#d33682" :style wave)))
(fmt-curl-cyan `( :underline (:color "#2aa198" :style wave)))
(fmt-curl-red '( :underline (:color red :style wave)))
(fmt-curl-violet '( :underline (:color violet :style wave)))
(fmt-curl-cyan '( :underline (:color cyan :style wave)))
(fmt-curl-yellow '( :underline (:color yellow :style wave)))
(fmt-ital `( :slant ,italic))
;; FIXME: not quite the same
(fmt-stnd `( :inverse-video t))