     (declare (indent defun))
     `(eval-after-load ,feature
        '(progn ,@body))))
+
+;; Increase memory threshold for garbage collection.
+(setq gc-cons-threshold 20000000)
 
 ;; Enhanced list-packages replacement.
 (use-package paradox

;; displays hex strings representing colors
(use-package rainbow-mode
  :ensure t)

;; Activate smerge on conflicts.
(defun sm-try-smerge ()

   ("f" ar/find-all-dired-current-dir "find all")
   ("q" nil "cancel")))

;; Hotspots WIP.
;; (setq ar/helm-source-hotspots '((name . "Hotspots")
;;                                   (candidates . (("yadda" . "/Users/tuco/stuff/active/xenodium.github.dotfiles/emacs/init.el")
;;                                                  ("second" . "/Users/tuco/stuff/active/xenodium.github.dotfiles/emacs/init.el")))
;;                                   (action . (("Open" . (lambda (x) (find-file x)))))))

;; (defun ar/helm-hotspots ()
;;   "Show my hotspots."
;;   (interactive)
;;   (helm :sources '(ar/helm-source-hotspots
;;                    helm-source-buffers-list
;;                    helm-source-ido-virtual-buffers
;;                    helm-source-recentf)))

(global-set-key
 (kbd "C-c o")
 (defhydra hydra-open (:color blue)
