Implement map-keys

verberktstan · Jun 5, 2024 · 4ddedbc · 4ddedbc
1 parent 19c2e1c
commit 4ddedbc
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/src/swark/core.cljc b/src/swark/core.cljc
@@ -42,6 +42,16 @@
      (-> item map? assert)
      (into {} (map-vals f) item))))
 
+(defn map-keys
+  "WIP"
+  ([f]
+   (map (juxt (comp f key) val)))
+  ([f item]
+   (when item
+     (-> f ifn? assert)
+     (-> item map? assert)
+     (into {} (map-keys f) item))))
+
 (defn filter-keys
   {:added "0.1.3"
    :arglists '([map pred])