Add ClojureScript support

Author: furkan3ayraktar

components/clojure-test-test-runner/src/polylith/clj/core/clojure_test_test_runner/core.clj

@@ -10,16 +10,26 @@
          (require '~ns-symbol)
          (clojure.test/run-tests '~ns-symbol))))
 
+(defn- clj-namespace? [{:keys [file-path]}]
+  (or (str/ends-with? file-path ".clj")
+      (str/ends-with? file-path ".cljc")))
+
 (defn brick-test-namespaces [bricks test-brick-names]
-  (let [brick-name->namespaces (into {} (map (juxt :name #(-> % :namespaces :test))) bricks)]
-    (into []
-          (comp (mapcat brick-name->namespaces)
-                (map :namespace))
-          test-brick-names)))
+  (let [brick-name->namespaces (->> bricks
+                                    (map (juxt :name #(-> % :namespaces :test)))
+                                    (into {}))]
+    (->> test-brick-names
+         (mapcat brick-name->namespaces)
+         (filter clj-namespace?)
+         (map :namespace)
+         (into []))))
 
 (defn project-test-namespaces [project-name projects-to-test namespaces]
   (when (contains? (set projects-to-test) project-name)
-    (mapv :namespace (:test namespaces))))
+    (->> (:test namespaces)
+         (filter clj-namespace?)
+         (map :namespace)
+         (into []))))
 
 (defn components-msg [component-names color-mode]
   (when (seq component-names)

components/common/src/polylith/clj/core/common/core.clj

@@ -4,8 +4,6 @@
             [polylith.clj.core.util.interface :as util]
             [polylith.clj.core.user-config.interface :as user-config]))
 
-(def cljs? false)
-
 (def entity->short {"w" "w"
                     "p" "p"
                     "b" "b"
@@ -67,11 +65,12 @@
 (defn hidden-file? [path]
   (str/starts-with? (path->filename path) "."))
 
-(defn filter-clojure-paths [paths]
+(defn filter-clojure-paths [ws-dialects paths]
   (filterv #(and 
-              (or (str/ends-with? % ".clj")
-                  (and cljs? (str/ends-with? % ".cljs"))
-                  (str/ends-with? % ".cljc"))
+              (or (str/ends-with? % ".cljc")
+                  (str/ends-with? % ".clj")
+                  (and (contains? ws-dialects "cljs") 
+                       (str/ends-with? % ".cljs")))
               ;; E.g. temporary emacs files might give problems
               (not (hidden-file? %)))
            paths))

components/common/src/polylith/clj/core/common/interface.clj

@@ -8,8 +8,6 @@
             [polylith.clj.core.common.validate-args :as validate-args]
             [polylith.clj.core.version.interface :as version]))
 
-(def cljs? core/cljs?)
-
 (def entity->short core/entity->short)
 (def entity->long core/entity->long)
 
@@ -43,8 +41,8 @@
 (defn extract-namespace [suffixed-top-ns ns-to-extract]
   (ns-extractor/extract suffixed-top-ns ns-to-extract))
 
-(defn filter-clojure-paths [paths]
-  (core/filter-clojure-paths paths))
+(defn filter-clojure-paths [ws-dialects paths]
+  (core/filter-clojure-paths ws-dialects paths))
 
 (defn find-base [base-name bases]
   (core/find-base base-name bases))

components/config-reader/src/polylith/clj/core/config_reader/config_reader.clj

@@ -70,20 +70,20 @@
        (dirs-with-deps-file ws-dir "project")))
 
 (defn read-development-deps-config-file [ws-dir ws-type]
-  (let [deps-filename (str ws-dir "/deps.edn")]
-    (let [{:keys [config error]} (deps-reader/read-deps-file deps-filename "deps.edn")]
-      (if error
-        {:error error}
-        (let [message (validator/validate-project-dev-config ws-type config "./deps.edn")]
-          (if message
-            {:error message}
-            {:deps config
-             :is-dev true
-             :name "development"
-             :type "project"
-             :project-name "development"
-             :project-dir (str ws-dir "/development")
-             :project-config-dir ws-dir}))))))
+  (let [deps-filename (str ws-dir "/deps.edn")
+        {:keys [config error]} (deps-reader/read-deps-file deps-filename "deps.edn")]
+    (if error
+      {:error error}
+      (let [message (validator/validate-project-dev-config ws-type config "./deps.edn")]
+        (if message
+          {:error message}
+          {:deps config
+           :is-dev true
+           :name "development"
+           :type "project"
+           :project-name "development"
+           :project-dir (str ws-dir "/development")
+           :project-config-dir ws-dir})))))
 
 (defn clean-project-configs [configs]
   (mapv #(dissoc %
@@ -99,12 +99,12 @@
       (filter-config-files)))
 
 (defn read-workspace-config-file [ws-dir]
-  (let [filename-path (str ws-dir "/workspace.edn")]
-    (let [{:keys [config error]} (deps-reader/read-deps-file filename-path "workspace.edn")]
-      (if error
-        {:error error}
-        (let [message (validator/validate-workspace-config config)]
-          (if message
-            {:error (str "Error in ./workspace.edn: " message)
-             :config config}
-            {:config config}))))))
+  (let [filename-path (str ws-dir "/workspace.edn")
+        {:keys [config error]} (deps-reader/read-deps-file filename-path "workspace.edn")]
+    (if error
+      {:error error}
+      (let [message (validator/validate-workspace-config config)]
+        (if message
+          {:error (str "Error in ./workspace.edn: " message)
+           :config config}
+          {:config config})))))

components/config-reader/src/polylith/clj/core/config_reader/deps_reader.clj

@@ -15,10 +15,11 @@
         new-paths
         [new-paths]))))
 
