mirror of
https://github.com/penpot/penpot.git
synced 2026-05-04 23:59:12 +00:00
133 lines
2.6 KiB
Clojure
133 lines
2.6 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.util.object
|
|
"A collection of helpers for work with javascript objects."
|
|
(:refer-clojure :exclude [set! new get get-in merge clone contains? array? into-array])
|
|
(:require
|
|
[cuerdas.core :as str]))
|
|
|
|
(defn array?
|
|
[o]
|
|
(.isArray js/Array o))
|
|
|
|
(defn into-array
|
|
[o]
|
|
(js/Array.from o))
|
|
|
|
(defn create [] #js {})
|
|
|
|
(defn get
|
|
([obj k]
|
|
(when (some? obj)
|
|
(unchecked-get obj k)))
|
|
([obj k default]
|
|
(let [result (get obj k)]
|
|
(if (undefined? result) default result))))
|
|
|
|
(defn contains?
|
|
[obj k]
|
|
(when (some? obj)
|
|
(js/Object.hasOwn obj k)))
|
|
|
|
(defn get-keys
|
|
[obj]
|
|
(js/Object.keys ^js obj))
|
|
|
|
(defn get-in
|
|
([obj keys]
|
|
(get-in obj keys nil))
|
|
|
|
([obj keys default]
|
|
(loop [key (first keys)
|
|
keys (rest keys)
|
|
res obj]
|
|
(if (or (nil? key) (nil? res))
|
|
(or res default)
|
|
(recur (first keys)
|
|
(rest keys)
|
|
(unchecked-get res key))))))
|
|
|
|
(defn clone
|
|
[a]
|
|
(js/Object.assign #js {} a))
|
|
|
|
(defn merge!
|
|
([a b]
|
|
(js/Object.assign a b))
|
|
([a b & more]
|
|
(reduce merge! (merge! a b) more)))
|
|
|
|
(defn merge
|
|
([a b]
|
|
(js/Object.assign #js {} a b))
|
|
([a b & more]
|
|
(reduce merge! (merge a b) more)))
|
|
|
|
(defn set!
|
|
[obj key value]
|
|
(unchecked-set obj key value)
|
|
obj)
|
|
|
|
(defn unset!
|
|
[obj key]
|
|
(js-delete obj key)
|
|
obj)
|
|
|
|
(defn update!
|
|
[obj key f & args]
|
|
(let [found (get obj key ::not-found)]
|
|
(if-not (identical? ::not-found found)
|
|
(do (unchecked-set obj key (apply f found args))
|
|
obj)
|
|
obj)))
|
|
|
|
(defn- props-key-fn
|
|
[k]
|
|
(if (or (keyword? k) (symbol? k))
|
|
(let [nword (name k)]
|
|
(cond
|
|
(= nword "class") "className"
|
|
(str/starts-with? nword "--") nword
|
|
(str/starts-with? nword "data-") nword
|
|
(str/starts-with? nword "aria-") nword
|
|
:else (str/camel nword)))
|
|
k))
|
|
|
|
(defn clj->props
|
|
[props]
|
|
(clj->js props :keyword-fn props-key-fn))
|
|
|
|
(defn ^boolean in?
|
|
[obj prop]
|
|
(js* "~{} in ~{}" prop obj))
|
|
|
|
(defn map->obj
|
|
[x]
|
|
(cond
|
|
(nil? x)
|
|
nil
|
|
|
|
(keyword? x)
|
|
(name x)
|
|
|
|
(map? x)
|
|
(reduce-kv (fn [m k v]
|
|
(let [k (if (keyword? k) (name k) k)]
|
|
(unchecked-set m k (^function map->obj v))
|
|
m))
|
|
#js {}
|
|
x)
|
|
|
|
(coll? x)
|
|
(reduce (fn [arr v]
|
|
(.push arr v)
|
|
arr)
|
|
(array)
|
|
x)
|
|
|
|
:else x))
|