master 8b71bfb 1/2: project-list-file: New user option

[Dmitry Gutov]

branch: master
commit 8b71bfb891d4cc871e62dd63b28d834db4090577
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    project-list-file: New user option
    
    * lisp/progmodes/project.el (project): New custom group.
    (project-vc): Use it as parent.
    (project-vc-merge-submodules): Tag with Emacs version.
    (project-read-file-name-function): Assign to the 'project' group.
    (project-list-file): New user option (bug#41600).
    (project--write-project-list, project--read-project-list): Use it.
---
 lisp/progmodes/project.el | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/lisp/progmodes/project.el b/lisp/progmodes/project.el
index 0051a84..1c4dc7e 100644
--- a/lisp/progmodes/project.el
+++ b/lisp/progmodes/project.el
@@ -93,6 +93,10 @@
 (require 'cl-generic)
 (eval-when-compile (require 'subr-x))
 
+(defgroup project nil
+  "Operations on the current project."
+  :group 'tools)
+
 (defvar project-find-functions (list #'project-try-vc)
   "Special hook to find the project containing a given directory.
 Each functions on this hook is called in turn with one
@@ -236,7 +240,7 @@ to find the list of ignores for each directory."
 (defgroup project-vc nil
   "Project implementation based on the VC package."
   :version "25.1"
-  :group 'tools)
+  :group 'project)
 
 (defcustom project-vc-ignores nil
   "List of patterns to include in `project-ignores'."
@@ -249,6 +253,7 @@ to find the list of ignores for each directory."
 After changing this variable (using Customize or .dir-locals.el)
 you might have to restart Emacs to see the effect."
   :type 'boolean
+  :version "28.1"
   :package-version '(project . "0.2.0")
   :safe 'booleanp)
 
@@ -601,6 +606,7 @@ For the arguments list, see 
`project--read-file-cpd-relative'."
                  (const :tag "Read with completion from absolute names"
                         project--read-file-absolute)
                  (function :tag "Custom function" nil))
+  :group 'project
   :version "27.1")
 
 (defun project--read-file-cpd-relative (prompt
@@ -740,12 +746,17 @@ Arguments the same as in `compile'."
 
 ;;; Project list
 
+(defcustom project-list-file (locate-user-emacs-file "project-list")
+  "File to save the list of known projects."
+  :type 'string
+  :group 'project)
+
 (defvar project--list 'unset
   "List of known project directories.")
 
 (defun project--read-project-list ()
   "Initialize `project--list' from the project list file."
-  (let ((filename (locate-user-emacs-file "project-list")))
+  (let ((filename project-list-file))
     (setq project--list
           (when (file-exists-p filename)
             (with-temp-buffer
@@ -765,7 +776,7 @@ Arguments the same as in `compile'."
 
 (defun project--write-project-list ()
   "Persist `project--list' to the project list file."
-  (let ((filename (locate-user-emacs-file "project-list")))
+  (let ((filename project-list-file))
     (with-temp-buffer
       (insert (string-join project--list "\n"))
       (write-region nil nil filename nil 'silent))))