Commit | Line | Data |
---|---|---|
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)]))) |