emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Ensure after-init hooks are available from private init.el

Browse source
This commit is contained in:
Henrik Lissner 2018-04-03 22:36:23 -04:00
parent a4eaf7c865
commit 6aac8666f3
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 29 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

56
core/core.el
View file

@ -130,6 +130,29 @@ ability to invoke the debugger in debug mode."
(car ex) fn (error-message-string ex)))) (car ex) fn (error-message-string ex))))
nil) nil)
(defun doom|after-init ()
"Run `doom-init-hook' and `doom-post-init-hook', start the Emacs server, and
display the loading benchmark."
(unless noninteractive
(load (concat doom-private-dir "config") t t))
(dolist (hook '(doom-init-hook doom-post-init-hook))
(run-hook-wrapped hook #'doom-try-run-hook hook))
(unless noninteractive
(when (display-graphic-p)
(require 'server)
(unless (server-running-p)
(server-start)))
(message "%s" (doom-packages--benchmark))))
(defun doom|finalize ()
"Resets garbage collection settings to reasonable defaults (if you don't do
this, you'll get stuttering and random freezes), and resets
`file-name-handler-alist'."
(setq gc-cons-threshold 16777216
gc-cons-percentage 0.1
file-name-handler-alist doom--file-name-handler-alist)
t)
;; ;;
;; Emacs fixes/hacks ;; Emacs fixes/hacks
@ -185,7 +208,8 @@ with functions that require it (like modeline segments)."
gc-cons-percentage 0.6 gc-cons-percentage 0.6
file-name-handler-alist nil)) file-name-handler-alist nil))
(load (concat doom-private-dir "early-init") t t) (when doom-private-dir
(load (concat doom-private-dir "early-init") t t))
(require 'core-packages (concat doom-core-dir "core-packages")) (require 'core-packages (concat doom-core-dir "core-packages"))
(doom-initialize noninteractive) (doom-initialize noninteractive)
@ -197,33 +221,11 @@ with functions that require it (like modeline segments)."
(load! core-projects) ; making Emacs project-aware (load! core-projects) ; making Emacs project-aware
(load! core-keybinds)) ; centralized keybind system + which-key (load! core-keybinds)) ; centralized keybind system + which-key
(load (concat doom-private-dir "init") t t)
(defun doom|after-init ()
"Run `doom-init-hook' and `doom-post-init-hook', start the Emacs server, and
display the loading benchmark."
(unless noninteractive
(load (concat doom-private-dir "config") t t))
(dolist (hook '(doom-init-hook doom-post-init-hook))
(run-hook-wrapped hook #'doom-try-run-hook hook))
(unless noninteractive
(when (display-graphic-p)
(require 'server)
(unless (server-running-p)
(server-start)))
(message "%s" (doom-packages--benchmark))))
(defun doom|finalize ()
"Resets garbage collection settings to reasonable defaults (if you don't do
this, you'll get stuttering and random freezes), and resets
`file-name-handler-alist'."
(setq gc-cons-threshold 16777216
gc-cons-percentage 0.1
file-name-handler-alist doom--file-name-handler-alist)
t)
(add-hook! '(emacs-startup-hook doom-reload-hook) #'doom|finalize) (add-hook! '(emacs-startup-hook doom-reload-hook) #'doom|finalize)
(add-hook 'emacs-startup-hook #'doom|after-init)) (add-hook 'emacs-startup-hook #'doom|after-init)
(when doom-private-dir
(load (concat doom-private-dir "init") t t)))
(provide 'core) (provide 'core)
;;; core.el ends here ;;; core.el ends here