From 265ee56228c7ac7d1a2b1b1739ea4c8feec1aadf Mon Sep 17 00:00:00 2001 From: oakes Date: Sun, 19 Jan 2014 20:49:44 -0500 Subject: [PATCH] Prevent using invalid names --- template/src/leiningen/new/play_clj.clj | 3 +++ 1 file changed, 3 insertions(+) diff --git a/template/src/leiningen/new/play_clj.clj b/template/src/leiningen/new/play_clj.clj index 4dea47a..f38956b 100644 --- a/template/src/leiningen/new/play_clj.clj +++ b/template/src/leiningen/new/play_clj.clj @@ -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"