3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-08-06 04:18:19 +02:00
Code Issues Projects Releases Packages Wiki Activity

🎉 Adds support for auto

Browse source
This commit is contained in:
alonso.torres 2020-05-19 10:52:11 +02:00 • committed by Andrés Moya
parent 1d2ae6d5eb
commit ad99e6df9d
6 changed files with 261 additions and 105 deletions
Download patch file Download diff file Expand all files Collapse all files

18
frontend/src/uxbox/util/geom/layout.cljs
View file

@ -9,10 +9,24 @@
(ns uxbox.util.geom.layout
(:require
[uxbox.util.math :as mth]
[uxbox.util.geom.point :as gpt]))
(def ^:private default-items 12)
(defn calculate-default-item-length [frame-length margin gutter]
(/ (- frame-length (+ margin (- margin gutter)) (* gutter default-items)) default-items))
(defn calculate-size
"Calculates the number of rows/columns given the other layout parameters"
[frame-length item-length margin gutter]
(let [item-length (or item-length (calculate-default-item-length frame-length margin gutter))
frame-length-no-margins (- frame-length (+ margin (- margin gutter)))]
(mth/floor (/ frame-length-no-margins (+ item-length gutter)))))
(defn calculate-column-layout [{:keys [width height x y] :as frame} {:keys [size gutter margin item-width type] :as params}]
(let [parts (/ width size)
(let [size (if (number? size) size (calculate-size width item-width margin gutter))
parts (/ width size)
item-width (or item-width (+ parts (- gutter) (/ gutter size) (- (/ (* margin 2) size))))
item-height height
initial-offset (case type
@ -25,7 +39,7 @@
[size item-width item-height next-x next-y]))
(defn calculate-row-layout [{:keys [width height x y] :as frame} {:keys [size gutter margin item-height type] :as params}]
(let [{:keys [width height x y]} frame
(let [size (if (number? size) size (calculate-size height item-height margin gutter))
parts (/ height size)
item-width width
item-height (or item-height (+ parts (- gutter) (/ gutter size) (- (/ (* margin 2) size))))