Allow running as main

Author: ErikSchierboom

generators/deps.edn

@@ -1,4 +1,5 @@
-{:deps {org.clojure/data.json {:mvn/version "2.5.1"}
+{:paths ["src"]
+ :deps {org.clojure/data.json {:mvn/version "2.5.1"}
         selmer/selmer {:mvn/version "1.12.61"}
         io.github.tonsky/toml-clj {:mvn/version "0.1.0"}
         clj-jgit/clj-jgit {:mvn/version "1.1.0"}}}

generators/src/canonical-data.clj renamed to generators/src/canonical_data.clj

@@ -15,7 +15,7 @@
 
 (defn- clone-repo [] (git-clone git-url :branch "main" :dir paths/prob-specs-dir))
 
-(defn- sync-repo []
+(defn sync-repo []
   (try
     (pull-repo)
     (catch java.io.FileNotFoundException  _ (clone-repo))))
@@ -63,4 +63,3 @@
        (remove (excluded? slug))
        (into [])))
 
-(sync-repo)

generators/src/generator.clj

@@ -1,84 +1,18 @@
-(ns generator)
-
-(require
- '[clojure.data.json :as json]
- '[clojure.java.shell :refer [sh]]
- '[clojure.java.io :as io]
- '[selmer.parser :refer [render render-file]]
- '[toml-clj.core :as toml])
-
-(defn error [message]
-  (println message)
-  (System/exit 1))
-
-(def root-dir (.getCanonicalPath (io/file *file* ".." ".." "..")))
-(def prob-specs-dir (io/file root-dir ".problem-specifications"))
-(defn exercise-dir [slug] (io/file root-dir "exercises" "practice" slug))
-
-(defn sync-prob-specs []
-  (if (.isDirectory prob-specs-dir)
-    (sh "git" "pull" :dir prob-specs-dir)
-    (sh "git" "clone" "https://github.com/exercism/problem-specifications.git" prob-specs-dir)))
-
-(defn canonical-data-file [slug] (io/file prob-specs-dir "exercises" slug "canonical-data.json"))
-(defn canonical-data [slug]
-  (let [file (canonical-data-file slug)]
-    (if (.exists file)
-      (json/read (io/reader file) :key-fn keyword)
-      (error (str "No canonical-data.json found for exercise '" slug "'")))))
-
-(defn tests-toml-file [slug] (io/file (exercise-dir slug) ".meta" "tests.toml"))
-(defn excluded-uuids [slug]
-  (let [file (tests-toml-file slug)]
-    (if (.exists file)
-      (->> file
-           (io/reader)
-           (toml/read)
-           (filter #(= false (get (last %) "include")))
-           (map first)
-           (set))
-      (error (str "No tests.toml data found for exercise '" slug "'")))))
-
-(defn excluded? [slug]
-  (let [excluded (excluded-uuids slug)]
-    (fn [node] (contains? excluded (:uuid node)))))
-
-(defn node->test-case [node path]
-  (-> node
-      (assoc :path path :error (get-in node [:expected :error]))
-      (dissoc :reimplements :comments :scenarios)))
-
-(defn test-case-nodes
-  ([node] (test-case-nodes node []))
-  ([node path]
-   (let [description (:description node)
-         children (:cases node)
-         updated-path (if description (conj path description) path)]
-     (if children
-       (mapcat #(test-case-nodes % updated-path) children)
-       [(node->test-case node updated-path)]))))
-
-(defn test-cases [slug]
-  (->> slug
-       (canonical-data)
-       (test-case-nodes)
-       (remove (excluded? slug))
-       (into [])))
-
-(sync-prob-specs)
-(test-cases "isogram")
-
-(def data {:slug "isogram"
-           :cases (cases (canonical-data "isogram"))})
-
-(def template "/Users/erik/Code/exercism/tracks/clojure/exercises/practice/collatz-conjecture/.meta/tests.template")
-(def tests "/Users/erik/Code/exercism/tracks/clojure/exercises/practice/collatz-conjecture/.meta/tests.clj")
-
-(def toml-file "/home/erik/exercism/tracks/clojure/exercises/practice/collatz-conjecture/.meta/tests.toml")
-
-(spit tests (render (slurp template) data))
-(def t (toml/read (io/reader toml-file)))
-(set (map first (filter #(not= false (get (last %) "include")) t)))
-
-(.getAbsolutePath (io/file *file* ".." ".."))
-(.getCanonicalPath (io/file *file* ".." ".." ".."))
+(ns generator
+  (:require [canonical-data]
+            [templates]
+            [log]))
+
+(defn- slugs-to-generate [args]
+  (let [slugs templates/exercises-with-template]
+    (if-let [slug (first args)]
+      (if (contains? slugs slug)
+        [slug]
+        (log/error (str "No template found for exercise '" slug "'")))
+      slugs)))
+
+(defn- run [args]
+  (canonical-data/sync-repo)
+  (doseq [slug (slugs-to-generate args)]
+    (log/normal (str "Generating tests for exercise '" slug "'"))
+    (templates/generate-tests-file slug (canonical-data/test-cases slug))))  

generators/src/log.clj

@@ -1,5 +1,8 @@
 (ns log)
 
+(defn normal [message]
+  (println message))
+
 (defn error [message]
   (println message)
   (System/exit 1))

generators/src/paths.clj

@@ -2,7 +2,7 @@
   (:require [clojure.java.io :as io]
             [clojure.string :as str]))
 
-(def generators-dir (.getCanonicalPath (io/file *file* ".." "..")))
+(def generators-dir (.getCanonicalPath (io/file ".")))
 (def root-dir (.getCanonicalPath (io/file generators-dir "..")))
 (def prob-specs-dir (io/file generators-dir ".problem-specifications"))
 (def exercises-dir (io/file root-dir "exercises" "practice"))

generators/src/templates.clj

@@ -3,16 +3,21 @@
             [log]
             [paths]))
 
-(defn render-template [data template]
+(def exercises-with-template
+  (->> paths/exercises-dir
+       (file-seq)
+       (filter #(.isFile %))
+       (filter #(= "generator.template" (.getName %)))
+       (mapv #(-> % (.getParentFile) (.getParentFile) (.getName)))))
+
+(defn- render-template [data template]
   (selmer/render (slurp template) data))
 
-(defn render [slug test-cases]
+(defn- render [slug test-cases]
   (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"))