mirror of
https://github.com/penpot/penpot.git
synced 2025-01-24 07:29:08 -05:00
17 lines
237 B
Clojure
17 lines
237 B
Clojure
(ns uxbox.ui.dom)
|
|
|
|
(defn stop-propagation
|
|
[e]
|
|
(.stopPropagation e))
|
|
|
|
(defn prevent-default
|
|
[e]
|
|
(.preventDefault e))
|
|
|
|
(defn event->inner-text
|
|
[e]
|
|
(.-innerText (.-target e)))
|
|
|
|
(defn event->value
|
|
[e]
|
|
(.-value (.-target e)))
|