dev: merge branch 'master' of github.com:doomemacs

lisp/cli/packages.el

@@ -688,7 +688,7 @@ If ELPA-P, include packages installed with package.el (M-x package-install)."
     ("^In repository \"[^\"]+\", [^ ]+ (on branch \"[^\"]+\") is ahead of default branch \"[^\"]+\""
      . "^Checkout branch \"")
     ("^In repository "
-     . "^Reset branch \\|^Delete remote [^,]+, re-create it with correct URL\\|^Checkout \"main\""))
+     . "^Reset branch \\|^Delete remote [^,]+, re-create it with correct URL\\|^Checkout \""))
   "A list of regexps, mapped to regexps.
 
 Their CAR is tested against the prompt, and CDR is tested against the presented
@@ -736,10 +736,12 @@ original state.")
       ;; We can't intercept C-g, so no point displaying any options for this key
       ;; when C-c is the proper way to abort batch Emacs.
       (delq! "C-g" actions 'assoc)
-      ;; HACK: These are associated with opening dired or magit, which isn't
+      ;; HACK: Remove actions that don't work in noninteractive Emacs (like
-      ;;   possible in tty Emacs, so...
+      ;;   opening dired or magit).
-      (delq! "e" actions 'assoc)
+      (setq actions
-      (delq! "g" actions 'assoc)
+            (cl-remove-if (lambda (o)
+                            (string-match-p "^\\(?:Magit\\|Dired\\)" (nth 1 o)))
+                          actions))
       (if (doom-cli-context-suppress-prompts-p doom-cli--context)
           (cl-loop for (_key desc func) in actions
                    when desc

modules/completion/company/README.org

@@ -3,6 +3,12 @@
 #+created:  February 19, 2017
 #+since:    2.0.0
 
+#+begin_quote
+  *This module is deprecated* in favor of the [[doom-module::completion corfu]]
+    module. This module will be in maintenance mode until it is eventually
+    removed. Consider switching to the Corfu module instead.
+#+end_quote
+
 * Description :unfold:
 This module provides code completion, powered by [[https://github.com/company-mode/company-mode][company-mode]]. Many of Doom's
 [[doom-module::lang]] modules require it for "intellisense" functionality.

modules/completion/ivy/README.org

@@ -3,6 +3,12 @@
 #+created:  February 20, 2017
 #+since:    2.0.0
 
+#+begin_quote
+  *This module is deprecated* in favor of the [[doom-module::completion vertico]]
+    module. This module will be in maintenance mode until it is eventually
+    removed. Consider switching to the Vertico module instead.
+#+end_quote
+
 * Description :unfold:
 This module provides Ivy integration for a variety of Emacs commands, as well as
 a unified interface for project search and replace, powered by [[https://github.com/BurntSushi/ripgrep/][ripgrep]].

modules/emacs/vc/autoload/hydra.el

@@ -1,44 +0,0 @@
-;;; emacs/vc/autoload/hydra.el -*- lexical-binding: t; -*-
-;;;###if (modulep! :ui hydra)
-
-;;;###autoload (autoload '+vc/smerge-hydra/body "emacs/vc/autoload/hydra" nil t)
-(defhydra +vc/smerge-hydra (:hint nil
-                            :pre (if (not smerge-mode) (smerge-mode 1))
-                            ;; Disable `smerge-mode' when quitting hydra if
-                            ;; no merge conflicts remain.
-                            :post (smerge-auto-leave))
-    "
-                                                         [smerge]
-  Movement   Keep           Diff              Other
-  ╭─────────────────────────────────────────────────────────╯
-     ^_g_^       [_b_] base       [_<_] upper/base    [_C_] Combine
-     ^_C-k_^     [_u_] upper      [_=_] upper/lower   [_r_] resolve
-     ^_k_ ↑^     [_l_] lower      [_>_] base/lower    [_R_] remove
-     ^_j_ ↓^     [_a_] all        [_H_] hightlight    [_n_] next in project
-     ^_C-j_^     [_RET_] current  [_E_] ediff                 ╭──────────
-     ^_G_^                                                │ [_q_] quit
-"
-    ("g" (progn (goto-char (point-min)) (smerge-next)))
-    ("G" (progn (goto-char (point-max)) (smerge-prev)))
-    ("C-j" smerge-vc-next-conflict)
-    ("C-k" smerge-prev)
-    ("j" next-line)
-    ("k" previous-line)
-    ("b" smerge-keep-base)
-    ("u" smerge-keep-upper)
-    ("l" smerge-keep-lower)
-    ("a" smerge-keep-all)
-    ("RET" smerge-keep-current)
-    ("\C-m" smerge-keep-current)
-    ("<" smerge-diff-base-upper)
-    ("=" smerge-diff-upper-lower)
-    (">" smerge-diff-base-lower)
-    ("H" smerge-refine)
-    ("E" smerge-ediff)
-    ("C" smerge-combine-with-next)
-    ("r" smerge-resolve)
-    ("R" smerge-kill-current)
-    ;; Often after calling `smerge-vc-next-conflict', the cursor will land at
-    ;; the bottom of the window
-    ("n" (progn (smerge-vc-next-conflict) (recenter-top-bottom (/ (window-height) 8))))
-    ("q" nil :color blue))

modules/emacs/vc/packages.el

@@ -6,7 +6,7 @@
 (package! smerge-mode :built-in t)
 
 (package! browse-at-remote :pin "76aa27dfd469fcae75ed7031bb73830831aaccbf")
-(package! git-commit :pin "9d4192b7b12c6b7f0664d99c4f876cfcc0a30ad4")
+(package! git-commit :pin "e77782272082977d56635308b89cf686abd87ef5")
 (package! git-timemachine
   ;; The original lives on codeberg.org; which has uptime issues.
   :recipe (:host github :repo "emacsmirror/git-timemachine")

modules/tools/lsp/+lsp.el

@@ -43,6 +43,11 @@ Can be a list of backends; accepts any value `company-backends' accepts.")
   (when (modulep! :config default +bindings)
     (setq lsp-keymap-prefix nil))
 
+  ;; REVIEW: Remove when zigtools/zls#1879 is resolved.
+  (after! lsp-zig
+    (unless (featurep :system 'windows)
+      (setq lsp-zig-download-url-format "https://github.com/zigtools/zls/releases/latest/download/zls-%s-%s.tar.xz")))
+
   :config
   (add-to-list 'doom-debug-variables 'lsp-log-io)
 
@@ -54,10 +59,6 @@ Can be a list of backends; accepts any value `company-backends' accepts.")
         lsp-xml-jar-file (expand-file-name "org.eclipse.lsp4xml-0.3.0-uber.jar" lsp-server-install-dir)
         lsp-groovy-server-file (expand-file-name "groovy-language-server-all.jar" lsp-server-install-dir))
 
-  ;; REVIEW: Remove when zigtools/zls#1879 is resolved.
-  (unless (featurep :system 'windows)
-    (setq lsp-zig-download-url-format "https://github.com/zigtools/zls/releases/latest/download/zls-%s-%s.tar.xz"))
-
   (add-hook! 'doom-escape-hook
     (defun +lsp-signature-stop-maybe-h ()
       "Close the displayed `lsp-signature'."

modules/tools/magit/packages.el

@@ -1,9 +1,9 @@
 ;; -*- no-byte-compile: t; -*-
 ;;; tools/magit/packages.el
 
-(when (package! magit :pin "9d4192b7b12c6b7f0664d99c4f876cfcc0a30ad4")
+(when (package! magit :pin "e77782272082977d56635308b89cf686abd87ef5")
   (when (modulep! +forge)
-    (package! forge :pin "9edfcb2c1528dc7e607daa2d8fa655fc80e0d8b7")
+    (package! forge :pin "21d410c8102422f32db14ddac4eae9e28c2b5c5a")
     (package! code-review
       :recipe (:host github
                :repo "doomelpa/code-review"

modules/ui/indent-guides/config.el

@@ -1,10 +1,39 @@
 ;;; ui/indent-guides/config.el -*- lexical-binding: t; -*-
 
+(defcustom +indent-guides-inhibit-functions nil
+  "A list of predicate functions.
+
+Each function will be run in the context of a buffer where
+`highlight-indent-guides-mode' should be enabled. If any function returns
+non-nil, the mode will not be activated."
+  :type 'hook
+  :group '+indent-guides)
+
+
+;;
+;;; Packages
+
 (use-package! highlight-indent-guides
-  :hook ((prog-mode text-mode conf-mode) . highlight-indent-guides-mode)
+  :hook ((prog-mode text-mode conf-mode) . +indent-guides-init-maybe-h)
   :init
   (setq highlight-indent-guides-method (if (display-graphic-p) 'bitmap 'character)
         highlight-indent-guides-bitmap-function #'highlight-indent-guides--bitmap-line)
+
+  (defun +indent-guides-init-maybe-h ()
+    "Enable `highlight-indent-guides-mode'.
+Consults `+indent-guides-inhibit-functions'."
+    (unless (run-hook-with-args-until-success '+indent-guides-inhibit-functions)
+      (highlight-indent-guides-mode +1)))
+
+  (add-hook! '+indent-guides-inhibit-functions
+    ;; Org's virtual indentation messes up indent-guides.
+    (defun +indent-guides-in-org-indent-mode-p ()
+      (bound-and-true-p org-indent-mode))
+    ;; Fix #6438: indent-guides prevent inline images from displaying in ein
+    ;; notebooks.
+    (defun +indent-guides-in-ein-notebook-p ()
+      (and (bound-and-true-p ein:notebook-mode)
+           (bound-and-true-p ein:output-area-inlined-images))))
   :config
   ;; HACK: If this package is loaded too early (by the user, and in terminal
   ;;   Emacs), then `highlight-indent-guides-auto-set-faces' will have been
@@ -12,11 +41,4 @@
   ;;   need to call it again, but at a time when I can ensure a frame exists an
   ;;   the current theme is loaded.
   (when (doom-context-p 'init)
-    (add-hook 'doom-first-buffer-hook #'highlight-indent-guides-auto-set-faces))
+    (add-hook 'doom-first-buffer-hook #'highlight-indent-guides-auto-set-faces)))
-
-  ;; `highlight-indent-guides' breaks when `org-indent-mode' is active
-  (add-hook! 'org-mode-local-vars-hook
-    (defun +indent-guides-disable-maybe-h ()
-      (and highlight-indent-guides-mode
-           (bound-and-true-p org-indent-mode)
-           (highlight-indent-guides-mode -1)))))

modules/ui/vc-gutter/config.el

@@ -69,7 +69,7 @@
     (defun +vc-gutter-enable-maybe-h ()
       "Conditionally enable `diff-hl-dired-mode' in dired buffers.
 Respects `diff-hl-disable-on-remote'."
-      (unless (and diff-hl-disable-on-remote
+      (unless (and (bound-and-true-p diff-hl-disable-on-remote)
                    (file-remote-p default-directory))
         (diff-hl-dired-mode +1))))
 

modules/ui/vc-gutter/packages.el

@@ -1,4 +1,4 @@
 ;; -*- no-byte-compile: t; -*-
 ;;; ui/vc-gutter/packages.el
 
-(package! diff-hl :pin "f66345ed1f174e844ce43d8225613b7b0fc3e253")
+(package! diff-hl :pin "57d9d4e3e17397bf178c3aa5c369b5edd24523e0")

templates/init.example.el

@@ -21,8 +21,8 @@
        ;;layout            ; auie,ctsrnm is the superior home row
 
        :completion
-       company           ; the ultimate code completion backend
+       ;;company           ; the ultimate code completion backend
-       ;;(corfu +orderless)  ; complete with cap(f), cape and a flying feather!
+       (corfu +orderless)  ; complete with cap(f), cape and a flying feather!
        ;;helm              ; the *other* search engine for love and life
        ;;ido               ; the other *other* search engine...
        ;;ivy               ; a search engine for love and life