 (defvar apm-projects '()
   "You projects")
 
-(defstruct apm-project path settings)
+(defstruct apm-project path local-vars open-action)
 
 (defun apm-local-find-project (path)
   (let ((path (expand-file-name path))

        (if project
            (apm-project-path project)
          path)))

(defun apm-local-apply-settings ()
  (let ((project (apm-local-find-project default-directory)))
    (if project
        (progn
          (setq default-directory (concat (apm-project-path project) "/"))
          (let ((settings (apm-project-settings project)))
            (while settings
              (eval (car settings))
              (setq settings (cdr settings))))))))

(defun apm-compile (command &optional comint)
  (interactive

;; Copyright (C) 2014 Alexander Prusov

;; Author: Alexander Prusov <alexprusov@gmail.com>
;; Version: 2.0.0
;; Created: 7.11.2014
;; Keywords: project
;; Homepage: https://github.com/Plambir/emacs-bootstrap
