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

      ;; (pp/pprint templates)
      ;; (log/info "RAW:")
      ;; (pp/pprint raw)
      (apply ->filesx spec raw))))

(defn- vet-demo
  [args]

                  (println))
                (System/exit -1))
              )))]
    ;; (pp/pprint (str "opts: " opts))
;;    (pp/pprint (str "merged opts: " (merge opts {})))
    (merge opts {})))

