🎉 Add orientation buttons for frames options.

This commit is contained in:
Andrés Moya 2020-03-26 15:32:15 +01:00 committed by Andrey Antukh
parent 97141bfb7a
commit 5f938f4f38
5 changed files with 37 additions and 5 deletions

View file

@ -64,6 +64,8 @@
(def ruler-tool (icon-xref :ruler-tool))
(def save (icon-xref :save))
(def search (icon-xref :search))
(def size-horiz (icon-xref :size-horiz))
(def size-vert (icon-xref :size-vert))
(def stroke (icon-xref :stroke))
(def sublevel (icon-xref :sublevel))
(def text (icon-xref :text))

View file

@ -31,9 +31,17 @@
on-preset-selected
(fn [width height]
(do
(st/emit! (udw/update-rect-dimensions (:id shape) :width width))
(st/emit! (udw/update-rect-dimensions (:id shape) :height height))))
(st/emit! (udw/update-rect-dimensions (:id shape) :width width)
(udw/update-rect-dimensions (:id shape) :height height)))
on-orientation-clicked
(fn [orientation]
(let [width (:width shape)
height (:height shape)
new-width (if (= orientation :horiz) (max width height) (min width height))
new-height (if (= orientation :horiz) (min width height) (max width height))]
(st/emit! (udw/update-rect-dimensions (:id shape) :width new-width)
(udw/update-rect-dimensions (:id shape) :height new-height))))
on-size-change
(fn [event attr]
@ -82,7 +90,10 @@
[:li {:key (:name size-preset)
:on-click #(on-preset-selected (:width size-preset) (:height size-preset))}
(:name size-preset)
[:span (:width size-preset) " x " (:height size-preset)]]))]]]]
[:span (:width size-preset) " x " (:height size-preset)]]))]]]
[:span.orientation-icon {on-click #(on-orientation-clicked :vert)} i/size-vert]
[:span.orientation-icon {on-click #(on-orientation-clicked :horiz)} i/size-horiz]
]
[:span (tr "workspace.options.size")]