feat(emacs): Fill some search-related stubs

users/crumb/programs/emacs/modules/syd-keybinds.el

@@ -23,10 +23,12 @@
     "r" `("Revert buffer" . ,#'revert-buffer))
 
   ;; Search
+  (require 'syd-search)
   (general-def
     :prefix-map 'syd-leader-search-map
     "i" `("IMenu" . ,#'consult-imenu)
-    "b" `("Search buffer" . ,#'syd/search-buffer))
+    "b" `("Search buffer" . ,#'syd-search-buffer)
+    "d" `("Search directory" . ,#'syd-search-directory))
 
   ;; File
   (require 'syd-file)
@@ -35,9 +37,8 @@
     "D" `("Delete file" . ,#'syd/delete-this-file)
     "R" `("Move file" . ,#'syd/move-this-file)
     "C" `("Copy file" . ,#'syd/copy-this-file)
-    ;; "F" `("Find file under here" . ,#'syd/find-file-under-here)
-    ;; "p" `("Find under Emacs config" . ,#'syd/find-file-under-emacs-user-directory)
-    "P" `("Browse Emacs config" . ,#'syd/find-file-in-emacs-user-directory)
+    "F" `("Find file in" . ,#'syd-find-file-in)
+    "P" `("Browse Emacs config" . ,#'syd-switch-to-emacs-user-directory)
     "u" `("Find file as root" . ,#'syd/find-file-as-root)
     "U" `("Open this file as root" . ,#'syd/open-this-file-as-root)
     "y" `("Yank buffer path" . ,#'syd/yank-buffer-path)
@@ -78,7 +79,8 @@
   ;; Project
   (general-def
     :prefix-map 'syd-leader-project-map
-    "C" `("Compile project" . ,#'project-compile))
+    "C" `("Compile project" . ,#'project-compile)
+    "." `("Browse project from root" . ,#'project-root-find-file))
 
   (general-def
     :prefix-map 'syd-leader-help-package-map
@@ -140,7 +142,9 @@
     "s" `("Search" . ,syd-leader-search-map)
     "h" `("Help" . ,help-map)
     "n" `("Notes" . ,syd-leader-notes-map)
-    "i" `("Insert" . ,syd-leader-insert-map)))
+    "i" `("Insert" . ,syd-leader-insert-map)
+    "," `("Switch buffer in project" . ,#'consult-project-buffer)
+    "<" `("Switch buffer" . ,#'consult-buffer)))
 
 (syd-keybinds-initialise)
 

users/crumb/programs/emacs/modules/syd-projects.el

@@ -2,9 +2,28 @@
 
 (require 'syd-constants)
 
-(use-package project
-  :custom ((project-list-file (file-name-concat syd-cache-dir
-                                                "known-projects"))))
+(with-eval-after-load 'project ; Built-in
+  ;; Stay out of my config directory!
+  (setq project-list-file (file-name-concat syd-cache-dir "known-projects"))
+  ;; For each command in `project-switch-commands' will assign it the key found
+  ;; in `project-prefix-map'.  We emulate that behaviour but for our own
+  ;; `syd-leader-project-map'.
+  (let* ((project-key
+          (lambda (f)
+            (key-description
+             (where-is-internal
+              f
+              ;; If the keymap is not wrapped in a list,
+              ;; `where-is-internal' will also search the
+              ;; global ;; keymaps
+              (list syd-leader-project-map)
+              ;; First result only.
+              t))))
+         (switch-cmd (lambda (command name &optional key)
+                       (append (list command name)
+                               (list (or key (funcall project-key command)))))))
+    (add-to-list 'project-switch-commands
+                 (funcall switch-cmd #'project-root-find-file "Browse"))))
 
 ;; Projection provides a Projectile-like project management library atop
 ;; Emacs built-in project.el.  It's more lightweight, while still featureful.