mirror of
https://github.com/penpot/penpot.git
synced 2026-05-26 10:23:45 +00:00
246 lines
9.1 KiB
Clojure
246 lines
9.1 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.main.ui.workspace.left-toolbar
|
|
(:require
|
|
[app.common.geom.point :as gpt]
|
|
[app.common.media :as cm]
|
|
[app.main.data.events :as ev]
|
|
[app.main.data.workspace :as dw]
|
|
[app.main.data.workspace.media :as dwm]
|
|
[app.main.data.workspace.shortcuts :as sc]
|
|
[app.main.refs :as refs]
|
|
[app.main.store :as st]
|
|
[app.main.ui.components.file-uploader :refer [file-uploader]]
|
|
[app.main.ui.context :as ctx]
|
|
[app.main.ui.hooks.resize :as r]
|
|
[app.main.ui.icons :as i]
|
|
[app.util.dom :as dom]
|
|
[app.util.i18n :as i18n :refer [tr]]
|
|
[app.util.timers :as ts]
|
|
[rumext.v2 :as mf]))
|
|
|
|
(mf/defc image-upload
|
|
{::mf/wrap [mf/memo]}
|
|
[]
|
|
(let [ref (mf/use-ref nil)
|
|
file-id (mf/use-ctx ctx/current-file-id)
|
|
|
|
on-click
|
|
(mf/use-fn #(dom/click (mf/ref-val ref)))
|
|
|
|
on-selected
|
|
(mf/use-fn
|
|
(mf/deps file-id)
|
|
(fn [blobs]
|
|
;; We don't want to add a ref because that redraws the component
|
|
;; for everychange. Better direct access on the callback.
|
|
(let [vbox (deref refs/vbox)
|
|
x (+ (:x vbox) (/ (:width vbox) 2))
|
|
y (+ (:y vbox) (/ (:height vbox) 2))
|
|
params {:file-id file-id
|
|
:blobs (seq blobs)
|
|
:position (gpt/point x y)}]
|
|
(st/emit! (dwm/upload-media-workspace params)))))]
|
|
|
|
[:li
|
|
[:button
|
|
{:title (tr "workspace.toolbar.image" (sc/get-tooltip :insert-image))
|
|
:aria-label (tr "workspace.toolbar.image" (sc/get-tooltip :insert-image))
|
|
:on-click on-click}
|
|
i/image
|
|
[:& file-uploader
|
|
{:input-id "image-upload"
|
|
:accept cm/str-image-types
|
|
:multi true
|
|
:ref ref
|
|
:on-selected on-selected}]]]))
|
|
|
|
(mf/defc left-toolbar
|
|
{::mf/wrap [mf/memo]
|
|
::mf/wrap-props false}
|
|
[{:keys [layout]}]
|
|
(let [selected-drawtool (mf/deref refs/selected-drawing-tool)
|
|
edition (mf/deref refs/selected-edition)
|
|
|
|
new-css-system (mf/use-ctx ctx/new-css-system)
|
|
read-only? (mf/use-ctx ctx/workspace-read-only?)
|
|
|
|
show-palette-btn? (and (not ^boolean read-only?) (not ^boolean new-css-system))
|
|
|
|
|
|
interrupt
|
|
(mf/use-fn #(st/emit! :interrupt))
|
|
|
|
select-drawtool
|
|
(mf/use-fn
|
|
(fn [event]
|
|
(let [tool (-> (dom/get-current-target event)
|
|
(dom/get-data "tool")
|
|
(keyword))]
|
|
(st/emit! :interrupt
|
|
dw/clear-edition-mode)
|
|
|
|
;; Delay so anything that launched :interrupt can finish
|
|
(st/emit! 100 (dw/select-for-drawing tool)))))
|
|
|
|
toggle-text-palette
|
|
(mf/use-fn
|
|
(fn []
|
|
(r/set-resize-type! :bottom)
|
|
(-> (dom/get-element-by-class "color-palette")
|
|
(dom/add-class! "fade-out-down"))
|
|
(ts/schedule 300 #(st/emit! (dw/remove-layout-flag :colorpalette)
|
|
(-> (dw/toggle-layout-flag :textpalette)
|
|
(vary-meta assoc ::ev/origin "workspace-left-toolbar"))))))
|
|
|
|
toggle-color-palette
|
|
(mf/use-fn
|
|
(fn []
|
|
(r/set-resize-type! :bottom)
|
|
(-> (dom/get-element-by-class "color-palette")
|
|
(dom/add-class! "fade-out-down"))
|
|
(ts/schedule 300 #(st/emit! (dw/remove-layout-flag :textpalette)
|
|
(-> (dw/toggle-layout-flag :colorpalette)
|
|
(vary-meta assoc ::ev/origin "workspace-left-toolbar"))))))
|
|
|
|
toggle-shortcuts
|
|
(mf/use-fn
|
|
(mf/deps layout)
|
|
(fn []
|
|
(let [is-sidebar-closed? (contains? layout :collapse-left-sidebar)]
|
|
(when is-sidebar-closed?
|
|
(st/emit! (dw/toggle-layout-flag :collapse-left-sidebar)))
|
|
(st/emit!
|
|
(dw/remove-layout-flag :debug-panel)
|
|
(-> (dw/toggle-layout-flag :shortcuts)
|
|
(vary-meta assoc ::ev/origin "workspace-left-toolbar"))))))
|
|
|
|
toggle-debug-panel
|
|
(mf/use-fn
|
|
(mf/deps layout)
|
|
(fn []
|
|
(let [is-sidebar-closed? (contains? layout :collapse-left-sidebar)]
|
|
(when is-sidebar-closed?
|
|
(st/emit! (dw/toggle-layout-flag :collapse-left-sidebar)))
|
|
(st/emit!
|
|
(dw/remove-layout-flag :shortcuts)
|
|
(-> (dw/toggle-layout-flag :debug-panel)
|
|
(vary-meta assoc ::ev/origin "workspace-left-toolbar"))))))
|
|
|
|
]
|
|
|
|
[:aside.left-toolbar
|
|
[:ul.left-toolbar-options
|
|
[:li
|
|
[:button
|
|
{:title (tr "workspace.toolbar.move" (sc/get-tooltip :move))
|
|
:aria-label (tr "workspace.toolbar.move" (sc/get-tooltip :move))
|
|
:class (when (and (nil? selected-drawtool)
|
|
(not edition)) "selected")
|
|
:on-click interrupt}
|
|
i/pointer-inner]]
|
|
(when-not ^boolean read-only?
|
|
[:*
|
|
[:li
|
|
[:button
|
|
{:title (tr "workspace.toolbar.frame" (sc/get-tooltip :draw-frame))
|
|
:aria-label (tr "workspace.toolbar.frame" (sc/get-tooltip :draw-frame))
|
|
:class (when (= selected-drawtool :frame) "selected")
|
|
:on-click select-drawtool
|
|
:data-tool "frame"
|
|
:data-test "artboard-btn"}
|
|
i/artboard]]
|
|
[:li
|
|
[:button
|
|
{:title (tr "workspace.toolbar.rect" (sc/get-tooltip :draw-rect))
|
|
:aria-label (tr "workspace.toolbar.rect" (sc/get-tooltip :draw-rect))
|
|
:class (when (= selected-drawtool :rect) "selected")
|
|
:on-click select-drawtool
|
|
:data-tool "rect"
|
|
:data-test "rect-btn"}
|
|
i/box]]
|
|
[:li
|
|
[:button
|
|
{:title (tr "workspace.toolbar.ellipse" (sc/get-tooltip :draw-ellipse))
|
|
:aria-label (tr "workspace.toolbar.ellipse" (sc/get-tooltip :draw-ellipse))
|
|
:class (when (= selected-drawtool :circle) "selected")
|
|
:on-click select-drawtool
|
|
:data-tool "circle"
|
|
:data-test "ellipse-btn"}
|
|
i/circle]]
|
|
[:li
|
|
[:button
|
|
{:title (tr "workspace.toolbar.text" (sc/get-tooltip :draw-text))
|
|
:aria-label (tr "workspace.toolbar.text" (sc/get-tooltip :draw-text))
|
|
:class (when (= selected-drawtool :text) "selected")
|
|
:on-click select-drawtool
|
|
:data-tool "text"}
|
|
i/text]]
|
|
|
|
[:& image-upload]
|
|
|
|
[:li
|
|
[:button
|
|
{:title (tr "workspace.toolbar.curve" (sc/get-tooltip :draw-curve))
|
|
:aria-label (tr "workspace.toolbar.curve" (sc/get-tooltip :draw-curve))
|
|
:class (when (= selected-drawtool :curve) "selected")
|
|
:on-click select-drawtool
|
|
:data-tool "curve"
|
|
:data-test "curve-btn"}
|
|
i/pencil]]
|
|
[:li
|
|
[:button
|
|
{:title (tr "workspace.toolbar.path" (sc/get-tooltip :draw-path))
|
|
:aria-label (tr "workspace.toolbar.path" (sc/get-tooltip :draw-path))
|
|
:class (when (= selected-drawtool :path) "selected")
|
|
:on-click select-drawtool
|
|
:data-tool "path"
|
|
:data-test "path-btn"}
|
|
i/pen]]])
|
|
|
|
[:li
|
|
[:button
|
|
{:title (tr "workspace.toolbar.comments" (sc/get-tooltip :add-comment))
|
|
:aria-label (tr "workspace.toolbar.comments" (sc/get-tooltip :add-comment))
|
|
:class (when (= selected-drawtool :comments) "selected")
|
|
:on-click select-drawtool
|
|
:data-tool "comments"}
|
|
i/chat]]]
|
|
|
|
[:ul.left-toolbar-options.panels
|
|
(when ^boolean show-palette-btn?
|
|
[:*
|
|
[:li
|
|
[:button
|
|
{:title (tr "workspace.toolbar.text-palette" (sc/get-tooltip :toggle-textpalette))
|
|
:aria-label (tr "workspace.toolbar.text-palette" (sc/get-tooltip :toggle-textpalette))
|
|
:class (when (contains? layout :textpalette) "selected")
|
|
:on-click toggle-text-palette}
|
|
"Ag"]]
|
|
|
|
[:li
|
|
[:button
|
|
{:title (tr "workspace.toolbar.color-palette" (sc/get-tooltip :toggle-colorpalette))
|
|
:aria-label (tr "workspace.toolbar.color-palette" (sc/get-tooltip :toggle-colorpalette))
|
|
:class (when (contains? layout :colorpalette) "selected")
|
|
:on-click toggle-color-palette}
|
|
i/palette]]])
|
|
[:li
|
|
[:button
|
|
{:title (tr "workspace.toolbar.shortcuts" (sc/get-tooltip :show-shortcuts))
|
|
:aria-label (tr "workspace.toolbar.shortcuts" (sc/get-tooltip :show-shortcuts))
|
|
:class (when (contains? layout :shortcuts) "selected")
|
|
:on-click toggle-shortcuts}
|
|
i/shortcut]
|
|
|
|
(when *assert*
|
|
[:button
|
|
{:title "Debugging tool"
|
|
:class (when (contains? layout :debug-panel) "selected")
|
|
:on-click toggle-debug-panel}
|
|
i/bug])]]]))
|