(setq *message-window-gravity* :center)
(setq *input-window-gravity* :center)

(setq *mode-line-background-color* "AntiqueWhite")
(setq *mode-line-foreground-color* "Gray20")

(setf *bar-med-color* "^b^1") ;; Red
(setf *bar-crit-color* "^b^2") ;; Green
(setf *bar-hi-color* "^b^3") ;; Yellow

(setf *mode-line-highlight-template* "(^R~A^r)")