[Emacs] Improve customization of benchmarking

This commit is contained in:
Ivan Malison 2017-08-23 15:50:45 -07:00
parent d3bdab7304
commit d75b6ce30e
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -233,9 +233,15 @@ This appears here so that it can accurately benchmark as much of
startup as possible. startup as possible.
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(defvar imalison:do-benchmark) (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 (use-package benchmark-init
:if (bound-and-true-p imalison:do-benchmark) :if imalison:do-benchmark
:demand t) :demand t
:config
(setq max-specpdl-size 99999999))
#+END_SRC #+END_SRC
** GUI Disables ** GUI Disables
Death to any gui elements in emacs! Do this EARLY so that emacs 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 custom-after-file) (load custom-after-file))
(when (file-exists-p machine-custom) (load machine-custom)) (when (file-exists-p machine-custom) (load machine-custom))
#+END_SRC #+END_SRC
* Finish Benchmarking
#+BEGIN_SRC emacs-lisp
(when imalison:do-benchmark (benchmark-init/deactivate))
#+END_SRC