Make join by space

Author: drake.aren

src/graphql_builder/generators/composed_query.cljc

@@ -32,10 +32,10 @@
 (defn query-variables [composition-parts]
   (let [variables (remove nil? (map :variables (vals composition-parts)))]
     (when (seq variables)
-      (str "(" (str/join ", " variables) ")"))))
+      (str "(" (str/join "," variables) ")"))))
 
 (defn make-query [query-name composition-parts]
-  (-> [(str "query " query-name (query-variables composition-parts) " {")
+  (-> [(str "query " query-name (query-variables composition-parts) "{")
        (map :children (vals composition-parts))
        "}"]
       flatten

src/graphql_builder/generators/field.cljc

@@ -7,7 +7,7 @@
   (let [name (:name node)
         field-name (:field-name node)]
     (if name
-      (str name ": " field-name)
+      (str name ":" field-name)
       field-name)))
 
 (defn generate [visitor deps config indent-level node]

src/graphql_builder/generators/inline_fragment.cljc

@@ -10,7 +10,7 @@
   (str "..." (:name node) (fragment-type-name node) (directives node config)))
 
 (defn open-block [node]
-  (when (has-children? node) " {"))
+  (when (has-children? node) "{"))
 
 (defn close-block [node indent-level]
   (when (has-children? node) (util/indent indent-level "}")))

src/graphql_builder/generators/operation.cljc

@@ -27,7 +27,7 @@
 
 (defn node-variables-body [node config]
   (when-let [variables (:variable-definitions node)]
-    (str/join ", " (map #(str "$" (variable-name % config) ": " (variable-value %)) variables))))
+    (str/join "," (map #(str "$" (variable-name % config) ":" (variable-value %)) variables))))
 
 (defn node-variables [node config]
   (when (:variable-definitions node)
@@ -55,7 +55,7 @@
 
 (defn generate [visitor deps config indent-level node]
   [(util/indent indent-level
-                (str (operation-name node) (node-variables node config) " {"))
+                (str (operation-name node) (node-variables node config) "{"))
    (visitor deps config (inc indent-level) (children node config))
    (util/indent indent-level "}")])
 

src/graphql_builder/generators/shared.cljc

@@ -31,9 +31,9 @@
 (defn generate-arg-list [args]
   (str "{"
        (->> args
-            (mapv (fn [v] (str (:field-name v) ": " (generate-arg (:value v)))))
-            (str/join ", "))
-    "}"))
+            (mapv (fn [v] (str (:field-name v) ":" (generate-arg (:value v)))))
+            (str/join ","))
+       "}"))
 
 (defn parse-arg [v]
   (cond
@@ -51,7 +51,7 @@
 
 (defn object-default-value [value]
   (str "{ "
-       (str/join ", " (map (fn [v] (str (:name v) ": " (parse-arg (:value v)))) value))
+       (str/join "," (map (fn [v] (str (:name v) ":" (parse-arg (:value v)))) value))
        " }"))
 
 (defn get-enum-or-string-value [argument]
@@ -65,7 +65,7 @@
   (let [value      (:value argument)
         value-type (:value-type argument)]
     (cond
-      (:values value)                                       (str "[" (str/join ", " (map get-enum-or-string-value (:values value))) "]")
+      (:values value)                                       (str "[" (str/join "," (map get-enum-or-string-value (:values value))) "]")
       (and (vector? value) (= :object-value (first value))) (object-default-value (last value))
       :else                                                 (get-enum-or-string-value argument))))
 
@@ -89,7 +89,7 @@
 (defn node-arguments [node config]
   (when-let [arguments (:arguments node)]
     (str "("
-         (str/join ", " (map #(str (:argument-name %) ": " (argument-value % config)) arguments))
+         (str/join "," (map #(str (:argument-name %) ":" (argument-value % config)) arguments))
          ")")))
 
 (defn directive [d config]
@@ -107,7 +107,7 @@
   (boolean (seq (:selection-set node))))
 
 (defn open-block [node]
-  (when (has-children? node) " {"))
+  (when (has-children? node) "{"))
 
 (defn close-block [node indent-level]
   (when (has-children? node) (util/indent indent-level "}")))

src/graphql_builder/util.cljc

@@ -5,7 +5,7 @@
 
 (defn nl-join [coll]
   (when (seq coll)
-    (str/join "\n" (vec (remove nil? coll)))))
+    (str/join "" (vec (remove nil? coll)))))
 
 (defn indent [level line]
   (str (str/join "" (repeat (* 2 level) " ")) line))