Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-10 00:40:30 -05:00
Code Issues Activity

✨ Adds constraints to export/import

Browse source
This commit is contained in:
alonso.torres 2021-06-14 16:12:51 +02:00
parent d6e009ce78
commit 8952cb4e00
2 changed files with 27 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
frontend/src/app/main/ui/shapes/export.cljs
View file

@ -70,6 +70,11 @@
(obj/set! "penpot:center-x" (-> center :x str))
(obj/set! "penpot:center-y" (-> center :y str))
;; Constraints
(add! :constraints-h)
(add! :constraints-v)
(add! :fixed-scroll)
(cond-> (and rect? (some? (:r1 shape)))
(-> (add! :r1)
(add! :r2)
@ -105,14 +110,14 @@
(mf/defc export-page
[{:keys [options]}]
[:> "penpot:page" #js {}
(let [saved-grids (get options :saved-grids)]
(when-not (empty? saved-grids)
(let [parse-grid
(fn [[type params]]
{:type type :params params})
grids (->> saved-grids (mapv parse-grid))]
[:& export-grid-data {:grids grids}])))])
(let [saved-grids (get options :saved-grids)]
(when-not (empty? saved-grids)
(let [parse-grid
(fn [[type params]]
{:type type :params params})
grids (->> saved-grids (mapv parse-grid))]
[:> "penpot:page" #js {}
[:& export-grid-data {:grids grids}]]))))
(mf/defc export-data
[{:keys [shape]}]

16
frontend/src/app/util/import/parser.cljc
View file

@ -267,7 +267,10 @@
flip-y (get-meta node :flip-y str->bool)
proportion (get-meta node :proportion d/parse-double)
proportion-lock (get-meta node :proportion-lock str->bool)
rotation (get-meta node :rotation d/parse-double)]
rotation (get-meta node :rotation d/parse-double)
constraints-h (get-meta node :constraints-h keyword)
constraints-v (get-meta node :constraints-v keyword)
fixed-scroll (get-meta node :fixed-scroll str->bool)]
(-> props
(assoc :name name)
@ -279,7 +282,16 @@
(assoc :flip-y flip-y)
(assoc :proportion proportion)
(assoc :proportion-lock proportion-lock)
(assoc :rotation rotation))))
(assoc :rotation rotation)
(cond-> (some? constraints-h)
(assoc :constraints-h constraints-h))
(cond-> (some? constraints-v)
(assoc :constraints-v constraints-v))
(cond-> (some? fixed-scroll)
(assoc :fixed-scroll fixed-scroll)))))
(defn add-position
[props type node svg-data]