    '(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"))))))
 

      #'flycheck-pos-tip-error-messages)

(add-hook 'after-init-hook #'global-flycheck-mode)

;; Prevent inadvertently editing invisible areas in Org.
(setq org-catch-invisible-edits t)

  (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))
