   (set-fill-column 1000)
   (ar/org-src-color-blocks-dark)
   (flyspell-mode-on)
-  (whitespace-mode)
   (rainbow-delimiters-mode)
   (semantic-mode 1)
   (org-bullets-mode 1)

            t t)
  (let ((m prog-mode-map))
    (define-key m [f6] #'recompile))
  ;; Show trailing whitespace.
  (set (make-local-variable 'show-trailing-whitespace) t)
  ;; Spellcheck comments and documentation
  ;; From http://mwolson.org/projects/emacs-config/init.el.html
  (flyspell-prog-mode)
  (whitespace-mode)
  (rainbow-delimiters-mode)
  (hl-line-mode)
  (rainbow-mode)

(add-hook 'ediff-quit-hook #'ar/ediff-qh)

(use-package whitespace
  :commands (whitespace-mode global-whitespace-mode)
  :config
  ;; When nil, fill-column is used instead.
  (setq whitespace-line-column nil)
  (setq whitespace-style '(face lines-tail)))
(global-whitespace-mode)

(defun ar/compile-autoclose (buffer string)
  "Hide successful builds window with BUFFER and STRING."
