From bca448c87d95ef1478443d103797dd28264faa5d Mon Sep 17 00:00:00 2001
From: Martin Polden <mpolden@mpolden.no>
Date: Sat, 27 May 2023 18:26:16 +0200
Subject: vertico: ignore remote projects in consult-buffer

Prevents consult-buffer from hanging on dead TRAMP connections.
---
 lisp/init-vertico.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'lisp')

diff --git a/lisp/init-vertico.el b/lisp/init-vertico.el
index 690587e..1156c24 100644
--- a/lisp/init-vertico.el
+++ b/lisp/init-vertico.el
@@ -2,6 +2,16 @@
 ;;; Commentary:
 ;;; Code:
 
+(defun mpolden/consult-project-function (may-prompt)
+  "Return project root directory.
+When no project is found and MAY-PROMPT is non-nil ask the user.
+
+This wraps `consult--default-project-function', but ignores
+remote projects."
+  ;; https://github.com/minad/consult/issues/792
+  (unless (file-remote-p default-directory)
+    (consult--default-project-function may-prompt)))
+
 ;; save minibuffer history so that vertico can use it for sorting
 (use-package savehist
   :config
@@ -11,6 +21,7 @@
 (use-package consult
   :ensure t
   :init
+  (setq consult-project-function #'mpolden/consult-project-function)
   (setq xref-show-xrefs-function #'consult-xref)
   :bind (("C-x b" . consult-buffer)
          ("C-c i" . consult-imenu)
-- 
cgit v1.2.3