 ;;; Code:
 
 (unless (>= emacs-major-version 24)
-  (error "requires Emacs 24 or later."))
+  (error "Requires Emacs 24 or later"))
 
 (deftheme gruvbox "A retro-groove colour theme")
 (let ((gruvbox-dark0_hard  (if (display-graphic-p) "#1d2021" "color-234"))

      (gruvbox-faded_blue     (if (display-graphic-p) "#076678" "color-24"))
      (gruvbox-faded_purple   (if (display-graphic-p) "#8f3f71" "color-96"))
      (gruvbox-faded_aqua     (if (display-graphic-p) "#427b58" "color-66"))
      (gruvbox-faded_orange   (if (display-graphic-p) "#af3a03" "color-130")))

  (custom-theme-set-faces
    'gruvbox

    ,gruvbox-neutral_purple ,gruvbox-neutral_aqua ,gruvbox-light1])))

(defun gruvbox-set-ansi-color-names-vector ()
  "Give comint and the like the same colours as the term colours we set."
  (setq ansi-color-names-vector
    [term-color-black term-color-red term-color-green term-color-yellow term-color-blue
     term-color-purple term-color-aqua term-color-white]))
