70ffdd86 |
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 |
8a43ca7e |
8 | "create new clojure projects" |
70ffdd86 |
9 | [name] |
10 | (let [data {:name name |
11 | :sanitized (name-to-path name)}] |
731451ad |
12 | (main/info (str "Generating fresh 'lein new' flibbertigibbet project: " |
13 | name)) |
70ffdd86 |
14 | (->files data |
15 | ["src/{{sanitized}}/foo.clj" (render "foo.clj" data)]))) |