Add more optimizations and better defaults

early-init.el

@@ -15,6 +15,8 @@
 ;;; Code:
 
 ;;; Load pre-early-init.el
+(defvar minimal-emacs-debug nil
+  "Non-nil to enable debug.")
 (defvar minimal-emacs--default-user-emacs-directory user-emacs-directory
   "The default value of the `user-emacs-directory' variable.")
 (defun minimal-emacs-load-user-init (filename)
@@ -32,6 +34,13 @@
 (defvar minimal-emacs-gc-cons-threshold (* 16 1024 1024)
   "The value of `gc-cons-threshold' after Emacs startup.")
 
+;;; Misc
+
+(set-language-environment "UTF-8")
+
+;; Set-language-environment sets default-input-method, which is unwanted.
+(setq default-input-method nil)
+
 ;;; Garbage collection
 ;; Garbage collection significantly affects startup times. This setting delays
 ;; garbage collection during startup but will be reset later.
@@ -41,21 +50,64 @@
 (add-hook 'emacs-startup-hook (lambda ()
                                 (setq gc-cons-threshold (* 16 1024 1024))))
 
-;;; file-name-handler-alist
+;;; Performance
 
-;; During startup, Emacs will process every opened and loaded file through this
+;; Increase how much is read from processes in a single chunk (default is 4kb).
-;; list to identify a suitable handler. However, at that point, it won't
+(setq read-process-output-max (* 128 1024))  ; 128kb
-;; require any of them.
-(defvar minimal-emacs--default-file-name-handler-alist file-name-handler-alist
-  "The default value of the `file-name-handler-alist' variable.")
-(setq file-name-handler-alist nil)
-(defun minimal-emacs--restore-file-name-handler-alist ()
-  "Restore the variables that were modified by `early-init.el'."
-  (setq file-name-handler-alist minimal-emacs--default-file-name-handler-alist))
-(add-hook 'emacs-startup-hook #'minimal-emacs--restore-file-name-handler-alist)
 
