 (use-package rainbow-mode :ensure t)
 (rainbow-mode 1)
 
-;; Activate smerge on conflicts.
 (defun sm-try-smerge ()
+  "Activate smerge on conflicts."
   (save-excursion
     (goto-char (point-min))
     (when (re-search-forward "^<<<<<<< " nil t)

(auto-compile-on-save-mode 1)

(defun ar/char-upcasep (letter)
  (eq letter (upcase letter)))

;;  http://oremacs.com/2014/12/25/ode-to-toggle

;; Automatically hide successful builds window.
(setq compilation-finish-functions 'ar/compile-autoclose)
(defun ar/compile-autoclose (buffer string)
  "Hide successful builds window with BUFFER and STRING."
  (cond ((string-match "finished" string)
         (message "Build finished")
         (run-with-timer 2 nil
