Correct handling of colored underlines
They use symbolic names now, rather than hardcoded colors.
This commit is contained in:
parent
2dd11b02d2
commit
d217eb9c1d
|
@ -140,10 +140,17 @@ LIGHT is non-nil."
|
||||||
(plist-put new-fontspec
|
(plist-put new-fontspec
|
||||||
property
|
property
|
||||||
(nth index (assoc color-name solarized-colors))))))
|
(nth index (assoc color-name solarized-colors))))))
|
||||||
(when (plist-get new-fontspec :box)
|
(when (consp (plist-get new-fontspec :box))
|
||||||
(plist-put new-fontspec
|
(plist-put new-fontspec
|
||||||
:box
|
: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)))
|
light)))
|
||||||
new-fontspec))
|
new-fontspec))
|
||||||
|
|
||||||
|
@ -227,11 +234,10 @@ contains Solarized symbols."
|
||||||
(fmt-undb `(:weight ,bold :underline ,underline))
|
(fmt-undb `(:weight ,bold :underline ,underline))
|
||||||
(fmt-undi `( :slant ,italic :underline ,underline))
|
(fmt-undi `( :slant ,italic :underline ,underline))
|
||||||
(fmt-uopt `( :underline ,opt-under))
|
(fmt-uopt `( :underline ,opt-under))
|
||||||
;; FIXME: don’t hardcode the SRGB color names
|
(fmt-curl-red '( :underline (:color red :style wave)))
|
||||||
(fmt-curl-red `( :underline (:color "#dc322f" :style wave)))
|
(fmt-curl-violet '( :underline (:color violet :style wave)))
|
||||||
(fmt-curl-yellow `( :underline (:color "#b58900" :style wave)))
|
(fmt-curl-cyan '( :underline (:color cyan :style wave)))
|
||||||
(fmt-curl-magenta `( :underline (:color "#d33682" :style wave)))
|
(fmt-curl-yellow '( :underline (:color yellow :style wave)))
|
||||||
(fmt-curl-cyan `( :underline (:color "#2aa198" :style wave)))
|
|
||||||
(fmt-ital `( :slant ,italic))
|
(fmt-ital `( :slant ,italic))
|
||||||
;; FIXME: not quite the same
|
;; FIXME: not quite the same
|
||||||
(fmt-stnd `( :inverse-video t))
|
(fmt-stnd `( :inverse-video t))
|
||||||
|
|
Loading…
Reference in New Issue