 
 (defun apm-find-project ()
   (interactive)
-  (let ((projects-list (apm-local-get-projects-path)))
+  (let ((projects-list (apm--get-projects-path)))
     (with-temp-buffer
       (setq default-directory
             (if ido-mode
                 (ido-completing-read "Project: " projects-list)
                 (completing-read "Project: " projects-list)))
-      (let ((project (apm-local-find-project default-directory)))
+      (let ((project (apm--find-project default-directory)))
         (if project
             (progn
-              (apm-local-apply-global-vars)
-              (apm-local-irony-support)
+              (apm--apply-global-vars)
+              (apm--irony-support)
               (let ((open-action (apm-project-open-action project)))
                 (if open-action
                     (if (listp open-action)

        command))
    (consp current-prefix-arg)))
  (with-temp-buffer
    (setq default-directory (concat (apm-local-get-project-dir default-directory) "/"))
    (compile command comint)))

(defun apm-compile-close ()

        nil
      (eval result))))

(defun apm--get-project-dir (path)
  (let ((project (apm--find-project path)))
        (if project
            (apm-project-path project)
          path)))
