20 lines
511 B
EmacsLisp
20 lines
511 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))))
|
|
|
|
|
|
(provide 'module-work-projects)
|
|
;;; module-work-projects.el ends here.
|