;;; module-work-projects.el --- autoload work perspectives
;;;
;;; Commentary:
;;;
;;; Autoload work projects into perspectives.
;;;
;;; Code:

(require 'module-perspective)

(defun auto-create-work-project-perspectives ()
  "Automatically create perspectives for projects if the directory exists."
	(interactive)

	;; reduce context switching costs 
  (let ((projects-dir "~/src/pascom/mobydick"))
    (when (file-directory-p projects-dir)
      (create-perspectives-for-projects projects-dir)))
  (let ((projects-dir "~/src/pascom/client"))
    (when (file-directory-p projects-dir)
      (create-perspectives-for-projects projects-dir)))

	;; not much context switching for devops
	(persp-switch "pascom20_cloudmanagement")
	(dired "~/src/pascom/pascom20_cloudmanagement")
	(persp-add-buffer (current-buffer))
	(persp-switch "main"))

(global-set-key (kbd "C-x x w") #'auto-create-work-project-perspectives)

(provide 'module-work-projects)
;;; module-work-projects.el ends here.