Remove esup
Because esup is fundamentally incompatible with Doom, we are removing it. Hopefully we can replace it later down the road.
This commit is contained in:
parent
c0d2ab331e
commit
d665c7173a
2 changed files with 0 additions and 39 deletions
|
@ -376,42 +376,6 @@ will be automatically appended to the result."
|
||||||
(profiler-stop))
|
(profiler-stop))
|
||||||
(setq doom--profiler (not doom--profiler)))
|
(setq doom--profiler (not doom--profiler)))
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(defun doom/profile-emacs ()
|
|
||||||
"Profile the startup time of Emacs in the background with ESUP.
|
|
||||||
If INIT-FILE is non-nil, profile that instead of USER-INIT-FILE."
|
|
||||||
(interactive)
|
|
||||||
(require 'esup)
|
|
||||||
(let ((init-file esup-user-init-file))
|
|
||||||
(message "Starting esup...")
|
|
||||||
(esup-reset)
|
|
||||||
(setq esup-server-process (esup-server-create (esup-select-port)))
|
|
||||||
(setq esup-server-port (process-contact esup-server-process :service))
|
|
||||||
(message "esup process started on port %s" esup-server-port)
|
|
||||||
(let ((process-args
|
|
||||||
(append `("*esup-child*"
|
|
||||||
"*esup-child*"
|
|
||||||
,esup-emacs-path
|
|
||||||
"-Q"
|
|
||||||
"--eval=(setq after-init-time nil)"
|
|
||||||
"-L" ,esup-load-path)
|
|
||||||
(when (bound-and-true-p early-init-file)
|
|
||||||
`("-l" ,early-init-file))
|
|
||||||
`("-l" "esup-child"
|
|
||||||
,(format "--eval=(let ((load-file-name \"%s\")) (esup-child-run \"%s\" \"%s\" %d))"
|
|
||||||
init-file
|
|
||||||
init-file
|
|
||||||
esup-server-port
|
|
||||||
esup-depth)
|
|
||||||
"--eval=(doom-run-all-startup-hooks-h)"))))
|
|
||||||
(when esup-run-as-batch-p
|
|
||||||
(setq process-args (append process-args '("--batch"))))
|
|
||||||
(setq esup-child-process (apply #'start-process process-args)))
|
|
||||||
(set-process-sentinel esup-child-process 'esup-child-process-sentinel)))
|
|
||||||
|
|
||||||
;;;###autoload
|
|
||||||
(advice-add #'esup :override #'doom/profile-emacs)
|
|
||||||
|
|
||||||
;;;###autoload
|
;;;###autoload
|
||||||
(defun doom/toggle-debug-mode (&optional arg)
|
(defun doom/toggle-debug-mode (&optional arg)
|
||||||
"Toggle `debug-on-error' and `doom-debug-mode' for verbose logging."
|
"Toggle `debug-on-error' and `doom-debug-mode' for verbose logging."
|
||||||
|
|
|
@ -37,6 +37,3 @@
|
||||||
;; core-keybinds.el
|
;; core-keybinds.el
|
||||||
(package! general)
|
(package! general)
|
||||||
(package! which-key)
|
(package! which-key)
|
||||||
|
|
||||||
;; autoload/debug.el
|
|
||||||
(package! esup)
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue