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

      #'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))
