3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-07-26 02:07:22 +02:00
Code Issues Projects Releases Packages Wiki Activity

✨ Auto add http prefix to interaction url

Browse source
This commit is contained in:
Andrés Moya 2021-10-29 13:05:39 +02:00
parent 78d1c57b7c
commit 8ce2eb448c
3 changed files with 38 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

29
frontend/src/app/util/dom.cljs
View file

@ -28,17 +28,6 @@
[e]
(.-target e))
(defn classnames
[& params]
(assert (even? (count params)))
(str/join " " (reduce (fn [acc [k v]]
(if (true? (boolean v))
(conj acc (name k))
acc))
[]
(partition 2 params))))
;; --- New methods
(defn set-html-title
@ -293,10 +282,28 @@
(defn get-root []
(query globals/document "#app"))
(defn classnames
[& params]
(assert (even? (count params)))
(str/join " " (reduce (fn [acc [k v]]
(if (true? (boolean v))
(conj acc (name k))
acc))
[]
(partition 2 params))))
(defn ^boolean class? [node class-name]
(let [class-list (.-classList ^js node)]
(.contains ^js class-list class-name)))
(defn add-class! [node class-name]
(let [class-list (.-classList ^js node)]
(.add ^js class-list class-name)))
(defn remove-class! [node class-name]
(let [class-list (.-classList ^js node)]
(.remove ^js class-list class-name)))
(defn child? [node1 node2]
(.contains ^js node2 ^js node1))