Prevent using invalid names

This commit is contained in:
oakes
2014-01-19 20:49:44 -05:00
parent ab5594ac10
commit 265ee56228

View File

@@ -1,10 +1,13 @@
(ns leiningen.new.play-clj
(:require [clojure.java.io :as io]
[leiningen.core.main :as main]
[leiningen.droid.new :as droid-new]
[leiningen.new.templates :as t]))
(defn play-clj
[name & [package-name]]
(when (contains? #{"game" "main-screen"} name)
(main/abort "Choose a more creative name than that, silly!"))
(let [render (t/renderer "play-clj")
lein-droid-render (droid-new/renderer "templates")
desktop-class-name "desktop-launcher"