Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-13 16:21:57 -05:00
Code Issues Activity

🐛 Deactivate comments on drawing.

Browse source
This commit is contained in:
Andrey Antukh 2020-10-22 11:04:07 +02:00 • committed by Hirunatan
parent 52532253c3
commit bf8e61b9bb
2 changed files with 21 additions and 21 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
frontend/src/app/main/data/workspace.cljs
View file

@ -393,14 +393,12 @@
(defn- check-sidebars
[state]
(let [layout (:workspace-layout state)
left-sidebar? (not (empty? (keep layout [:layers
:sitemap
:document-history
:assets])))
right-sidebar? (not (empty? (keep layout [:element-options :comments])))]
left? (seq (keep layout [:layers :sitemap :document-history :assets]))
right? (seq (keep layout [:element-options :comments]))]
(update state :workspace-local
assoc :left-sidebar? left-sidebar?
:right-sidebar? right-sidebar?)))
assoc :left-sidebar? (boolean left?)
:right-sidebar? (boolean right?))))
(defn- check-auto-flags
[state flags-to-toggle]
@ -419,13 +417,13 @@
(contains? flags-to-toggle :document-history)
(disj :assets :sitemap :layers)
(and (contains? flags-to-toggle :comments)
(contains? flags :comments))
(disj :element-options)
(contains? flags-to-toggle :comments)
(as-> $ (if (contains? flags :comments)
(disj $ :element-options)
(conj $ :element-options)))
(and (contains? flags-to-toggle :comments)
(not (contains? flags :comments)))
(conj :element-options)))))
(contains? flags-to-toggle :element-options)
(disj :comments)))))
(defn toggle-layout-flags
[& flags]
@ -1059,6 +1057,8 @@
(update [_ state]
(update state :workspace-drawing dissoc :tool :object))))
(declare toggle-layout-flags)
(defn select-for-drawing
([tool] (select-for-drawing tool nil))
([tool data]
@ -1069,13 +1069,14 @@
ptk/WatchEvent
(watch [_ state stream]
(let [cancel-event? (fn [event]
(dwc/interrupt? event))
stoper (rx/filter (ptk/type? ::clear-drawing) stream)]
(->> (rx/filter cancel-event? stream)
(rx/take 1)
(rx/map (constantly clear-drawing))
(rx/take-until stoper)))))))
(let [stoper (rx/filter (ptk/type? ::clear-drawing) stream)]
(rx/merge
(rx/of (toggle-layout-flags :element-options))
(->> stream
(rx/filter dwc/interrupt?)
(rx/take 1)
(rx/map (constantly clear-drawing))
(rx/take-until stoper))))))))
;; --- Update Dimensions

1
frontend/src/app/main/data/workspace/comments.cljs
View file

@ -36,7 +36,6 @@
[clojure.set :as set]
[potok.core :as ptk]))
(s/def ::comment-thread any?)
(s/def ::comment any?)