 
 (defn- vet-platform
   [args]
-  (println "vet-platform")
+  ;; (println "vet-platform")
   (let [kw (first args)
         err-msg (str "platform " kw " not yet supported")]
     (cond

  [name & [render-fn]]
  (let [render (or render-fn render-text)]
    (fn [template & [data]]
      (println "rendering " template) ;; " data: " data)
      (let [path (string/join "/" ["leiningen" "new" (sanitize name) template])]
        ;; (println "RENDERER PATH:" path)
        (if-let [resource (io/resource path)]
          (if data
            (render (slurp-resource resource) data)


(defn- parse-args
  [& args]
  ;; (println "parsing " args)
  (let [[opts args]
        (loop [opts {}, args args]
          (let [arg1 (first args)]
