Hacking yo text editor!

projectile-hacks.el

(defun tw/find-project-folders (dir)
  (–map (file-relative-name it dir)
        (-filter (lambda (subdir)
                   (–reduce-from (or acc (funcall it subdir)) nil
                                 projectile-project-root-files-functions))
                 (-filter #‘file-directory-p (directory-files dir t “\<“)))))

(defun tw/open-project-by-name (start-dir &optional arg)
  (let ((project-dir (projectile-completing-read “Open project: “
                                                  (tw/find-project-folders start-dir))))
    (projectile-switch-project-by-name (expand-file-name project-dir start-dir) arg)))

(defun tw/project-prompt ()
  (interactive)
  (let ((current-work-dir "~/TIY/Cohorts/Cohort 5"))
    (tw/open-project-by-name current-work-dir)

(global-set-key "SPC P P" 'tw/project-prompt)