mirror/emacs.g
1
0
Fork 0
mirror of https://github.com/emacscollective/emacs.g.git synced 2025-11-23 11:41:18 -05:00
Code Issues Actions Packages Projects Releases Wiki Activity

Emacsg: Use Borg's new init message support

Browse Source
This commit is contained in:
Jonas Bernoulli
2025-11-19 16:04:57 +01:00
parent 703274969e
commit cb4d3e6e63
1 changed files with 6 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
init.el
View File

@@ -1,4 +1,5 @@
;;; init.el --- user-init-file -*- lexical-binding: t -*- ;;; init.el --- user-init-file -*- lexical-binding: t -*-
(borg-report-load-duration)
;;; Early birds ;;; Early birds
(progn ; startup (progn ; startup
(setq inhibit-startup-buffer-menu t) (setq inhibit-startup-buffer-menu t)
@@ -45,7 +46,7 @@
:config :config
(setq custom-file (expand-file-name "custom.el" user-emacs-directory)) (setq custom-file (expand-file-name "custom.el" user-emacs-directory))
(when (file-exists-p custom-file) (when (file-exists-p custom-file)
(load custom-file))) (load custom-file nil t)))
(use-package server (use-package server
:functions (server-running-p) :functions (server-running-p)
@@ -53,8 +54,7 @@
(progn ; startup (progn ; startup
(message "Loading early birds...done (%.3fs)" (message "Loading early birds...done (%.3fs)"
(float-time (time-subtract (current-time) (float-time (time-subtract (current-time) before-init-time))))
before-user-init-time))))
;;; Long tail ;;; Long tail
@@ -159,24 +159,10 @@
;;; Tequila worms ;;; Tequila worms
(progn ; startup (borg--load-config (concat (user-real-login-name) ".el"))
(message "Loading %s...done (%.3fs)" user-init-file (borg-report-after-init-duration)
(float-time (time-subtract (current-time)
before-user-init-time)))
(add-hook 'after-init-hook
(lambda ()
(message
"Loading %s...done (%.3fs) [after-init]" user-init-file
(float-time (time-subtract (current-time)
before-user-init-time))))
t))
(progn ; personalize
(let ((file (expand-file-name (concat (user-real-login-name) ".el")
user-emacs-directory)))
(when (file-exists-p file)
(load file))))
;;; _
;; Local Variables: ;; Local Variables:
;; indent-tabs-mode: nil ;; indent-tabs-mode: nil
;; End: ;; End: