From d75b6ce30e25c29b1171169123e3d7a3ff4fddb4 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Wed, 23 Aug 2017 15:50:45 -0700
Subject: [PATCH] [Emacs] Improve customization of benchmarking

---
 dotfiles/emacs.d/README.org | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org
index 89feef4f..b5176315 100644
--- a/dotfiles/emacs.d/README.org
+++ b/dotfiles/emacs.d/README.org
@@ -233,9 +233,15 @@ This appears here so that it can accurately benchmark as much of
 startup as possible.
 #+BEGIN_SRC emacs-lisp
 (defvar imalison:do-benchmark)
+
+(let ((bench-file (concat (file-name-directory user-init-file) "benchmark.el")))
+  (when (file-exists-p bench-file) (load bench-file)))
+
 (use-package benchmark-init
-  :if (bound-and-true-p imalison:do-benchmark)
-  :demand t)
+  :if imalison:do-benchmark
+  :demand t
+  :config
+  (setq max-specpdl-size 99999999))
 #+END_SRC
 ** GUI Disables
 Death to any gui elements in emacs! Do this EARLY so that emacs
@@ -4963,3 +4969,7 @@ load-theme hook (See the heading below).
 (when (file-exists-p custom-after-file) (load custom-after-file))
 (when (file-exists-p machine-custom) (load machine-custom))
 #+END_SRC
+* Finish Benchmarking
+#+BEGIN_SRC emacs-lisp
+(when imalison:do-benchmark (benchmark-init/deactivate))
+#+END_SRC