Emacs: Switch to another project using (find-file)

switch-project-find-file.el

;; Description:
;; Emacs: Switch to another project using (find-file)
;; Gits URL: https://gist.github.com/jamescherti/bf74fb911d17583e7f4b57946f1ea775
;; License: MIT
;; Author: James Cherti

(defun my-project-prompt-project-dir ()
  "Prompt the user for a directory that is one of the known project roots."
  (project--ensure-read-project-list)
  (setq pr-dir (completing-read "Select project: " project--list nil t)))

(defun my-project-switch-project-find-file (dir)
  "Switch to another project using (find-file)."
  (interactive (list (my-project-prompt-project-dir)))
  (find-file dir))