From 9453925e348ea7e67e31666b36deef9cf23766b5 Mon Sep 17 00:00:00 2001
From: Sameer Rahmani <lxsameer@gnu.org>
Date: Thu, 2 May 2024 12:57:59 +0100
Subject: [PATCH] Map perspective mode to 'C-c w' to make room for rg's 'C-c p
 s'

---
 nix/modules/editor/lisp/fg42/editor.el       | 32 +++-----------------
 nix/modules/workspace/lisp/fg42/workspace.el |  2 +-
 2 files changed, 5 insertions(+), 29 deletions(-)

diff --git a/nix/modules/editor/lisp/fg42/editor.el b/nix/modules/editor/lisp/fg42/editor.el
index da35e5a..2a0c302 100644
--- a/nix/modules/editor/lisp/fg42/editor.el
+++ b/nix/modules/editor/lisp/fg42/editor.el
@@ -50,37 +50,13 @@
   (global-origami-mode t))
 
 
-;; (use! which-key
-;;   "which-key is a minor mode for Emacs that displays the key bindings following
-;; your currently entered incomplete command (a prefix) in a popup. For example,
-;; after enabling the minor mode if you enter ~C-x~ and wait for the default of
-;; 1 second the minibuffer will expand with all of the available key bindings
-;; that follow ~C-x~ (or as many as space allows given your settings).
-;; This includes prefixes like ~C-x 8~ which are shown in a different face."
-;;   :config
-;;   (which-key-setup-side-window-bottom)
-;;   (which-key-mode))
-
-
-;; (use! projectile
-;;   "Projectile is a project interaction library for Emacs. Its goal is to provide
-;; a nice set of features operating on a project level without introducing
-;; external dependencies."
-;;   :hook (emacs-startup . projectile-mode)
-;;   :config
-;;   ;; We don't want the auto discovery on startup
-;;   (setq projectile-auto-discover nil)
-;;   (setq projectile-enable-caching t)
-
-;;   :bind (:map projectile-mode-map
-;;               ("s-p" . projectile-command-map)
-;;               ("C-c p" . projectile-command-map)))
-
-
 (use! rg
   "A ripgrep based search utility."
   :commands rg-menu
-  :bind ("C-c s" . rg-menu))
+  :bind
+  ("C-c s" . rg-menu)
+  ("C-c p s" . rg-dwim-project-dir))
+
 
 (use! pkg-info
   "`pkg-info' integration.")
diff --git a/nix/modules/workspace/lisp/fg42/workspace.el b/nix/modules/workspace/lisp/fg42/workspace.el
index 66406b4..12191dc 100644
--- a/nix/modules/workspace/lisp/fg42/workspace.el
+++ b/nix/modules/workspace/lisp/fg42/workspace.el
@@ -33,7 +33,7 @@
   :bind
   ("C-x C-b" . persp-list-buffers)
   :custom
-  (persp-mode-prefix-key (kbd "C-c p")))
+  (persp-mode-prefix-key (kbd "C-c w")))
 
 
 (provide 'fg42/workspace)