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

init.el

@@ -4,7 +4,7 @@
 ;; URL: https://github.com/jamescherti/minimal-emacs.d
 ;; Package-Requires: ((emacs "29.1"))
 ;; Keywords: maint
-;; Version: 1.2.1
+;; Version: 1.3.0
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 
 ;;; Commentary:
@@ -38,11 +38,6 @@
     (setq use-short-answers t)
   (advice-add 'yes-or-no-p :override #'y-or-n-p))
 
-;;; Features, warnings, and errors
-
-;; Disable warnings from the legacy advice API. They aren't useful.
-(setq ad-redefinition-action 'accept)
-
 ;;; Undo/redo
 
 (setq undo-limit (* 13 160000)
@@ -85,11 +80,6 @@
 (setq visible-bell nil)
 (setq ring-bell-function #'ignore)
 
-;; In PGTK, this timeout introduces latency. Reducing it from the default 0.1
-;; improves responsiveness of childframes and related packages.
-(when (boundp 'pgtk-wait-for-event-timeout)
-  (setq pgtk-wait-for-event-timeout 0.001))
-
 ;;; Show-paren
 
 (setq show-paren-delay 0.1
@@ -97,12 +87,6 @@
       show-paren-when-point-inside-paren t
       show-paren-when-point-in-periphery t)
 
-;;; Compilation
-
-(setq compilation-always-kill t
-      compilation-ask-about-save nil
-      compilation-scroll-output 'first-error)
-
 ;;; Misc
 
 (setq custom-buffer-done-kill t)
@@ -157,8 +141,17 @@
 
 (setq uniquify-buffer-name-style 'forward)
 
-(setq comint-prompt-read-only t)
-(setq comint-buffer-maximum-size 2048)
+;;; comint (general command interpreter in a window)
+
+(setq ansi-color-for-comint-mode t
+      comint-prompt-read-only t
+      comint-buffer-maximum-size 4096)
+
+;;; Compilation
+
+(setq compilation-ask-about-save nil
+      compilation-always-kill t
+      compilation-scroll-output 'first-error)
 
 ;; Skip confirmation prompts when creating a new file or buffer
 (setq confirm-nonexistent-file-or-buffer nil)
@@ -224,7 +217,7 @@
 ;; `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))
+(setq recentf-auto-cleanup 'mode)
 
 ;; Update recentf-exclude
 (setq recentf-exclude (list "^/\\(?:ssh\\|su\\|sudo\\)?:"))
@@ -310,7 +303,8 @@
 
 ;; The blinking cursor is distracting and interferes with cursor settings in
 ;; some minor modes that try to change it buffer-locally (e.g., Treemacs).
-(blink-cursor-mode -1)
+(when (bound-and-true-p blink-cursor-mode)
+  (blink-cursor-mode -1))
 
 ;; Don't blink the paren matching the one at point, it's too distracting.
 (setq blink-matching-paren nil)
@@ -335,7 +329,7 @@
 (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
+;; Disable visual indicators in the fringe for buffer boundaries and empty lines
 (setq-default indicate-buffer-boundaries nil)
 (setq-default indicate-empty-lines nil)
 
@@ -408,7 +402,10 @@
       dired-filter-verbose nil
       dired-recursive-deletes 'top
       dired-recursive-copies 'always
-      dired-create-destination-dirs 'ask)
+      dired-vc-rename-file t
+      dired-create-destination-dirs 'ask
+      ;; Suppress Dired buffer kill prompt for deleted dirs
+      dired-clean-confirm-killing-deleted-buffers nil)
 
 ;; This is a higher-level predicate that wraps `dired-directory-changed-p'
 ;; with additional logic. This `dired-buffer-stale-p' predicate handles remote
@@ -417,26 +414,9 @@
 (setq auto-revert-remote-files nil)
 (setq dired-auto-revert-buffer 'dired-buffer-stale-p)
 
-(setq dired-vc-rename-file t)
-
-;; Disable the prompt about killing the Dired buffer for a deleted directory.
-(setq dired-clean-confirm-killing-deleted-buffers nil)
-
 ;; dired-omit-mode
-(setq dired-omit-verbose nil)
-(setq dired-omit-files (concat "\\`[.]\\'"))
-
-;; Group directories first
-(when minimal-emacs-dired-group-directories-first
-  (with-eval-after-load 'dired
-    (let ((args "--group-directories-first -ahlv"))
-      (when (or (eq system-type 'darwin)
-                (eq system-type 'berkeley-unix))
-        (if-let* ((gls (executable-find "gls")))
-            (setq insert-directory-program gls)
-          (setq args nil)))
-      (when args
-        (setq dired-listing-switches args)))))
+(setq dired-omit-verbose nil
+      dired-omit-files (concat "\\`[.]\\'"))
 
 (setq ls-lisp-verbosity nil)
 (setq ls-lisp-dirs-first t)
@@ -561,7 +541,7 @@
 
 (dolist (cmd '(list-timers narrow-to-region upcase-region downcase-region
                            list-threads erase-buffer scroll-left
-                           dired-find-alternate-file))
+                           dired-find-alternate-file set-goal-column))
   (put cmd 'disabled nil))
 
 ;;; Load post init