21 lines
587 B
EmacsLisp
21 lines
587 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."
|
|
(let ((projects-dir "~/src/pascom/"))
|
|
(when (file-directory-p projects-dir)
|
|
(create-perspectives-for-projects projects-dir))))
|
|
|
|
;; Call this function when Emacs starts
|
|
(add-hook 'after-init-hook #'auto-create-work-project-perspectives)
|
|
|
|
;;; module-work-projects.el ends here.
|