More templates cleanup

Author: ErikSchierboom

generators/src/generator.clj

@@ -1,3 +1,5 @@
+(ns generator)
+
 (require
  '[clojure.data.json :as json]
  '[clojure.java.shell :refer [sh]]

generators/src/templates.clj

@@ -3,12 +3,16 @@
             [log]
             [paths]))
 
+(defn render-template [data template]
+  (selmer/render (slurp template) data))
+
 (defn render [slug test-cases]
-  (let [data {:slug slug :test_cases test-cases}
-        template-file (paths/generator-template-file slug)
-        tests-file (paths/tests-file slug)]
-    (->> data
-         (selmer/render (slurp template-file))
-         (spit tests-file))))
-
-(templates/render "isogram" (canonical-data/test-cases "isogram"))
+  (let [data {:slug slug :test_cases test-cases}]
+    (render-template data (paths/generator-template-file slug))))
+
+(defn generate-tests-file [slug test-cases]
+  (->> test-cases
+       (render slug)
+       (spit (paths/tests-file slug))))
+
+(templates/generate-tests-file "isogram" (canonical-data/test-cases "isogram"))