Include perspective in behavior

projectorg.el

@@ -75,15 +75,20 @@ It is an org file, with the same name as the project (including subdirectories),
       (find-file-other-window notes-file))))
 
 (defun projectorg/add-to-project-list (FILENAME &optional WILDCARDS)
-  "Add the currently visited project to the projectile list."
-  (unless (and (eq projectile-require-project-root 'prompt)
-               (not (projectile-project-p)))
-    (projectile-add-known-project (projectile-project-root))))
+  "Add the currently visited project to the projectile list.
+
+And switch to a perspective for the project."
+
+  (when (projectile-project-p FILENAME)
+      (persp-switch (projectile-project-name (projectile-project-root FILENAME)))
+        (projectile-add-known-project (projectile-project-root FILENAME))))
 
 (defun projectorg/remove-from-project-list ()
   (interactive)
-  (projectile-remove-current-project-from-known-projects)
-  (projectile-kill-buffers))
+  (let ((proj (projectile-project-name)))
+    (projectile-remove-current-project-from-known-projects)
+    (projectile-kill-buffers)
+    (persp-kill proj)))
 
 
 (provide 'projectorg)