mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-15 11:21:19 -07:00
Code Issues Projects Releases Wiki Activity

Save project list as lisp data

Browse source 
Save the project list file as lisp data instead of line separated
strings to make it more extendable in the future.

* lisp/progmodes/project.el (project--read-project-list)
(project--write-project-list, project--add-to-project-list-front)
(project--remove-from-project-list): Adjust to `project--list' now
being an alist.
This commit is contained in:
Simen Heggestøyl 2020-06-05 19:32:30 +02:00
parent 5a6e790247
commit d4e7087b68
1 changed files with 9 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/progmodes/project.el
View file

@ -763,13 +763,8 @@ Arguments the same as in `compile'."
(when (file-exists-p filename)
(with-temp-buffer
(insert-file-contents filename)
(let ((dirs (split-string (buffer-string) "\n" t))
(project-list '()))
(dolist (dir dirs)
(cl-pushnew (file-name-as-directory dir)
project-list
:test #'equal))
(reverse project-list)))))))
(goto-char (point-min))
(read (current-buffer)))))))
(defun project--ensure-read-project-list ()
"Initialize `project--list' if it hasn't already been."
@ -780,7 +775,8 @@ Arguments the same as in `compile'."
"Persist `project--list' to the project list file."
(let ((filename project-list-file))
(with-temp-buffer
(insert (string-join project--list "\n"))
(insert ";;; -*- lisp-data -*-\n")
(pp project--list (current-buffer))
(write-region nil nil filename nil 'silent))))
(defun project--add-to-project-list-front (pr)
@ -788,9 +784,9 @@ Arguments the same as in `compile'."
Save the result to disk if the project list was changed."
(project--ensure-read-project-list)
(let ((dir (project-root pr)))
(unless (equal (car project--list) dir)
(setq project--list (delete dir project--list))
(push dir project--list)
(unless (equal (caar project--list) dir)
(setq project--list (assoc-delete-all dir project--list))
(push (list dir) project--list)
(project--write-project-list))))
(defun project--remove-from-project-list (pr-dir)
@ -798,8 +794,8 @@ Save the result to disk if the project list was changed."
If the directory was in the list before the removal, save the
result to disk."
(project--ensure-read-project-list)
(when (member pr-dir project--list)
(setq project--list (delete pr-dir project--list))
(when (assoc pr-dir project--list)
(setq project--list (assoc-delete-all pr-dir project--list))
(message "Project `%s' not found; removed from list" pr-dir)
(project--write-project-list)))