   [[] (ref {:pages pages :overwrite-query overwrite-query})])
 
 (defn config-new-project
-  [root name nature-ids monitor]
+  [root name monitor]
   (try
     (let
       [project (.getProject root name)]

      op (ImportOperation. dest-path (.getRoot structure-provider) structure-provider overwrite-query)]
    (.run op monitor)))

(defn do-imports
  [project monitor overwrite-query]
  (try
    (let
      [dest-path (.getFullPath project)
        zip-file (get-zipfile-from-plugin-dir "examples/labrepl.zip")]
      (import-files-from-zip zip-file dest-path (SubProgressMonitor. monitor 1) overwrite-query))
    (catch CoreException exception (throw (InvocationTargetException. exception)))))

(defn create-project
  [root page monitor overwrite-query]
  (.beginTask monitor "Configuring project..." 1)
  (let [nature-ids ["org.eclipse.pde.PluginNature"
                    "org.eclipse.jdt.core.javanature"
                    "ccw.nature"]
        project-name (.getProjectName page)
        project (config-new-project root project-name nature-ids monitor)]
     (do-imports project (SubProgressMonitor. monitor 1) overwrite-query)))

(defn -run

      (if (not (.isOpen project)) (.open project nil))
      (let
        [desc (.getDescription project)]
        (.setLocation desc nil)
        (.setDescription project desc (SubProgressMonitor. monitor 1))
        project))
    (catch CoreException exception (throw (InvocationTargetException. exception)))))
