github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-09-11 14:39:35 +00:00
Code Issues Packages Projects Releases Wiki Activity

✨ Add the ability to retrieve a set of keys from map schemas

Browse Source
This commit is contained in:
Andrey Antukh 2025-05-28 14:40:34 +02:00
parent 3d61924162
commit 5c225a51ce
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
common/src/app/common/schema.cljc
View File

@ -5,7 +5,7 @@
;; Copyright (c) KALEIDOS INC ;; Copyright (c) KALEIDOS INC
(ns app.common.schema (ns app.common.schema
(:refer-clojure :exclude [deref merge parse-uuid parse-long parse-double parse-boolean type]) (:refer-clojure :exclude [deref merge parse-uuid parse-long parse-double parse-boolean type keys])
#?(:cljs (:require-macros [app.common.schema :refer [ignoring]])) #?(:cljs (:require-macros [app.common.schema :refer [ignoring]]))
(:require (:require
[app.common.data :as d] [app.common.data :as d]
@ -118,6 +118,21 @@
[& transformers] [& transformers]
(apply mt/transformer transformers)) (apply mt/transformer transformers))
(defn entries
"Get map entires of a map schema"
[schema]
(m/entries schema default-options))
(def ^:private xf:map-key
(map key))
(defn keys
"Given a map schema, return all keys as set"
[schema]
(->> (entries schema)
(into #{} xf:map-key)))
;; (defn key-transformer ;; (defn key-transformer
;; [& {:as opts}] ;; [& {:as opts}]
;; (mt/key-transformer opts)) ;; (mt/key-transformer opts))