notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Prevent using invalid names

Browse Source
This commit is contained in:
oakes
2014-01-19 20:49:44 -05:00
parent ab5594ac10
commit 265ee56228
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
template/src/leiningen/new/play_clj.clj
View File

@@ -1,10 +1,13 @@
(ns leiningen.new.play-clj (ns leiningen.new.play-clj
(:require [clojure.java.io :as io] (:require [clojure.java.io :as io]
[leiningen.core.main :as main]
[leiningen.droid.new :as droid-new] [leiningen.droid.new :as droid-new]
[leiningen.new.templates :as t])) [leiningen.new.templates :as t]))
(defn play-clj (defn play-clj
[name & [package-name]] [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") (let [render (t/renderer "play-clj")
lein-droid-render (droid-new/renderer "templates") lein-droid-render (droid-new/renderer "templates")
desktop-class-name "desktop-launcher" desktop-class-name "desktop-launcher"