diff --git a/emacs/module/module-work-projects.el b/emacs/module/module-work-projects.el index 0ffa205..8de16ae 100644 --- a/emacs/module/module-work-projects.el +++ b/emacs/module/module-work-projects.el @@ -10,9 +10,14 @@ (defun auto-create-work-project-perspectives () "Automatically create perspectives for projects if the directory exists." + (interactive) (let ((projects-dir "~/src/pascom/")) (when (file-directory-p projects-dir) - (create-perspectives-for-projects projects-dir)))) + (create-perspectives-for-projects projects-dir))) + (persp-switch "pascom20_cloudmanagement") + (dired "~/src/pascom20_cloudmanagement") + (persp-add-buffer current-buffer) + (persp-switch "main")) (provide 'module-work-projects) ;;; module-work-projects.el ends here.