challenge-bot.com Git - flibbertigibbet/blob - src/leiningen/new/flibbertigibbet.clj

   1 (ns leiningen.new.flibbertigibbet
   2   (:require [leiningen.new.templates :refer [renderer name-to-path ->files]]
   3             [leiningen.core.main :as main]))
   4
   5 (def render (renderer "flibbertigibbet"))
   6
   7 (defn flibbertigibbet
   8   "create new clojure projects"
   9   [name]
  10   (let [data {:name name
  11               :sanitized (name-to-path name)}]
  12     (main/info (str "Generating fresh 'lein new' flibbertigibbet project: "
  13                     name))
  14     (->files data
  15              ["src/{{sanitized}}/foo.clj" (render "foo.clj" data)])))