-(defn substitute-alias [sources alias->path]
+(defn substitute-alias
   "If the incoming vector of sources are strings, e.g. ['src' 'resources'] then do nothing,
    but if it is an alias, e.g. [:src-paths :resources-paths], then return the substituted values
    taken from the alias->path map."
+  [sources alias->path]
   (vec (mapcat #(substitute-if-alias % alias->path)
                sources)))
 

components/config-reader/src/polylith/clj/core/config_reader/interface.clj

@@ -5,8 +5,8 @@
             [polylith.clj.core.config-reader.ws-root :as ws-root]))
 
 (defn file-exists?
-  [filename _]
   "The second argument is used for test purposes."
+  [filename _]
   (check-file/file-exists? filename))
 
 (defn clean-project-configs [configs]

components/creator/resources/creator/templates/workspace.edn

@@ -1,6 +1,7 @@
 {:top-namespace "{{top-ns}}"
  :interface-ns "interface"
  :default-profile-name "default"
+ :dialects #{"clj"}
  :compact-views #{}
  :vcs {:name "git"
        :auto-add false}

components/creator/test/polylith/clj/core/creator/workspace_test.clj

@@ -135,6 +135,7 @@
     (is (= ["{:top-namespace \"se.example\""
             " :interface-ns \"interface\""
             " :default-profile-name \"default\""
+            " :dialects #{\"clj\"}"
             " :compact-views #{}"
             " :vcs {:name \"git\""
             "       :auto-add false}"

components/util/src/polylith/clj/core/util/interface/dialects.clj

@@ -0,0 +1,14 @@
+(ns ^:no-doc polylith.clj.core.util.interface.dialects)
+
+(def valid-dialects #{"clj" "cljs"})
+
+(defn valid-dialect? [dialect]
+  (contains? valid-dialects dialect))
+
+(defn clean-dialects [dialects]
+  (let [valid-dialects (if (coll? dialects)
+                         (->> dialects (filter valid-dialect?) (into #{}))
+                         #{})]
+    (if (empty? valid-dialects) 
+      #{"clj"}
+      valid-dialects)))

components/validator/src/polylith/clj/core/validator/datashape/toolsdeps2.clj

@@ -57,6 +57,14 @@
     [:or project-test-config-schema
      vector?]]]) ;; legacy
 
+(def dialect
+  [:enum "clj" "cljs"])
+
+(def dialects-schema
+  [:or
+   [:vector {:min 1} dialect]
+   [:set {:min 1} dialect]])
+
 (def workspace-schema
   [:map
    [:vcs {:optional true} [:or string? map?]]
@@ -69,7 +77,8 @@
    [:tag-patterns {:optional true} map?]
    [:projects {:optional true}
     [:map-of :string project-settings-schema]]
-   [:test {:optional true} test-runner-config-schema]])
+   [:test {:optional true} test-runner-config-schema]
+   [:dialects {:optional true} dialects-schema]])
 
 (defn validate-workspace-config [config]
   (-> workspace-schema