3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-26 02:57:23 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Add support for svg optimizations on workspace svg import

Browse source 
Under `enable-frontend-svgo` flag, disabled by default.
This commit is contained in:
Andrey Antukh 2023-09-14 18:11:04 +02:00
parent 3877eccc29
commit b92fcca17c
1 changed files with 28 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

35
frontend/src/app/main/data/workspace/media.cljs
View file

@ -12,11 +12,12 @@
[app.common.math :as mth] [app.common.math :as mth]
[app.common.pages.changes-builder :as pcb] [app.common.pages.changes-builder :as pcb]
[app.common.schema :as sm] [app.common.schema :as sm]
[app.common.svg :refer [optimize]]
[app.common.types.container :as ctn] [app.common.types.container :as ctn]
[app.common.types.shape :as cts] [app.common.types.shape :as cts]
[app.common.types.shape-tree :as ctst] [app.common.types.shape-tree :as ctst]
[app.common.uuid :as uuid] [app.common.uuid :as uuid]
[app.config :as cfg] [app.config :as cf]
[app.main.data.media :as dmm] [app.main.data.media :as dmm]
[app.main.data.messages :as msg] [app.main.data.messages :as msg]
[app.main.data.workspace.changes :as dch] [app.main.data.workspace.changes :as dch]
@ -34,14 +35,34 @@
[promesa.core :as p] [promesa.core :as p]
[tubax.core :as tubax])) [tubax.core :as tubax]))
(def ^:private svgo-config
{:multipass false
:plugins
[{:name "safePreset"
:params {:overrides
{:convertColors
{:names2hex true
:shorthex false
:shortname false}
:convertTransform
{:matrixToTransform false
:convertToShorts false
:transformPrecision 4
:leadingZero false}}}}]})
(defn svg->clj (defn svg->clj
[[name text]] [[name text]]
(try (try
(->> (rx/of (-> (tubax/xml->clj text) (let [text (if (contains? cf/flags :frontend-svgo)
(assoc :name name)))) (optimize text svgo-config)
text)
(catch :default _err data (-> (tubax/xml->clj text)
(rx/throw {:type :svg-parser})))) (assoc :name name))]
(rx/of data))
(catch :default cause
(js/console.error cause)
(rx/throw (ex/error :type :svg-parser
:hint (ex-message cause))))))
;; TODO: rename to bitmap-image-uploaded ;; TODO: rename to bitmap-image-uploaded
(defn image-uploaded (defn image-uploaded
@ -231,7 +252,7 @@
"Load the contents of a media-obj of type svg, and parse it "Load the contents of a media-obj of type svg, and parse it
into a clojure structure." into a clojure structure."
[media-obj] [media-obj]
(let [path (cfg/resolve-file-media media-obj)] (let [path (cf/resolve-file-media media-obj)]
(->> (http/send! {:method :get :uri path :mode :no-cors}) (->> (http/send! {:method :get :uri path :mode :no-cors})
(rx/map :body) (rx/map :body)
(rx/map #(vector (:name media-obj) %)) (rx/map #(vector (:name media-obj) %))