mirror of
https://github.com/penpot/penpot.git
synced 2026-05-06 16:48:48 +00:00
296 lines
10 KiB
Clojure
296 lines
10 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS INC
|
|
|
|
(ns app.plugins.grid
|
|
(:require
|
|
[app.common.data :as d]
|
|
[app.common.record :as crc]
|
|
[app.common.spec :as us]
|
|
[app.common.types.shape.layout :as ctl]
|
|
[app.main.data.workspace.shape-layout :as dwsl]
|
|
[app.main.data.workspace.transforms :as dwt]
|
|
[app.main.store :as st]
|
|
[app.plugins.utils :as utils :refer [proxy->shape locate-shape]]
|
|
[app.util.object :as obj]
|
|
[potok.v2.core :as ptk]))
|
|
|
|
(defn- make-tracks
|
|
[tracks]
|
|
(.freeze
|
|
js/Object
|
|
(apply array (->> tracks (map utils/to-js)))))
|
|
|
|
(deftype GridLayout [$plugin $file $page $id]
|
|
Object
|
|
|
|
(addRow
|
|
[_ type value]
|
|
(let [type (keyword type)]
|
|
(st/emit! (dwsl/add-layout-track #{$id} :row {:type type :value value}))))
|
|
|
|
(addRowAtIndex
|
|
[_ index type value]
|
|
(let [type (keyword type)]
|
|
(st/emit! (dwsl/add-layout-track #{$id} :row {:type type :value value} index))))
|
|
|
|
(addColumn
|
|
[_ type value]
|
|
(let [type (keyword type)]
|
|
(st/emit! (dwsl/add-layout-track #{$id} :column {:type type :value value}))))
|
|
|
|
(addColumnAtIndex
|
|
[_ index type value]
|
|
(let [type (keyword type)]
|
|
(st/emit! (dwsl/add-layout-track #{$id} :column {:type type :value value} index))))
|
|
|
|
(removeRow
|
|
[_ index]
|
|
(st/emit! (dwsl/remove-layout-track #{$id} :row index)))
|
|
|
|
(removeColumn
|
|
[_ index]
|
|
(st/emit! (dwsl/remove-layout-track #{$id} :column index)))
|
|
|
|
(setColumn
|
|
[_ index type value]
|
|
(let [type (keyword type)]
|
|
(st/emit! (dwsl/change-layout-track #{$id} :column index (d/without-nils {:type type :value value})))))
|
|
|
|
(setRow
|
|
[_ index type value]
|
|
(let [type (keyword type)]
|
|
(st/emit! (dwsl/change-layout-track #{$id} :row index (d/without-nils {:type type :value value})))))
|
|
|
|
(remove
|
|
[_]
|
|
(st/emit! (dwsl/remove-layout #{$id})))
|
|
|
|
(appendChild
|
|
[_ child row column]
|
|
(let [child-id (obj/get child "$id")]
|
|
(st/emit! (dwt/move-shapes-to-frame #{child-id} $id nil [row column])
|
|
(ptk/data-event :layout/update {:ids [$id]})))))
|
|
|
|
(defn grid-layout-proxy? [p]
|
|
(instance? GridLayout p))
|
|
|
|
(defn grid-layout-proxy
|
|
[plugin-id file-id page-id id]
|
|
(-> (GridLayout. plugin-id file-id page-id id)
|
|
(crc/add-properties!
|
|
{:name "$plugin" :enumerable false :get (constantly plugin-id)}
|
|
{:name "$id" :enumerable false :get (constantly id)}
|
|
{:name "$file" :enumerable false :get (constantly file-id)}
|
|
{:name "$page" :enumerable false :get (constantly page-id)}
|
|
{:name "dir"
|
|
:get #(-> % proxy->shape :layout-grid-dir d/name)
|
|
:set
|
|
(fn [self value]
|
|
(let [id (obj/get self "$id")
|
|
value (keyword value)]
|
|
(when (contains? ctl/grid-direction-types value)
|
|
(st/emit! (dwsl/update-layout #{id} {:layout-grid-dir value})))))}
|
|
|
|
{:name "rows"
|
|
:get #(-> % proxy->shape :layout-grid-rows make-tracks)}
|
|
|
|
{:name "columns"
|
|
:get #(-> % proxy->shape :layout-grid-columns make-tracks)}
|
|
|
|
{:name "alignItems"
|
|
:get #(-> % proxy->shape :layout-align-items d/name)
|
|
:set
|
|
(fn [self value]
|
|
(let [id (obj/get self "$id")
|
|
value (keyword value)]
|
|
(when (contains? ctl/align-items-types value)
|
|
(st/emit! (dwsl/update-layout #{id} {:layout-align-items value})))))}
|
|
|
|
{:name "alignContent"
|
|
:get #(-> % proxy->shape :layout-align-content d/name)
|
|
:set
|
|
(fn [self value]
|
|
(let [id (obj/get self "$id")
|
|
value (keyword value)]
|
|
(when (contains? ctl/align-content-types value)
|
|
(st/emit! (dwsl/update-layout #{id} {:layout-align-content value})))))}
|
|
|
|
{:name "justifyItems"
|
|
:get #(-> % proxy->shape :layout-justify-items d/name)
|
|
:set
|
|
(fn [self value]
|
|
(let [id (obj/get self "$id")
|
|
value (keyword value)]
|
|
(when (contains? ctl/justify-items-types value)
|
|
(st/emit! (dwsl/update-layout #{id} {:layout-justify-items value})))))}
|
|
|
|
{:name "justifyContent"
|
|
:get #(-> % proxy->shape :layout-justify-content d/name)
|
|
:set
|
|
(fn [self value]
|
|
(let [id (obj/get self "$id")
|
|
value (keyword value)]
|
|
(when (contains? ctl/justify-content-types value)
|
|
(st/emit! (dwsl/update-layout #{id} {:layout-justify-content value})))))}
|
|
|
|
{:name "rowGap"
|
|
:get #(-> % proxy->shape :layout-gap :row-gap)
|
|
:set
|
|
(fn [self value]
|
|
(let [id (obj/get self "$id")]
|
|
(when (us/safe-int? value)
|
|
(st/emit! (dwsl/update-layout #{id} {:layout-gap {:row-gap value}})))))}
|
|
|
|
{:name "columnGap"
|
|
:get #(-> % proxy->shape :layout-gap :column-gap)
|
|
:set
|
|
(fn [self value]
|
|
(let [id (obj/get self "$id")]
|
|
(when (us/safe-int? value)
|
|
(st/emit! (dwsl/update-layout #{id} {:layout-gap {:column-gap value}})))))}
|
|
|
|
{:name "verticalPadding"
|
|
:get #(-> % proxy->shape :layout-padding :p1)
|
|
:set
|
|
(fn [self value]
|
|
(let [id (obj/get self "$id")]
|
|
(when (us/safe-int? value)
|
|
(st/emit! (dwsl/update-layout #{id} {:layout-padding {:p1 value :p3 value}})))))}
|
|
|
|
{:name "horizontalPadding"
|
|
:get #(-> % proxy->shape :layout-padding :p2)
|
|
:set
|
|
(fn [self value]
|
|
(let [id (obj/get self "$id")]
|
|
(when (us/safe-int? value)
|
|
(st/emit! (dwsl/update-layout #{id} {:layout-padding {:p2 value :p4 value}})))))}
|
|
|
|
{:name "topPadding"
|
|
:get #(-> % proxy->shape :layout-padding :p1)
|
|
:set
|
|
(fn [self value]
|
|
(let [id (obj/get self "$id")]
|
|
(when (us/safe-int? value)
|
|
(st/emit! (dwsl/update-layout #{id} {:layout-padding {:p1 value}})))))}
|
|
|
|
{:name "rightPadding"
|
|
:get #(-> % proxy->shape :layout-padding :p2)
|
|
:set
|
|
(fn [self value]
|
|
(let [id (obj/get self "$id")]
|
|
(when (us/safe-int? value)
|
|
(st/emit! (dwsl/update-layout #{id} {:layout-padding {:p2 value}})))))}
|
|
|
|
{:name "bottomPadding"
|
|
:get #(-> % proxy->shape :layout-padding :p3)
|
|
:set
|
|
(fn [self value]
|
|
(let [id (obj/get self "$id")]
|
|
(when (us/safe-int? value)
|
|
(st/emit! (dwsl/update-layout #{id} {:layout-padding {:p3 value}})))))}
|
|
|
|
{:name "leftPadding"
|
|
:get #(-> % proxy->shape :layout-padding :p4)
|
|
:set
|
|
(fn [self value]
|
|
(let [id (obj/get self "$id")]
|
|
(when (us/safe-int? value)
|
|
(st/emit! (dwsl/update-layout #{id} {:layout-padding {:p4 value}})))))})))
|
|
|
|
(deftype GridCellProxy [$plugin $file $page $id])
|
|
|
|
(defn layout-cell-proxy? [p]
|
|
(instance? GridCellProxy p))
|
|
|
|
(defn layout-cell-proxy
|
|
[plugin-id file-id page-id id]
|
|
(letfn [(locate-cell [_]
|
|
(let [shape (locate-shape file-id page-id id)
|
|
parent (locate-shape file-id page-id (:parent-id shape))]
|
|
(ctl/get-cell-by-shape-id parent id)))]
|
|
|
|
(-> (GridCellProxy. plugin-id file-id page-id id)
|
|
(crc/add-properties!
|
|
{:name "$plugin" :enumerable false :get (constantly plugin-id)}
|
|
{:name "$id" :enumerable false :get (constantly id)}
|
|
{:name "$file" :enumerable false :get (constantly file-id)}
|
|
{:name "$page" :enumerable false :get (constantly page-id)}
|
|
|
|
{:name "row"
|
|
:get #(-> % locate-cell :row)
|
|
:set
|
|
(fn [self value]
|
|
(let [shape (proxy->shape self)
|
|
cell (locate-cell self)]
|
|
(when (us/safe-int? value)
|
|
(st/emit! (dwsl/update-grid-cell-position (:parent-id shape) (:id cell) {:row value})))))}
|
|
|
|
{:name "rowSpan"
|
|
:get #(-> % locate-cell :row-span)
|
|
:set
|
|
(fn [self value]
|
|
(let [shape (proxy->shape self)
|
|
cell (locate-cell self)]
|
|
(when (us/safe-int? value)
|
|
(st/emit! (dwsl/update-grid-cell-position (:parent-id shape) (:id cell) {:row-span value})))))}
|
|
|
|
{:name "column"
|
|
:get #(-> % locate-cell :column)
|
|
:set
|
|
(fn [self value]
|
|
(let [shape (proxy->shape self)
|
|
cell (locate-cell self)]
|
|
(when (us/safe-int? value)
|
|
(st/emit! (dwsl/update-grid-cell-position (:parent-id shape) (:id cell) {:column value})))))}
|
|
|
|
{:name "columnSpan"
|
|
:get #(-> % locate-cell :column-span)
|
|
:set
|
|
(fn [self value]
|
|
(let [shape (proxy->shape self)
|
|
cell (locate-cell self)]
|
|
(when (us/safe-int? value)
|
|
(st/emit! (dwsl/update-grid-cell-position (:parent-id shape) (:id cell) {:column-span value})))))}
|
|
|
|
{:name "areaName"
|
|
:get #(-> % locate-cell :area-name)
|
|
:set
|
|
(fn [self value]
|
|
(let [shape (proxy->shape self)
|
|
cell (locate-cell self)]
|
|
(when (string? value)
|
|
(st/emit! (dwsl/update-grid-cells (:parent-id shape) #{(:id cell)} {:area-name value})))))}
|
|
|
|
{:name "position"
|
|
:get #(-> % locate-cell :position d/name)
|
|
:set
|
|
(fn [self value]
|
|
(let [shape (proxy->shape self)
|
|
cell (locate-cell self)
|
|
value (keyword value)]
|
|
(when (contains? ctl/grid-position-types value)
|
|
(st/emit! (dwsl/change-cells-mode (:parent-id shape) #{(:id cell)} value)))))}
|
|
|
|
{:name "alignSelf"
|
|
:get #(-> % locate-cell :align-self d/name)
|
|
:set
|
|
(fn [self value]
|
|
(let [shape (proxy->shape self)
|
|
value (keyword value)
|
|
cell (locate-cell self)]
|
|
(when (contains? ctl/grid-cell-align-self-types value)
|
|
(st/emit! (dwsl/update-grid-cells (:parent-id shape) #{(:id cell)} {:align-self value})))))}
|
|
|
|
{:name "justifySelf"
|
|
:get #(-> % locate-cell :justify-self d/name)
|
|
:set
|
|
(fn [self value]
|
|
(let [shape (proxy->shape self)
|
|
value (keyword value)
|
|
cell (locate-cell self)]
|
|
(when (contains? ctl/grid-cell-justify-self-types value)
|
|
(st/emit! (dwsl/update-grid-cells (:parent-id shape) #{(:id cell)} {:justify-self value})))))}))))
|