yogsototh/solaryzed-emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use wave underlines for Fly(make|check|spell) if possible

Browse source 
Wave underlines are available as of Emacs 24.3.  These underlines are
much less intrusive than foreground faces, and thus better suited to
highlight “background” errors from on-the-fly syntax or spell checking.
Using such underlines also makes this theme adhere to the standard user
interface of spell checkers or syntax checkers in other editors or IDEs.
This commit is contained in:
Sebastian Wiesner 2013-05-21 16:57:58 +02:00
parent eb7378c0ac
commit f6900a3626
1 changed files with 24 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
solarized.el
View file

@ -362,24 +362,41 @@
;; flymake
`(flymake-errline
((,class (:foreground ,red-hc :background ,red-lc :weight bold :underline t))))
`(flymake-infoline ((,class (:foreground ,green-hc :background ,green-lc))))
((,(append '((supports :underline (:style wave))) class)
(:underline (:style wave :color ,red)))
(,class (:foreground ,red-hc :background ,red-lc :weight bold :underline t))))
`(flymake-infoline
((,(append '((supports :underline (:style wave))) class)
(:underline (:style wave :color ,green)))
(,class (:foreground ,green-hc :background ,green-lc))))
`(flymake-warnline
((,class (:foreground ,yellow-hc :background ,yellow-lc :weight bold :underline t))))
((,(append '((supports :underline (:style wave))) class)
(:underline (:style wave :color ,yellow)))
(,class (:foreground ,yellow-hc :background ,yellow-lc :weight bold :underline t))))
;; flycheck
`(flycheck-error
((,class (:foreground ,red-hc :background ,red-lc :weight bold :underline t))))
((,(append '((supports :underline (:style wave))) class)
(:underline (:style wave :color ,red)))
(,class (:foreground ,red-hc :background ,red-lc :weight bold :underline t))))
`(flycheck-warning
((,class (:foreground ,yellow-hc :background ,yellow-lc :weight bold :underline t))))
((,(append '((supports :underline (:style wave))) class)
(:underline (:style wave :color ,yellow)))
(,class (:foreground ,yellow-hc :background ,yellow-lc :weight bold :underline t))))
`(flycheck-fringe-error
((,class (:foreground ,red-hc :background ,red-lc :weight bold))))
`(flycheck-fringe-warning
((,class (:foreground ,yellow-hc :background ,yellow-lc :weight bold))))
;; flyspell
`(flyspell-duplicate ((,class (:foreground ,yellow :weight bold :underline t))))
`(flyspell-incorrect ((,class (:foreground ,red :weight bold :underline t))))
`(flyspell-duplicate
((,(append '((supports :underline (:style wave))) class)
(:underline (:style wave :color ,yellow)))
(,class (:foreground ,yellow :weight bold :underline t))))
`(flyspell-incorrect
((,(append '((supports :underline (:style wave))) class)
(:underline (:style wave :color ,red)))
(,class (:foreground ,red :weight bold :underline t))))
;; erc
`(erc-action-face ((,class (:inherit erc-default-face))))