Revert "✨ Add support for svg optimizations on exporter output"

This reverts commit 9fc771292a.

common/src/app/common/schema.cljc

@@ -316,22 +316,6 @@
                     (let [v (if (string? v) (str/split v #"[\s,]+") v)]
                       (into #{} non-empty-strings-xf v)))}})
 
-(def! ::set-of-keywords
-  {:type ::set-of-keywords
-   :pred #(and (set? %) (every? keyword? %))
-   :type-properties
-   {:title "set[string]"
-    :description "Set of Strings"
-    :error/message "should be a set of strings"
-    :gen/gen (-> :keyword sg/generator sg/set)
-    ::oapi/type "array"
-    ::oapi/format "set"
-    ::oapi/items {:type "string" :format "keyword"}
-    ::oapi/unique-items true
-    ::oapi/decode (fn [v]
-                    (let [v (if (string? v) (str/split v #"[\s,]+") v)]
-                      (into #{} (comp non-empty-strings-xf (map keyword)) v)))}})
-
 (def! ::set-of-emails
   {:type ::set-of-emails
    :pred #(and (set? %) (every? string? %))

exporter/src/app/config.cljs

@@ -9,15 +9,14 @@
   (:require
    ["process" :as process]
    [app.common.data :as d]
-   [app.common.flags :as flags]
-   [app.common.pprint :as pp]
-   [app.common.schema :as sm]
    [app.common.spec :as us]
    [app.common.version :as v]
    [cljs.core :as c]
+   [cljs.pprint]
+   [cljs.spec.alpha :as s]
    [cuerdas.core :as str]))
 
-(def ^:private defaults
+(def defaults
   {:public-uri "http://localhost:3449"
    :tenant "default"
    :host "localhost"
@@ -25,19 +24,22 @@
    :http-server-host "0.0.0.0"
    :redis-uri "redis://redis/0"})
 
-(def ^:private schema:config
+(s/def ::http-server-port ::us/integer)
-  [:map {:title "config"}
+(s/def ::http-server-host ::us/string)
-   [:public-uri {:optional true} ::sm/uri]
+(s/def ::public-uri ::us/uri)
-   [:host {:optional true} :string]
+(s/def ::tenant ::us/string)
-   [:tenant {:optional true} :string]
+(s/def ::host ::us/string)
-   [:flags {:optional true} ::sm/set-of-keywords]
+(s/def ::browser-pool-max ::us/integer)
-   [:redis-uri {:optional true} :string]
+(s/def ::browser-pool-min ::us/integer)
-   [:browser-pool-max {:optional true} :int]
-   [:browser-pool-min {:optional true} :int]])
 
-(defn- parse-flags
+(s/def ::config
-  [config]
+  (s/keys :opt-un [::public-uri
-  (flags/parse (:flags config)))
+                   ::host
+                   ::tenant
+                   ::http-server-port
+                   ::http-server-host
+                   ::browser-pool-max
+                   ::browser-pool-min]))
 
 (defn- read-env
   [prefix]
@@ -56,30 +58,24 @@
 
 (defn- prepare-config
   []
-  (let [env  (read-env "penpot")
+  (try
-        env  (d/without-nils env)
+    (let [env  (read-env "penpot")
-        data (merge defaults env)
+          env  (d/without-nils env)
-        data (sm/decode schema:config data sm/default-transformer)]
+          data (merge defaults env)]
-
+      (us/conform ::config data))
-    (when-not (sm/validate schema:config data)
+    (catch :default cause
-      (pp/pprint (-> (sm/explain-data schema:config data)
+      (js/console.log (us/pretty-explain (ex-data cause)))
-                     (sm/humanize)))
+      (throw cause))))
-      (process/exit -1))
-
-    data))
 
 (def config
-  (prepare-config))
+  (atom (prepare-config)))
 
 (def version
-  (v/parse "%version%"))
+  (atom (v/parse "%version%")))
-
-(def flags
-  (parse-flags config))
 
 (defn get
   "A configuration getter."
   ([key]
-   (c/get config key))
+   (c/get @config key))
   ([key default]
-   (c/get config key default)))
+   (c/get @config key default)))

exporter/src/app/core.cljs

@@ -21,7 +21,7 @@
   [& _]
   (l/info :msg "initializing"
           :public-uri (str (cf/get :public-uri))
-          :version (:full cf/version))
+          :version (:full @cf/version))
   (p/do!
    (bwr/init)
    (redis/init)

exporter/src/app/http.cljs

@@ -172,8 +172,7 @@
     (.listen server port)
     (l/info :hint "welcome to penpot"
             :module "exporter"
-            :flags cf/flags
+            :version (:full @cf/version))
-            :version (:full cf/version))
     (l/info :hint "starting http server" :port port)
     (reset! instance server)))
 

exporter/src/app/renderer/svg.cljs

@@ -10,7 +10,6 @@
    [app.browser :as bw]
    [app.common.data :as d]
    [app.common.logging :as l]
-   [app.common.svg :as svg]
    [app.common.uri :as u]
    [app.config :as cf]
    [app.util.mime :as mime]
@@ -317,11 +316,7 @@
                       ;; SVG standard don't allow the entity
                       ;; nbsp.   is equivalent but compatible
                       ;; with SVG.
-                      result  (str/replace result " " " ")
+                      result  (str/replace result " " " ")]
-
-                      result  (if (contains? cf/flags :exporter-svgo)
-                                (svg/optimize result)
-                                result)]
 
                 ;; (println "------- ORIGIN:")
                 ;; (cljs.pprint/pprint (xml->clj xmldata))