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

⚡ Improve performance and space efficiency of cursors namespace

Browse source
This commit is contained in:
Andrey Antukh 2023-12-22 09:01:30 +01:00 • committed by Alonso Torres
parent 127b02922f
commit bc91c46a9a
2 changed files with 73 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

19
frontend/src/app/main/ui/cursors.clj
View file

@ -7,6 +7,7 @@
(ns app.main.ui.cursors
(:require
[app.common.uri :as u]
[clojure.core :as c]
[clojure.java.io :as io]
[cuerdas.core :as str]))
@ -71,6 +72,20 @@
(defmacro cursor-fn
"Creates a dynamic cursor that can be rotated in runtime"
[id initial]
(let [cursor (encode-svg-cursor id "{{rotation}}" default-hotspot-x default-hotspot-y default-height)]
(let [[cp1 cp2] (-> (encode-svg-cursor id "$$$"
default-hotspot-x
default-hotspot-y
default-height)
(str/split #"\$\$\$"))]
`(fn [rot#]
(str/replace ~cursor "{{rotation}}" (+ ~initial rot#)))))
(str/concat ~cp1 (+ ~initial rot#) ~cp2))))
(defmacro collect-cursors
[]
(let [ns-info (:ns &env)]
`(cljs.core/js-obj
~@(->> (:defs ns-info)
(map val)
(filter (fn [entry] (-> entry :meta :cursor)))
(mapcat (fn [{:keys [name] :as entry}]
[(-> name c/name str/camel str/capital) name]))))))