    '(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
+;; Based on 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"))))
+     ((t (:foreground "#008ED1" :background nil))))
    '(org-block-background
      ((t (:background "#111111"))))
    '(org-block-end-line
-     ((t (:foreground "#008ED1" :background "#002E41"))))
-
+     ((t (:foreground "#008ED1" :background nil))))
    '(mode-line-buffer-id ((t (:foreground "black" :bold t))))
    '(which-func ((t (:foreground "green"))))))
 

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

  (let ((m org-mode-map))
    (define-key m [f6] #'ar/export-blog-to-html))
  (set (make-local-variable 'show-trailing-whitespace) t)
  (set (make-local-variable 'whitespace-line-column) 1000)
  (ar/org-src-color-blocks-dark)
  (flyspell-mode-on)
  (whitespace-mode)
  (rainbow-delimiters-mode)
