35 lines
1.0 KiB
EmacsLisp
35 lines
1.0 KiB
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)
|
|
|
|
;; 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-switch "aws-ci")
|
|
(dired "~/src/pascom/aws-ci")
|
|
(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.
|