feat(emacs): project

modules/home/users/crumb/emacs/lib/syd-project.el

@@ -31,7 +31,6 @@ project\"."
 
 (defun syd-project-search ()
   (interactive)
-  (require 'syd-file)
   ;; TODO: Prompt for path project root is not found.
   ;; TODO: Respect gitignore.
   (syd-search-directory (syd-project-root)))

modules/home/users/msyds/emacs/init.el

@@ -42,7 +42,9 @@
     syd/smartparens
     syd/snippets
     syd/ptemplate
-    syd/popups))
+    syd/popups
+    syd/pdf
+    syd/project))
 
 (defun syd-random-permutation (lst &optional seed)
   "Return a random permutation of list LST using SEED as the random state.  The

modules/home/users/msyds/emacs/lisp/syd/project.el

@@ -0,0 +1,92 @@
+;;; -*- lexical-binding: t; -*-
+
+(require 'syd/base)
+(require 'syd/completion) ; For `consult'.
+(require 'consult)
+
+(defun syd-project-root-find-file (file-name)
+  "Just like `project-root-find-file', but allowing you to select the root
+directory itself."
+  (declare (interactive-only find-file))
+  (interactive
+   (list (let ((root (project-root (project-current t))))
+           (read-file-name
+            "Find file in root: "
+            root root (confirm-nonexistent-file-or-buffer)))))
+  (find-file file-name t))
+
+(defun syd-search-directory (dir)
+  (interactive (list (read-directory-name
+                      "Search directory: "
+                      default-directory nil t)))
+  (cond ((executable-find "rg")
+         (consult-ripgrep dir))
+        ((executable-find "grep")
+         (message "Couldn't find ripgrep; using grep")
+         (consult-grep dir))))
+
+(cl-defun syd-project-root (&key (dir default-directory))
+  "Return the project root of DIR, or nil if DIR belongs to no project."
+  (when-let* ((project (project-current nil dir)))
+    (project-root project)))
+
+(defun syd-project-cd ()
+  "Change the working directory to the root of the current project."
+  (cd (syd-project-root)))
+
+(defun syd-project-search ()
+  (interactive)
+  (require 'syd-file)
+  ;; TODO: Prompt for path project root is not found.
+  ;; TODO: Respect gitignore.
+  (syd-search-directory (syd-project-root)))
+
+(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 #'syd-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.
+(use-package projection
+  :straight (:type git
+             :host github
+             :repo "msyds/projection"
+             :files (:defaults "src/*.el"))
+  ;; Enable the `projection-hook' feature.
+  :hook (after-init . global-projection-hook-mode)
+  :general (:keymaps 'syd-leader-project-map
+            "R" #'projection-commands-run-project
+            "M" #'projection-multi-compile
+            "T" #'projection-commands-test-project))
+
+;; Allow interactively selecting available compilation targets from the
+;; current project type.
+(use-package projection-multi
+  :straight (:type git
+             :host github
+             :repo "msyds/projection"
+             :files ("src/projection-multi/*.el"))
+  :general (:keymaps 'syd-leader-project-map
+            "M" #'projection-multi-compile)
+  :after projection)
+
+(provide 'syd/project)