-;; Byte comp
+;; With this method, the redisplay process skips fontification (syntax
-(setq load-prefer-newer t)  ; Prefer loading newer compiled files
+;; highlighting) while you are actively typing or performing other actions.
+(setq redisplay-skip-fontification-on-input t)
+
+;; Reduce rendering/line scan work by not rendering cursors or regions in
+;; non-focused windows.
+(setq-default cursor-in-non-selected-windows nil)
+(setq highlight-nonselected-windows nil)
+
+;; Prefer loading newer compiled files
+(setq load-prefer-newer t)
+
+;; Disable warnings from the legacy advice API. They aren't useful.
+(setq ad-redefinition-action 'accept)
+
+;; Ignore warnings about "existing variables being aliased".
+(setq warning-suppress-types '((defvaralias) (lexical-binding)))
+
+(unless (daemonp)
+  (unless noninteractive
+    ;; Without this, Emacs will try to resize itself to a specific column size
+    (setq frame-inhibit-implied-resize t)
+
+    ;; A second, case-insensitive pass over `auto-mode-alist' is time wasted.
+    ;; No second pass of case-insensitive search over auto-mode-alist.
+    (setq auto-mode-case-fold nil)
+
+    ;; Reduce *Message* noise at startup. An empty scratch buffer (or the
+    ;; dashboard) is more than enough, and faster to display.
+    (setq inhibit-startup-screen t
+          inhibit-startup-echo-area-message user-login-name)
+    (setq initial-buffer-choice nil
+          inhibit-startup-buffer-menu t
+          inhibit-x-resources t)
+
+    ;; Disable bidirectional text scanning for a modest performance boost.
+    (setq-default bidi-display-reordering 'left-to-right
+                  bidi-paragraph-direction 'left-to-right)
+
+    ;; Give up some bidirectional functionality for slightly faster re-display.
+    (setq bidi-inhibit-bpa t)
+
+    ;; Remove "For information about GNU Emacs..." message at startup
+    (advice-add #'display-startup-echo-area-message :override #'ignore)
+
+    ;; Suppress the vanilla startup screen completely. We've disabled it with
+    ;; `inhibit-startup-screen', but it would still initialize anyway.
+    (advice-add #'display-startup-screen :override #'ignore)
+
+    ;; Shave seconds off startup time by starting the scratch buffer in
+    ;; `fundamental-mode'
+    (setq initial-major-mode 'fundamental-mode
+          initial-scratch-message nil)))
 
 ;; Native comp
 (defvar minimal-emacs-native-comp-reserved-cpus 2
@@ -77,29 +129,52 @@
   ;; Deactivate the `native-compile' feature if it is not available
   (setq features (delq 'native-compile features)))
 
+;; Suppress compiler warnings and don't inundate users with their popups.
+(setq native-comp-async-report-warnings-errors minimal-emacs-debug
+      native-comp-warning-on-missing-source minimal-emacs-debug)
+
+(setq debug-on-error minimal-emacs-debug
+      jka-compr-verbose minimal-emacs-debug)
+
+(setq byte-compile-warnings minimal-emacs-debug)
+(setq byte-compile-verbose minimal-emacs-debug)
+
 ;;; Simple UI
 
 ;; Disable startup screens and messages
-(setq inhibit-startup-screen t)
-(setq initial-scratch-message nil)
 (setq inhibit-splash-screen t)
 
 ;;; Disable unneeded UI elements
-(when (fboundp 'tooltip-mode)
+
-  (tooltip-mode -1))
+;; HACK: I intentionally avoid calling `menu-bar-mode', `tool-bar-mode', and
-(unless (memq window-system '(mac ns))
+;;   `scroll-bar-mode' because their manipulation of frame parameters can
-  (menu-bar-mode -1))
+;;   trigger/queue a superfluous (and expensive, depending on the window system)
-(when (fboundp 'tool-bar-mode)
+;;   frame redraw at startup. The variables must be set to `nil' as well so
-  (tool-bar-mode -1))
+;;   users don't have to call the functions twice to re-enable them.
-(when (fboundp 'scroll-bar-mode)
+(push '(menu-bar-lines . 0)   default-frame-alist)
-  (scroll-bar-mode -1))
+(push '(tool-bar-lines . 0)   default-frame-alist)
+(push '(vertical-scroll-bars) default-frame-alist)
+(setq menu-bar-mode nil
+      tool-bar-mode nil
+      scroll-bar-mode nil)
+
+;; (unless (memq window-system '(mac ns))
+;;   (menu-bar-mode -1))
+;; (when (fboundp 'tool-bar-mode)
+;;   (tool-bar-mode -1))
+;; (when (fboundp 'scroll-bar-mode)
+;;   (scroll-bar-mode -1))
 (when (fboundp 'horizontal-scroll-bar-mode)
   (horizontal-scroll-bar-mode -1))
 
 ;;; package: Set package archives for package installation
 (progn
   (require 'package)
+
+  ;; Since Emacs 27, package initialization occurs before `user-init-file' is
+  ;; loaded, but after `early-init-file'.
   (setq package-enable-at-startup t)
+
   (setq package-quickstart nil)
 
   (when (version< emacs-version "28")
@@ -115,8 +190,9 @@
                             ("nongnu" . 80)
                             ("stable" . 70)
                             ("melpa"  . 0)))
-  (when package-enable-at-startup
+  ;; (when package-enable-at-startup
-    (package-initialize)))
+  ;;   (package-initialize))
+  )
 
 ;;; use-package:
 (progn

init.el

@@ -23,12 +23,143 @@
   (auto-compile-on-save-mode))
 
 (use-package gcmh
+  :custom
+  (gcmh-idle-delay 'auto)
+  (gcmh-auto-idle-delay-factor 10)
+  ;; (gcmh-high-cons-threshold (* 16 1024 1024))
   :hook
   (emacs-startup . gcmh-mode))
 
+;;; Uniquify - Unique buffer name
+(progn
+  (setq uniquify-buffer-name-style 'reverse)
+  (setq uniquify-separator "•")
+  (setq uniquify-after-kill-buffer-p t) ; rename after killing uniquified
+  (setq uniquify-ignore-buffers-re "^\\*"))
+
+;;; Files
+(progn
+  ;; Do not auto-disable auto-save after deleting large chunks of text. The
+  ;; purpose of auto-save is to provide a failsafe, and disabling it
+  ;; contradicts this objective.
+  (setq auto-save-include-big-deletions t)
+
+  ;; Auto save options
+  (setq kill-buffer-delete-auto-save-files t)
+
+  ;; Do not save BackupFiles under the original name with a tilde `~’
+  (setq backup-by-copying t) ; Backup by copying rather renaming
+  (setq delete-old-versions t) ; Delete excess backup versions silently
+  (setq make-backup-files nil)
+  (setq version-control t))
+
+;;; Subr
+(progn
+  ;; Allow for shorter responses: "y" for yes and "n" for no.
+  (defalias #'yes-or-no-p 'y-or-n-p)
+  ;; Never show the hello file
+  (defalias #'view-hello-file #'ignore))
+
+;;; Mule-util
+(setq truncate-string-ellipsis "…")
+
+;;; Frames and windows
+
+(setq frame-title-format '("%b – Emacs")
+      icon-title-format frame-title-format)
+
+;; Do not resize the frames in steps. It can leave gaps.
+(setq frame-resize-pixelwise t)
+
+;; However, do not resize windows pixelwise, as this can cause crashes in some
+;; cases when resizing too many windows at once or rapidly.
+(setq window-resize-pixelwise nil)
+
+(setq resize-mini-windows 'grow-only)
+
+;;; Buffer
+(setq-default left-fringe-width  8)
+(setq-default right-fringe-width 8)
+
+;; Do not show an arrow at the top/bottomin the fringe and empty lines
+(setq-default indicate-buffer-boundaries nil)
+(setq-default indicate-empty-lines nil)
+
+(setq-default word-wrap t)
+
+;;; Smooth scrolling
+
+;; Enables faster scrolling through unfontified regions. This may result in
+;; brief periods of inaccurate syntax highlighting immediately after scrolling,
+;; which should quickly self-correct.
+(setq fast-but-imprecise-scrolling t)
+
+(setq hscroll-margin 2
+      hscroll-step 1
+      ;; Emacs spends excessive time recentering the screen when the cursor
+      ;; moves more than N lines past the window edges (where N is the value of
+      ;; `scroll-conservatively'). This can be particularly slow in larger
+      ;; files during extensive scrolling. If `scroll-conservatively` is set
+      ;; above 100, the window is never automatically recentered. The default
+      ;; value (0) triggers recentering too aggressively, so I've set it to 10
+      ;; to recenter the window only when scrolling significantly off-screen.
+      scroll-conservatively 10
+      scroll-margin 0
+      scroll-preserve-screen-position t
+      ;; Minimize cursor lag slightly by preventing automatic adjustment of
+      ;; `window-vscroll' for tall lines.
+      auto-window-vscroll nil
+      ;; Mouse
+      mouse-wheel-scroll-amount '(2 ((shift) . hscroll))
+      mouse-wheel-scroll-amount-horizontal 2)
+
+;;; Cursor
+;; The blinking cursor is distracting and interferes with cursor settings in
+;; some minor modes that try to change it buffer-locally (e.g., Treemacs).
+;; Additionally, it can cause freezing, especially on macOS, for users with
+;; customized and colored cursors.
+(blink-cursor-mode -1)
+
+;; Don't blink the paren matching the one at point, it's too distracting.
+(setq blink-matching-paren nil)
+
+;; Don't stretch the cursor to fit wide characters, it is disorienting,
+;; especially for tabs.
+(setq x-stretch-cursor nil)
+
+;;; Annoyances
+
+;; No beeping or blinking
+(setq visible-bell nil)
+(setq ring-bell-function #'ignore)
+
+;;; Minimal UI
+
+;; Show feedback after typing
+(setq echo-keystrokes 0.02)
+
+;; Disable GUIs because theyr are inconsistent across systems, desktop
+;; environments, and themes, and they don't match the look of Emacs.
+(setq use-file-dialog nil)
+(setq use-dialog-box nil)
+(when (bound-and-true-p tooltip-mode)
+  (tooltip-mode -1))
+
+;;; Performance
+
+;; Don't ping things that look like domain names.
+(setq ffap-machine-p-known 'reject)
+
+;; By default, Emacs "updates" its ui more often than it needs to
+(setq idle-update-delay 1.0)
+
+;; Font compacting can be very resource-intensive, especially when rendering
+;; icon fonts on Windows. This will increase memory usage.
+(setq inhibit-compacting-font-caches t)
+
+(provide 'init)
+
 ;;; Load user-pre-init.el
 (minimal-emacs-load-user-init "post-init.el")
 
-(provide 'init)
-
 ;;; init.el ends here