Merge branch 'main' of https://github.com/jamescherti/minimal-emacs.d

init.el

@@ -1,10 +1,10 @@
-;;; init.el --- Init -*- no-byte-compile: t; lexical-binding: t; -*-
+;;; init.el --- Init -*- lexical-binding: t; -*-
 
 ;; Author: James Cherti
 ;; URL: https://github.com/jamescherti/minimal-emacs.d
 ;; Package-Requires: ((emacs "29.1"))
 ;; Keywords: maint
-;; Version: 1.1.2
+;; Version: 1.2.0
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 
 ;;; Commentary:
@@ -15,41 +15,47 @@
 ;;; Code:
 
 ;;; Load pre-init.el
-(minimal-emacs-load-user-init "pre-init.el")
+(if (fboundp 'minimal-emacs-load-user-init)
+    (minimal-emacs-load-user-init "pre-init.el")
+  (error "The early-init.el file failed to loaded"))
 
 ;;; Before package
 
-;; Increase how much is read from processes in a single chunk
-(setq read-process-output-max (* 1024 1024))  ; 1024kb
+;; Ask the user whether to terminate asynchronous compilations on exit.
+;; This prevents native compilation from leaving temporary files in /tmp.
+(setq native-comp-async-query-on-exit t)
 
-;; Don't ping things that look like domain names.
-(setq ffap-machine-p-known 'reject)
+;; Allow for shorter responses: "y" for yes and "n" for no.
+(setq read-answer-short t)
+(if (boundp 'use-short-answers)
+    (setq use-short-answers t)
+  (advice-add 'yes-or-no-p :override #'y-or-n-p))
+
+;;; Undo/redo
+
+(setq undo-limit (* 13 160000)
+      undo-strong-limit (* 13 240000)
+      undo-outer-limit (* 13 24000000))
 
 ;;; package.el
 
 (when (bound-and-true-p minimal-emacs-package-initialize-and-refresh)
   ;; Initialize and refresh package contents again if needed
   (package-initialize)
-  (unless package-archive-contents
-    (package-refresh-contents))
-
   ;; Install use-package if necessary
   (unless (package-installed-p 'use-package)
+    (unless (seq-empty-p package-archive-contents)
+      (package-refresh-contents))
     (package-install 'use-package))
 
-  ;; Ensure use-package is available at compile time
-  (eval-when-compile
-    (require 'use-package)))
-
-;; Ensure the 'use-package' package is installed and loaded
+  ;; Ensure use-package is available
+  (require 'use-package))
 
 ;;; Features, warnings, and errors
 
 ;; Disable warnings from the legacy advice API. They aren't useful.
 (setq ad-redefinition-action 'accept)
 
-(setq warning-suppress-types '((lexical-binding)))
-
 ;;; Minibuffer
 
 ;; Allow nested minibuffers
@@ -65,11 +71,6 @@
 ;; By default, Emacs "updates" its ui more often than it needs to
 (setq idle-update-delay 1.0)
 
-;; Allow for shorter responses: "y" for yes and "n" for no.
-(setq read-answer-short t)
-(if (boundp 'use-short-answers)
-    (setq use-short-answers t)
-  (advice-add #'yes-or-no-p :override #'y-or-n-p))
 (defalias #'view-hello-file #'ignore)  ; Never show the hello file
 
 ;; No beeping or blinking
@@ -89,14 +90,14 @@
       compilation-ask-about-save nil
       compilation-scroll-output 'first-error)
 
+;; Recenter to the middle of the window for `compile-goto-error', which is also
+;; used by `wgrep' and `embark-export'.
+(setq next-error-recenter '(4))
+
 ;;; Misc
 
 (setq whitespace-line-column nil)  ; whitespace-mode
 
-;; I reduced the default value of 9 to simplify the font-lock keyword,
-;; aiming to improve performance.
-(setq rainbow-delimiters-max-face-count 5)
-
 ;; Can be activated with `display-line-numbers-mode'
 (setq-default display-line-numbers-width 3)
 (setq-default display-line-numbers-widen t)
@@ -104,13 +105,8 @@
 (setq truncate-string-ellipsis "…")
 
 ;; Improve Emacs' responsiveness by delaying syntax highlighting during input
-;; but may reduce visual feedback.
 (setq redisplay-skip-fontification-on-input t)
 
-;; Collects and displays all available documentation immediately, even if
-;; multiple sources provide it. It concatenates the results.
-(setq eldoc-documentation-strategy 'eldoc-documentation-compose-eagerly)
-
 ;; Disable truncation of printed s-expressions in the message buffer
 (setq eval-expression-print-length nil
       eval-expression-print-level nil)
@@ -122,13 +118,12 @@
 
 ;; Delete by moving to trash in interactive mode
 (setq delete-by-moving-to-trash (not noninteractive))
+(setq remote-file-name-inhibit-delete-by-moving-to-trash t)
 
-;; Disable the warning "X and Y are the same file". Ignoring this warning is
-;; acceptable since it will redirect you to the existing buffer regardless.
+;; Ignoring this is acceptable since it will redirect to the buffer regardless.
 (setq find-file-suppress-same-file-warnings t)
 
-;; Resolve symlinks when opening files, so that any operations are conducted
-;; from the file's true directory (like `find-file').
+;; Resolve symlinks so that operations are conducted from the file's directory
 (setq find-file-visit-truename t
       vc-follow-symlinks t)
 
@@ -148,8 +143,7 @@
 
 ;;; Backup files
 
-;; Avoid generating backups or lockfiles to prevent creating world-readable
-;; copies of files.
+;; Avoid backups or lockfiles to prevent creating world-readable copies of files
 (setq create-lockfiles nil)
 (setq make-backup-files nil)
 
@@ -173,11 +167,11 @@
 ;; Enable auto-save to safeguard against crashes or data loss. The
 ;; `recover-file' or `recover-session' functions can be used to restore
 ;; auto-saved data.
-(setq auto-save-default t)
+(setq auto-save-default nil)
+(setq auto-save-no-message t)
 
 ;; 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.
+;; text.
 (setq auto-save-include-big-deletions t)
 
 (setq auto-save-list-file-prefix
@@ -188,22 +182,23 @@
 ;; Auto save options
 (setq kill-buffer-delete-auto-save-files t)
 
+;; Remove duplicates from the kill ring to reduce clutter
+(setq kill-do-not-save-duplicates t)
+
 ;;; Auto revert
-;; Auto-revert in Emacs is a feature that automatically updates the
-;; contents of a buffer to reflect changes made to the underlying file
-;; on disk.
+;; Auto-revert in Emacs is a feature that automatically updates the contents of
+;; a buffer to reflect changes made to the underlying file.
 (setq revert-without-query (list ".")  ; Do not prompt
       auto-revert-stop-on-user-input nil
       auto-revert-verbose t)
 
 ;; Revert other buffers (e.g, Dired)
 (setq global-auto-revert-non-file-buffers t)
+(setq global-auto-revert-ignore-modes '(Buffer-menu-mode))  ; Resolve issue #29
 
 ;;; recentf
 
-;; `recentf' is an Emacs package that maintains a list of recently
-;; accessed files, making it easier to reopen files you have worked on
-;; recently.
+;; `recentf' is an that maintains a list of recently accessed files.
 (setq recentf-max-saved-items 300) ; default is 20
 (setq recentf-max-menu-items 15)
 (setq recentf-auto-cleanup (if (daemonp) 300 'never))
@@ -213,20 +208,21 @@
 
 ;;; saveplace
 
-;; `save-place-mode' enables Emacs to remember the last location within a file
-;; upon reopening. This feature is particularly beneficial for resuming work at
-;; the precise point where you previously left off.
+;; Enables Emacs to remember the last location within a file upon reopening.
 (setq save-place-file (expand-file-name "saveplace" user-emacs-directory))
 (setq save-place-limit 600)
 
 ;;; savehist
 
 ;; `savehist-mode' is an Emacs feature that preserves the minibuffer history
-;; between sessions. It saves the history of inputs in the minibuffer, such as
-;; commands, search strings, and other prompts, to a file. This allows users to
-;; retain their minibuffer history across Emacs restarts.
+;; between sessions.
 (setq history-length 300)
 (setq savehist-save-minibuffer-history t)  ;; Default
+(setq savehist-additional-variables
+      '(kill-ring                        ; clipboard
+        register-alist                   ; macros
+        mark-ring global-mark-ring       ; marks
+        search-ring regexp-search-ring)) ; searches
 
 ;;; Frames and windows
 
@@ -248,39 +244,30 @@
 
 ;;; 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.
+;; Enables faster scrolling. This may result in brief periods of inaccurate
+;; syntax highlighting, which should quickly self-correct.
 (setq fast-but-imprecise-scrolling t)
 
 ;; Move point to top/bottom of buffer before signaling a scrolling error.
 (setq scroll-error-top-bottom t)
 
-;; Keeps screen position if the scroll command moved it vertically out of the
-;; window.
+;; Keep screen position if scroll command moved it vertically out of the window.
 (setq scroll-preserve-screen-position t)
 
-;; 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 of 0 triggers
-;; recentering too aggressively. Setting it to 10 reduces excessive recentering
-;; and only recenters the window when scrolling significantly off-screen.
-(setq scroll-conservatively 10)
+;; If `scroll-conservatively' is set above 100, the window is never
+;; automatically recentered, which decreases the time spend recentering.
+(setq scroll-conservatively 101)
 
-;; Enables smooth scrolling by making Emacs scroll the window by 1 line whenever
-;; the cursor moves off the visible screen.
-(setq scroll-step 1)
-
-;; Reduce cursor lag by :
-;; 1. Prevent automatic adjustments to `window-vscroll' for long lines.
-;; 2. Resolve the issue of random half-screen jumps during scrolling.
+;; 1. Preventing automatic adjustments to `window-vscroll' for long lines.
+;; 2. Resolving the issue of random half-screen jumps during scrolling.
 (setq auto-window-vscroll nil)
 
 ;; Number of lines of margin at the top and bottom of a window.
 (setq scroll-margin 0)
 
+;; Number of lines of continuity when scrolling by screenfuls.
+(setq next-screen-context-lines 0)
+
 ;; Horizontal scrolling
 (setq hscroll-margin 2
       hscroll-step 1)
@@ -298,8 +285,6 @@
 
 ;; 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.
@@ -319,9 +304,8 @@
 ;; Avoid automatic frame resizing when adjusting settings.
 (setq global-text-scale-adjust-resizes-frames nil)
 
-;; This controls how long Emacs will blink to show the deleted pairs with
-;; `delete-pair'. A longer delay can be annoying as it causes a noticeable pause
-;; after each deletion, disrupting the flow of editing.
+;; A longer delay can be annoying as it causes a noticeable pause after each
+;; deletion, disrupting the flow of editing.
 (setq delete-pair-blink-delay 0.03)
 
 (setq-default left-fringe-width  8)
@@ -354,44 +338,32 @@
 (setq read-extended-command-predicate #'command-completion-default-include-p)
 
 ;; Enable multi-line commenting which ensures that `comment-indent-new-line'
-;; properly continues comments onto new lines, which is useful for writing
-;; longer comments or docstrings that span multiple lines.
+;; properly continues comments onto new lines.
 (setq comment-multi-line t)
 
+;; Ensures that empty lines within the commented region are also commented out.
+;; This prevents unintended visual gaps and maintains a consistent appearance.
+(setq comment-empty-lines t)
+
 ;; We often split terminals and editor windows or place them side-by-side,
 ;; making use of the additional horizontal space.
 (setq-default fill-column 80)
 
-;; Disable the obsolete practice of end-of-line spacing from the
-;; typewriter era.
+;; Disable the obsolete practice of end-of-line spacing from the typewriter era.
 (setq sentence-end-double-space nil)
 
-;; According to the POSIX, a line is defined as "a sequence of zero or
-;; more non-newline characters followed by a terminating newline".
+;; According to the POSIX, a line is defined as "a sequence of zero or more
+;; non-newline characters followed by a terminating newline".
 (setq require-final-newline t)
 
-;; Remove duplicates from the kill ring to reduce clutter
-(setq kill-do-not-save-duplicates t)
-
-;; Ensures that empty lines within the commented region are also commented out.
-;; This prevents unintended visual gaps and maintains a consistent appearance,
-;; ensuring that comments apply uniformly to all lines, including those that are
-;; otherwise empty.
-(setq comment-empty-lines t)
-
 ;; Eliminate delay before highlighting search matches
 (setq lazy-highlight-initial-delay 0)
 
 ;;; Modeline
 
-;; Setting `display-time-default-load-average' to nil makes Emacs omit the load
-;; average information from the mode line.
+;; Makes Emacs omit the load average information from the mode line.
 (setq display-time-default-load-average nil)
 
-;; Display the current line and column numbers in the mode line
-(setq line-number-mode t)
-(setq column-number-mode t)
-
 ;;; Filetype
 
 ;; Do not notify the user each time Python tries to guess the indentation offset
@@ -408,8 +380,6 @@
       dired-recursive-deletes 'top
       dired-recursive-copies 'always
       dired-create-destination-dirs 'ask
-      ;; Revert the Dired buffer without prompting.
-      dired-auto-revert-buffer #'dired-buffer-stale-p
       image-dired-thumb-size 150)
 
 (setq dired-vc-rename-file t)
@@ -419,16 +389,7 @@
 
 ;; dired-omit-mode
 (setq dired-omit-verbose nil)
-(setq dired-omit-files (concat "\\`[.]\\'"
-                               "\\|\\(?:\\.js\\)?\\.meta\\'"
-                               "\\|\\.\\(?:elc|a\\|o\\|pyc\\|pyo\\|swp\\|class\\)\\'"
-                               "\\|^\\.DS_Store\\'"
-                               "\\|^\\.\\(?:svn\\|git\\)\\'"
-                               "\\|^\\.ccls-cache\\'"
-                               "\\|^__pycache__\\'"
-                               "\\|^\\.project\\(?:ile\\)?\\'"
-                               "\\|^flycheck_.*"
-                               "\\|^flymake_.*"))
+(setq dired-omit-files (concat "\\`[.]\\'"))
 
 ;; ls-lisp
 (setq ls-lisp-verbosity nil)
@@ -437,8 +398,8 @@
 ;;; Ediff
 
 ;; Configure Ediff to use a single frame and split windows horizontally
-(setq ediff-window-setup-function #'ediff-setup-windows-plain
-      ediff-split-window-function #'split-window-horizontally)
+(setq ediff-window-setup-function 'ediff-setup-windows-plain
+      ediff-split-window-function 'split-window-horizontally)
 
 ;;; Help
 
@@ -446,13 +407,12 @@
 (setq apropos-do-all t)
 
 ;; Fixes #11: Prevents help command completion from triggering autoload.
-;; (e.g., apropos-command, apropos-variable, apropos...)
-;; Loading additional files for completion can slow down help commands
-;; and may unintentionally execute initialization code from some libraries.
+;; Loading additional files for completion can slow down help commands and may
+;; unintentionally execute initialization code from some libraries.
 (setq help-enable-completion-autoload nil)
 (setq help-enable-autoload nil)
 (setq help-enable-symbol-autoload nil)
-(setq help-window-select t)
+(setq help-window-select t)  ;; Focus new help windows when opened
 
 ;;; Eglot
 
@@ -468,9 +428,7 @@
 (setq eglot-report-progress nil)  ; Prevent Eglot minibuffer spam
 
 ;; Eglot optimization: Disable `eglot-events-buffer' to maintain consistent
-;; performance in long-running Emacs sessions. By default, it retains 2,000,000
-;; lines, and each new event triggers pretty-printing of the entire buffer,
-;; leading to a gradual performance decline.
+;; performance in long-running Emacs sessions.
 (setq eglot-events-buffer-config '(:size 0 :format full))
 
 ;;; Flymake
@@ -525,8 +483,8 @@
 ;;; xref
 
 ;; Enable completion in the minibuffer instead of the definitions buffer
-(setq xref-show-definitions-function #'xref-show-definitions-completing-read
-      xref-show-xrefs-function #'xref-show-definitions-completing-read)
+(setq xref-show-definitions-function 'xref-show-definitions-completing-read
+      xref-show-xrefs-function 'xref-show-definitions-completing-read)
 
 ;;; abbrev
 
@@ -543,8 +501,21 @@
 (setq dabbrev-ignored-buffer-modes
       '(archive-mode image-mode docview-mode tags-table-mode pdf-view-mode))
 
+;;; Remove warnings from narrow-to-region, upcase-region...
+
+(dolist (cmd '(list-timers narrow-to-region upcase-region downcase-region
+                           erase-buffer scroll-left dired-find-alternate-file))
+  (put cmd 'disabled nil))
+
 ;;; Load post init
-(minimal-emacs-load-user-init "post-init.el")
+(when (fboundp 'minimal-emacs-load-user-init)
+  (minimal-emacs-load-user-init "post-init.el"))
+(setq minimal-emacs--success t)
 
 (provide 'init)
+
+;; Local variables:
+;; byte-compile-warnings: (not obsolete free-vars)
+;; End:
+
 ;;; init.el ends here