 (auto-compile-on-save-mode 1)
 
 (defun ar/char-upcasep (letter)
+  "Check if LETTER is uppercase."
   (eq letter (upcase letter)))
 
 ;;  http://oremacs.com/2014/12/25/ode-to-toggle

(use-package rainbow-mode :ensure t)
(rainbow-mode 1)

;; Activate smerge on conflicts.
(defun sm-try-smerge ()
  (save-excursion
    (goto-char (point-min))
    (when (re-search-forward "^<<<<<<< " nil t)

(use-package centered-cursor-mode :ensure t)

(defun ar/create-non-existent-directory ()
  "Create a non-existent directory."
  (let ((parent-directory (file-name-directory buffer-file-name)))
    (when (and (not (file-exists-p parent-directory))
               (y-or-n-p (format "Directory `%s' does not exist! Create it? " parent-directory)))
