gistfile1.el

(defun tonini-load-cabbage-project-settings ()
  (let ((project-setting-file (concat (cabbage-project-root) ".cabbage")))
    (when (file-readable-p project-setting-file)
      (load project-setting-file))))

(add-hook 'cabbage-after-project-hook 'tonini-load-cabbage-project-settings)


;; Run hook
(defun cabbage-project-ido-find-project ()
  (interactive)
  (let ((project-name (ido-completing-read "Project: "
                                           (directory-files cabbage-project-location nil "^[^.]"))))
    (cabbage-persp project-name)
    (let ((default-directory (concat cabbage-project-location project-name)))
      (call-interactively cabbage-project-find-file-function)
      (run-hooks 'cabbage-after-project-hook))))