3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-03 13:38:32 +02:00
Code Issues Projects Releases Packages Wiki Activity

🔥 Remove unused code from worker import ns

Browse source
This commit is contained in:
Andrey Antukh 2025-05-27 15:25:52 +02:00
parent 91636ffc41
commit 22db773b2e
1 changed files with 0 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

47
frontend/src/app/worker/import.cljs
View file

@ -7,11 +7,9 @@
(ns app.worker.import
(:refer-clojure :exclude [resolve])
(:require
[app.common.data :as d]
[app.common.json :as json]
[app.common.logging :as log]
[app.common.schema :as sm]
[app.common.text :as ct]
[app.common.uuid :as uuid]
[app.main.repo :as rp]
[app.util.http :as http]
@ -44,51 +42,6 @@
:method :get})
(rx/map :body))))
(defn resolve-text-content
[node context]
(let [resolve (:resolve context)]
(->> node
(ct/transform-nodes
(fn [item]
(cond-> item
(uuid? (get item :fill-color-ref-id))
(d/update-when :fill-color-ref-id resolve)
(uuid? (get item :fill-color-ref-file))
(d/update-when :fill-color-ref-file resolve)
(uuid? (get item :typography-ref-id))
(d/update-when :typography-ref-id resolve)
(uuid? (get item :typography-ref-file))
(d/update-when :typography-ref-file resolve)))))))
(defn resolve-fills-content
[fills context]
(let [resolve (:resolve context)]
(->> fills
(mapv
(fn [fill]
(cond-> fill
(uuid? (get fill :fill-color-ref-id))
(d/update-when :fill-color-ref-id resolve)
(uuid? (get fill :fill-color-ref-file))
(d/update-when :fill-color-ref-file resolve)))))))
(defn resolve-strokes-content
[fills context]
(let [resolve (:resolve context)]
(->> fills
(mapv
(fn [fill]
(cond-> fill
(uuid? (get fill :stroke-color-ref-id))
(d/update-when :stroke-color-ref-id resolve)
(uuid? (get fill :stroke-color-ref-file))
(d/update-when :stroke-color-ref-file resolve)))))))
(defn parse-mtype [ba]
(let [u8 (js/Uint8Array. ba 0 4)
sg (areduce u8 i ret "" (str ret (if (zero? i) "" " ") (.toString (aget u8 i) 8)))]