           (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))

                (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
                (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))

                ;; flycheck
                (flycheck-fringe-error (,@fg-orange ,@bg-base03))  ; These
                                         ; control the bitmap colours in the fringe
                (flycheck-fringe-warning (,@fg-violet ,@bg-base02))
                (flycheck-fringe-success (,@fg-green))
                (flycheck-error (,@fmt-curl-orange))
                (flycheck-warning (,@fmt-curl-violet))
                (flycheck-info (,@fmt-curl-green))

                (mode-line
                 (,@fg-base0 ,@bg-base03
                             :inverse-video nil
                             :box (:line-width 1 :color base02 :style released-button)
                             :underline nil
                             ))
                (powerline-active1 (,@fg-cyan ,@bg-base02 :inherit mode-line))
                (powerline-active2 (,@fg-base1 ,@bg-base01 :inherit mode-line))

                (mode-line-inactive
                 (,@fg-base02 ,@bg-base0
                              :inverse-video nil
                              :box (:line-width -1 :color base01 :style nil)
                              :underline nil
                              ))
                (powerline-inactive1 (,@fg-base02 ,@bg-base0 :inherit mode-line-inactive))
                (powerline-inactive2 (,@fg-base01 ,@bg-base0 :inherit mode-line-inactive))

                (md/modeline-flycheck-error
                 (,@fg-base2 ,@bg-orange))
                (md/modeline-flycheck-warning
                 (,@fg-base2 ,@bg-violet))

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

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


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