Use builtin project instead of external projectile from now on

`projectile` is nice, but I rarely use a fraction of its functionality
and not having to use an external package for project management feels
more robust.

init.el

@@ -263,6 +263,9 @@
            (proced-goal-attribute nil)
            (proced-enable-color-flag t)))
 
+(use-package project
+  :init (setq project-list-file (expand-file-name "projects" emacs-d-userdata)))
+
 (use-package quail
   :init (setq default-input-method "TeX")
   :config (add-hook 'input-method-activate-hook
@@ -411,9 +414,7 @@
 (add-to-list 'package-pinned-packages '(lv . "melpa-stable"))
 
 (use-package projectile
-  :ensure t
   :commands (projectile-mode)
-  :defines (projectile-known-projects)
   :bind (:map projectile-mode-map ("C-c p" . projectile-command-map))
   :init (setq projectile-switch-project-action 'projectile-dired
               projectile-completion-system 'helm
@@ -422,8 +423,7 @@
               projectile-known-projects-file (expand-file-name "projectile-bookmarks.eld"
                                                                emacs-d-userdata)
               projectile-cache-file (expand-file-name "projectile.cache"
-                                                      emacs-d-userdata))
+                                                      emacs-d-userdata)))
-  :diminish projectile-mode)
 
 
 ;; * Text editing
@@ -2524,8 +2524,7 @@ eventuelly be set to nil, however)."
                                 (if (string= event "finished\n")
                                     (kill-buffer ,buff)))))))
 
-            ;; does not work; C-c is shadowed by some minor modes like semantic,
+            ;; Does not work; C-c is shadowed by some minor modes like semantic and winner
-            ;; projectile, and winner
             (bind-key "C-c" #'term-send-raw term-raw-map)
 
             ;; unbind some keys to allow the global keymap to handle them
@@ -2946,7 +2945,6 @@ eventuelly be set to nil, however)."
                   ace-window-display-mode
                   key-chord-mode
                   which-key-mode
-                  projectile-mode
                   yas-global-mode
                   global-git-commit-mode
                   marginalia-mode

site-lisp/db-projects.el

