Add doom/toggle-profiler

2017-06-18 23:37:58 +02:00 · 2017-06-18 23:37:58 +02:00 · 7029d287e5
commit 7029d287e5
parent 96998e40d3
1 changed files with 10 additions and 0 deletions
--- a/core/autoload/debug.el
+++ b/core/autoload/debug.el
@ -79,3 +79,13 @@ selection of all minor-modes, active or not."
                        (warn "Something went wrong.\n\n%s" (pp-to-string status))
                      (message "Your trust roots are set up properly.\n\n%s" (pp-to-string status))
                      t)))))
+
+(defvar doom--profiler nil)
+;;;###autoload
+(defun doom/toggle-profiler ()
+  (interactive)
+  (if (not doom--profiler)
+      (profiler-start 'cpu+mem)
+    (profiler-report)
+    (profiler-stop))
+  (setq doom--profiler (not doom--profiler)))