      (widget-button ((t (:underline t))))
      (widget-field
       ((t (:background ,current-line :box (:line-width 1 :color ,foreground)))))
-     (header-line ((t (:inherit mode-line :foreground ,purple :background nil))))
+     (header-line ((t (:foreground ,purple :background nil))))
      (menu ((t (:foreground ,foreground :background ,selection))))
 
      ;; Customize

     (custom-state ((t (:foreground ,green))))

     ;; Mode line
     (mode-line ((t (:background ,selection :foreground ,foreground))))
     (mode-line-inactive ((t (:background ,current-line :foreground ,foreground))))
     (mode-line-buffer-id ((t (:foreground ,purple :background nil))))
     (mode-line-emphasis ((t (:foreground ,foreground :slant italic))))
     (mode-line-highlight ((t (:foreground ,purple :box nil :weight bold))))


(require 'init-prefs)
(require 'org)

;;; Theme options

(defcustom exordium-tomorrow-modeline-box t
  "Enable displaying a box around the modeline.
Inspired by the apropospriate-theme."
  :group 'exordium
  :type  'boolean)

;;; Color palette.

