3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-16 11:01:40 +02:00
Code Issues Projects Releases Packages Wiki Activity

🎉 Add basic interaction to shapes

Browse source
This commit is contained in:
Andrés Moya 2020-04-27 14:31:57 +02:00
parent 49023117c3
commit 1e898f94f3
32 changed files with 1024 additions and 226 deletions
Download patch file Download diff file Expand all files Collapse all files

6
frontend/src/uxbox/util/debug.cljs
View file

@ -9,8 +9,8 @@
(defn debug-none! [] (reset! *debug* #{}))
(defn debug! [option] (swap! *debug* conj option))
(defn -debug! [option] (swap! *debug* disj option))
(defn debug? [option] (@*debug* option))
(defn ^:export debug? [option] (@*debug* option))
(defn ^:export toggle-debug [name] (let [option (keyword name)]
(if (debug? option)
@ -18,7 +18,7 @@
(debug! option))))
(defn ^:export debug-all [name] (debug-all!))
(defn tap
(defn ^:export tap
"Transducer function that can execute a side-effect `effect-fn` per input"
[effect-fn]
@ -30,7 +30,7 @@
(effect-fn input)
(rf result input)))))
(defn logjs
(defn ^:export logjs
([str] (tap (partial logjs str)))
([str val]
(js/console.log str (clj->js val))