                 (link (,@fmt-undr ,@fg-violet))    ; Underlined
                 (link-visited (,@fmt-undr ,@fg-magenta))
                 (match (,@fmt-revr ,@fg-yellow))   ; Search
-                (error (,@fmt-revr ,@fg-red))      ; ErrorMsg
-                (warning (,@fg-red))    ; WarningMsg
-                (success (,@fg-blue))              ; MoreMsg
+                (error (,@fg-red))      ; ErrorMsg
+                (warning (,@fg-violet))    ; WarningMsg
+                (success (,@fg-green))              ; MoreMsg
                 (escape-glyph-face (,@fg-red))
                 (fringe (,@fg-base01 ,@bg-base02))
                 (linum (,@fg-base01 ,@bg-base02))

                (sml/discharging (,@fg-base1 :weight bold))
                (sml/modes (,@fg-cyan))

                (mode-line
                 (,@fg-base1 ,@bg-base02
                             :inverse-video nil
                             :box (:line-width 1 :color base02 :style released-button)
                             :underline nil
                             ))
                (mode-line-inactive
                 (,@fg-base02 ,@bg-base02
                              :inverse-video nil
                              :box (:line-width -1 :color base01 :style nil)
                              :underline nil
                              ))

                (mode-line-buffer-id (,@fg-magenta))  ; Not sure what this done

                (fic-face (:inherit font-lock-comment-face ,@fg-base2 ,@bg-base02))
                (fic-author-face (:inherit fic-face)))))))


(defun solarized-load-theme ()
  (interactive)
  (load-theme 'solarized t)  ; Reloads variables
  (font-lock-fontify-buffer))

(defun solarized-get-definition (color-name)
  "Translate given colour name into a value from solarized-colors."

          (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-orange `(                          :underline (:color "#cb4b16" :style wave)))
          (fmt-curl-violet `(                          :underline (:color "#6c71c4" :style wave)))
          (fmt-curl-green `(                          :underline (:color "#859900" :style wave)))
          (fmt-ital   `(              :slant ,italic))
          ;; FIXME: not quite the same
          (fmt-stnd   `(                                                   :inverse-video t))
