24 lines
683 B
EmacsLisp
24 lines
683 B
EmacsLisp
;;; 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)
|
|
(let ((projects-dir "~/src/pascom/mobydick"))
|
|
(when (file-directory-p projects-dir)
|
|
(create-perspectives-for-projects projects-dir)))
|
|
(persp-switch "pascom20_cloudmanagement")
|
|
(dired "~/src/pascom/pascom20_cloudmanagement")
|
|
(persp-add-buffer current-buffer)
|
|
(persp-switch "main"))
|
|
|
|
(provide 'module-work-projects)
|
|
;;; module-work-projects.el ends here.
|