    `(compilation-info ((t (:inherit 'font-lock-string-face :bold t))))
    `(compilation-error ((t (:underline ,red :bold t))))
    `(compilation-line-number ((t (:foreground ,orange :bold t))))
-   `(flymake-errline ((t :underline ,red)))
-   `(flymake-warnline ((t :underline ,yellow)))
+   `(flymake-errline ((t :underline ,magenta-high :background ,bg-off, :foreground ,magenta-high)))
+   `(flymake-warnline ((t :underline ,yellow ,bg-normal)))
 
    ;; nXML
    `(nxml-element-colon-face             ((t (:inherit 'font-lock-type-face))))

  (custom-theme-set-faces
   'devalot
   `(default        ((((type graphic)) (:background ,bg-normal :foreground ,fg-normal))))
   `(cursor         ((t (:background ,yellow :foreground ,bg-normal))))
   `(error          ((t (:foreground ,red-high))))
   `(warning        ((t (:foreground ,yellow-high))))
   `(success        ((t (:foreground ,green-high))))

;;; Code:

(deftheme devalot "A theme loosely based on solarized.")

;; Create the faces if they don't already exist.
(put 'devalot 'theme-immediate t)

;;; Notes
;; * To see all faces in effect: list-faces-display
