   (whitespace-mode)
   (rainbow-delimiters-mode)
   (hl-line-mode)
+  (rainbow-mode)
   (centered-cursor-mode)
   ;; Language-aware editing commands. Useful for imenu-menu.
   (semantic-mode 1)

   '(mode-line-buffer-id ((t (:foreground "#005000" :bold t))))
   '(which-func ((t (:foreground "#008000"))))))

;; https://github.com/howardabrams/dot-files/blob/HEAD/emacs-client.org
(defun ar/org-src-color-blocks-dark ()
  "Color the block headers and footers to make them stand out more for dark themes."
  (interactive)
  (custom-set-faces
   '(org-block-begin-line
     ((t (:foreground "#008ED1" :background "#002E41"))))
   '(org-block-background
     ((t (:background "#111111"))))
   '(org-block-end-line
     ((t (:foreground "#008ED1" :background "#002E41"))))

   '(mode-line-buffer-id ((t (:foreground "black" :bold t))))
   '(which-func ((t (:foreground "green"))))))


  (replace-regexp-in-string " " "-" (downcase title)))

(defun ar/string-digits-p (string)
  "Return t if STRING is an unsigned integer.  nil otherwise."
  (if (string-match "\\`[[:digit:]]+\\'" string)
      t
    nil))