@@ -1,155 +0,0 @@
-;;; db-projects.el -- Simple Directory-Based Project Management -*- lexical-binding: t -*-
-
-;;; Commentary:
-
-;; A project is simply a directory under `db/projects-main-project-directory'
-;; containing either .git or .projectile.  This little collection of functions
-;; helps to manage these project directories and integrate them consistently
-;; with the projectile package.
-
-;; To start, first customize `db/projects-main-project-directory' and
-;; `db/projects-archive-directory' as needed.  Then use
-;; `db/projects-add-project' to add new projects and
-;; `db/projects-archive-project' to archive them (i.e., move them to
-;; `db/projects-archive-directory').  This package does not offer to remove
-;; projects; this has to be done manually.
-
-;;; Code:
-
-(require 'subr-x)
-(require 'cl-lib)
-(require 'dash)
-(require 'bookmark)
-(require 'projectile)
-
-
-
-(defgroup db/projects nil
-  "Simple directory-based project management."
-  :tag "Project Management"
-  :group 'db/projects)
-
-(defcustom db/projects-main-project-directory "~/Documents/projects/"
-  "Main directory to host projects."
-  :group 'db/projects
-  :type 'directory)
-
-(defcustom db/projects-archive-directory "~/Documents/projects/.archive/"
-  "Directory to archive projects into."
-  :group 'db/projects
-  :type 'directory)
-
-
-
-(defun db/projects-project-exists-p (short-name)
-  "Check whether a project named SHORT-NAME already exists."
-  (or
-   (file-exists-p (expand-file-name (concat (file-name-as-directory short-name)
-                                            ".git")
-                                    db/projects-main-project-directory))
-   (file-exists-p (expand-file-name (concat (file-name-as-directory short-name)
-                                            ".projectile")
-                                    db/projects-main-project-directory))))
-
-(defun db/projects-existing-projects ()
-  "Return list of all short-names of existing projects."
-  (cl-remove-if-not #'db/projects-project-exists-p
-                    (directory-files db/projects-main-project-directory
-                                     nil "^[^.]")))
-
-;;;###autoload
-(defun db/projects-add-project (short-name)
-  "Add new project with SHORT-NAME.
-The project directory will be located under
-`projects-main-project-directory' within a directory named
-SHORT-NAME."
-  (interactive "sShort Name: ")
-  (when (db/projects-project-exists-p short-name)
-    (user-error "Project %s already exists, exiting" short-name))
-  (when (file-exists-p (expand-file-name short-name
-                                         db/projects-archive-directory))
-    (user-error "Project %s already exists as archived project, exiting" short-name))
-  (let* ((project-directory (expand-file-name short-name
-                                              db/projects-main-project-directory))
-         (default-directory project-directory))
-    (make-directory project-directory)
-    (if-let ((git-executable (executable-find "git")))
-        (call-process git-executable nil nil nil "init")
-      (write-region "" nil (expand-file-name ".projectile")))
-    (projectile-add-known-project project-directory)))
-
-;;;###autoload
-(defun db/projects-archive-project (short-name)
-  "Archive existing project identified by SHORT-NAME.
-This amounts to moving the project directory SHORT-NAME under
-`projects-main-project-directory' to
-`projects-archive-directory', deleting all bookmarks into the
-project, and updating projectile's cache."
-  (interactive
-   (list (completing-read "Short Name: " (db/projects-existing-projects) nil t)))
-  (unless (db/projects-project-exists-p short-name)
-    (user-error "Project %s does not exist, exiting" short-name))
-
-  (let ((project-path (expand-file-name short-name db/projects-main-project-directory))
-        (archive-path (expand-file-name short-name db/projects-archive-directory)))
-
-    (when (file-exists-p archive-path)
-      (user-error "Archived project named %s already exists, aborting" short-name))
-
-    ;; Move project directory into archive
-    (unless (file-exists-p db/projects-archive-directory)
-      (make-directory db/projects-archive-directory))
-    (rename-file project-path archive-path nil)
-
-    ;; Update projectile’s cache
-    (projectile-cleanup-known-projects)))
-
-(defun db/projects--org-files ()
-  "Return all Org Mode files in all known projects, recursively.
-Paths returned are absolute, but may not be canonical."
-  (mapcan #'(lambda (dir)
-              (directory-files-recursively (expand-file-name dir db/projects-main-project-directory)
-                                           ".*\\.org" nil))
-          (db/projects-existing-projects)))
-
-;; Let's keep the byte compiler happy
-(defvar org-agenda-text-search-extra-files)
-(defvar org-agenda-files)
-
-(defun db/projects-find-unsearched-org-files ()
-  "Find Org Mode files in known projects that are not searched by default.
-This is done by checking all org Mode files in every project
-whether it is included in `org-agenda-text-search-extra-files' or
-in `org-agenda-files'."
-  (require 'org)
-  (let ((extra-files (make-hash-table :test #'equal)))
-    (mapc #'(lambda (entry)
-              (when (stringp entry)
-                (puthash (file-truename entry) t extra-files)))
-          (append org-agenda-files org-agenda-text-search-extra-files))
-    (cl-remove-if #'(lambda (org-file)
-                      (gethash (file-truename org-file) extra-files nil))
-                  (db/projects--org-files))))
-
-;;;###autoload
-(defun db/projects-lint-projects ()
-  "Check all known projects for proper configuration.
-This includes checking whether all bookmarks are in place and
-whether `org-agenda-text-search-extra-files' is set up to search
-through all included Org Mode files."
-  (interactive)
-  (with-current-buffer (get-buffer-create " *projects lint results*")
-
-    (erase-buffer)
-
-    (when-let ((unsearched-org-files (db/projects-find-unsearched-org-files)))
-      (insert "The following Org Mode files are not included in `org-agenda-text-search-extra-files'; you may want to add them.")
-      (dolist (file unsearched-org-files)
-        (insert "\n  " file))
-      (insert "\n\n"))
-
-    (display-buffer (current-buffer))))
-
-(provide 'db-projects)
-
-;;; db-projects.el ends here