From 4d59042b60c780fa2e856875706249db28fbe140 Mon Sep 17 00:00:00 2001
From: Gergely Polonkai <gergely@polonkai.eu>
Date: Fri, 20 Oct 2023 10:31:52 +0200
Subject: [PATCH] Add and configure the consult-projectile package

---
 configuration.org | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/configuration.org b/configuration.org
index 55c5468..6f6c354 100644
--- a/configuration.org
+++ b/configuration.org
@@ -2070,7 +2070,18 @@ It also provides some nice commands to navigate between change sets.
 ** ~consult-projectile~
 
 #+begin_src emacs-lisp
-(use-package consult-projectile)
+(use-package consult-projectile
+  :demand t
+  :after (:all projectile consult embark)
+  :config
+  (defvar-keymap embark-consult-projectile-project-map
+    :doc "Keymap to use for the projectile menu"
+    :parent embark-general-map
+    "g" #'magit-status)
+  (add-to-list 'embark-keymap-alist '(consult-projectile-project embark-consult-projectile-project-map))
+  (autoload 'magit-status "magit")
+  :bind (:map projectile-command-map
+         ("p" . consult-projectile-switch-project)))
 #+end_src
 
 * Org mode
@@ -3134,6 +3145,8 @@ Because that’s still my favourite language.
  ("M-t" . gpolonkai/transpose-map)
  ("C-z" . nil)
  :map mode-specific-map
+ ;; TODO this should be doable from consult-projectile’s config
+ ("p p" . consult-projectile-switch-project)
  ("r" . gpolonkai/round-number-at-point-to-decimals)
  :map gpolonkai/transpose-map
  ("c" . transpose-chars)