Commit | Line | Data |
---|---|---|
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 | |
8 | "FIXME: write documentation" | |
9 | [name] | |
10 | (let [data {:name name | |
11 | :sanitized (name-to-path name)}] | |
12 | (main/info "Generating fresh 'lein new' flibbertigibbet project.") | |
13 | (->files data | |
14 | ["src/{{sanitized}}/foo.clj" (render "foo.clj" data)]))) |