Merge branch 'master' into layer/all

early-init.el

@@ -1,11 +1,11 @@
-;;; early-init.el --- earliest birds               -*- lexical-binding: t -*-
+;;; early-init.el --- Earliest birds               -*- lexical-binding: t -*-
 
 (setq load-prefer-newer t)
 
-(add-to-list 'load-path
-             (expand-file-name
-              "lib/auto-compile"
-              (file-name-directory (or load-file-name buffer-file-name))))
+(add-to-list 'load-path (expand-file-name "lib/borg" user-emacs-directory))
+(require 'borg)
+(borg-initialize)
+
 (require 'auto-compile)
 (auto-compile-on-load-mode)
 (auto-compile-on-save-mode)

init.el

@@ -1,18 +1,7 @@
 ;;; init.el --- user-init-file                    -*- lexical-binding: t -*-
+(borg-report-load-duration)
 ;;; Early birds
 (progn ;     startup
-  (defvar before-user-init-time (current-time)
-    "Value of `current-time' when Emacs begins loading `user-init-file'.")
-  (message "Loading Emacs...done (%.3fs)"
-           (float-time (time-subtract before-user-init-time
-                                      before-init-time)))
-  (setq user-init-file (or load-file-name buffer-file-name))
-  (setq user-emacs-directory (file-name-directory user-init-file))
-  (message "Loading %s..." user-init-file)
-  (when (< emacs-major-version 27)
-    (setq package-enable-at-startup nil)
-    ;; (package-initialize)
-    (load-file (expand-file-name "early-init.el" user-emacs-directory)))
   (setq inhibit-startup-buffer-menu t)
   (setq inhibit-startup-screen t)
   (setq inhibit-startup-echo-area-message "locutus")
@@ -24,11 +13,6 @@
     (tool-bar-mode 0))
   (menu-bar-mode 0))
 
-(eval-and-compile ; `borg'
-  (add-to-list 'load-path (expand-file-name "lib/borg" user-emacs-directory))
-  (require 'borg)
-  (borg-initialize))
-
 (eval-and-compile ; `use-package'
   (setopt use-package-enable-imenu-support t)
   (setopt use-package-verbose t)
@@ -46,25 +30,21 @@
   (setq auto-compile-display-buffer               nil)
   (setq auto-compile-mode-line-counter            t)
   (setq auto-compile-source-recreate-deletes-dest t)
-  (setq auto-compile-toggle-deletes-nonlib-dest   t)
-  (setq auto-compile-update-autoloads             t))
+  (setq auto-compile-toggle-deletes-nonlib-dest   t))
 
 (use-package no-littering)
 
 (use-package epkg
   :defer t
   :init
-  (setq epkg-repository
-        (expand-file-name "var/epkgs/" user-emacs-directory))
-  (setq epkg-database-connector
-        (if (>= emacs-major-version 29) 'sqlite-builtin 'sqlite-module)))
+  (setq epkg-repository (expand-file-name "var/epkgs/" user-emacs-directory)))
 
 (use-package custom
   :no-require t
   :config
   (setq custom-file (expand-file-name "custom.el" user-emacs-directory))
   (when (file-exists-p custom-file)
-    (load custom-file)))
+    (load custom-file nil t)))
 
 (use-package server
   :functions (server-running-p)
@@ -72,8 +52,7 @@
 
 (progn ;     startup
   (message "Loading early birds...done (%.3fs)"
-           (float-time (time-subtract (current-time)
-                                      before-user-init-time))))
+           (float-time (time-subtract (current-time) before-init-time))))
 
 ;;; Long tail
 
@@ -106,10 +85,9 @@
 (use-package diff-mode
   :defer t
   :config
-  (when (>= emacs-major-version 27)
   (set-face-attribute 'diff-refine-changed nil :extend t)
   (set-face-attribute 'diff-refine-removed nil :extend t)
-    (set-face-attribute 'diff-refine-added   nil :extend t)))
+  (set-face-attribute 'diff-refine-added   nil :extend t))
 
 (use-package dim-autoload
   :config (global-dim-autoload-cookies-mode))
@@ -123,7 +101,6 @@
   :config (setq ediff-window-setup-function 'ediff-setup-windows-plain))
 
 (use-package eldoc
-  :when (version< "25" emacs-version)
   :config (global-eldoc-mode))
 
 (use-package forge
@@ -269,7 +246,6 @@
   :config (savehist-mode))
 
 (use-package saveplace
-  :when (version< "25" emacs-version)
   :config (save-place-mode))
 
 (use-package shell
@@ -289,9 +265,8 @@
   :defer t
   :config
   (setq smerge-refine-ignore-whitespace nil)
-  (when (>= emacs-major-version 27)
   (set-face-attribute 'smerge-refined-removed nil :extend t)
-    (set-face-attribute 'smerge-refined-added   nil :extend t)))
+  (set-face-attribute 'smerge-refined-added   nil :extend t))
 
 (use-package term
   :defer t
@@ -325,24 +300,10 @@
 
 ;;; Tequila worms
 
-(progn ;     startup
-  (message "Loading %s...done (%.3fs)" user-init-file
-           (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))))
+(borg--load-config (concat (user-real-login-name) ".el"))
+(borg-report-after-init-duration)
 
+;;; _
 ;; Local Variables:
 ;; indent-tabs-mode: nil
 ;; End: