Added directory creation stubs to appengine-new.

src/appengine_magic/core.clj

@@ -61,15 +61,3 @@
 ;;; syntax for keyword arguments.
 (defmacro stop [{:keys [server] :or {server '*server*}}]
   `(stop* @~server))
-
-
-;;; TODO: Implement this. Leiningen plugin?
-(defn compile-to-servlet [appengine-app servlet-class-name])
-
-
-;;; TODO: Implement this. Leiningen plugin?
-(defn deploy [])
-
-
-;;; TODO: Implement this. Leiningen plugin?
-(defn rollback [])

src/leiningen/appengine_new.clj

@@ -1,8 +1,22 @@
 (ns leiningen.appengine-new
-  "Create the skeleton of a Google App Engine application.")
+  "Create the skeleton of a Google App Engine application."
+  (:import java.io.File))
 
 
 (defn appengine-new [project]
-  (println "making new project")
-  ;; TODO: Fill this in.
-  )
+  (let [resources-dir (File. (:resources-path project))
+        war-dir (File. resources-dir "war")
+        WEB-INF-dir (File. war-dir "WEB-INF")]
+    (println "making new App Engine project")
+    ;; set up the required paths
+    (when-not (.exists resources-dir)
+      (.mkdir resources-dir)
+      (println "created resources directory" (.getPath resources-dir)))
+    (when-not (.exists war-dir)
+      (.mkdir war-dir)
+      (println "created war directory" (.getPath war-dir)))
+    (when-not (.exists WEB-INF-dir)
+      (.mkdir WEB-INF-dir)
+      (println "created WEB-INF directory" (.getPath WEB-INF-dir)))
+    ;; add required configuration files
+    ))