key selection

deps.edn

{:paths ["."]}

key-selection.clj

(ns key-selection
  (:require [clojure.spec.alpha :as s]))

(defn select-keys-by-ns
  [ns-re m]
  (into {} (filter #(re-find ns-re (namespace (key %))) m)))

(defn select-keys-by-ns-exact
  "A quick idiom for resolving autogenerated namespaces is
     (namepsace ::_) or
     (namespace ::namespace-alias/_)"
  [ns m]
  (into {} (filter #(= (namespace (key %)) ns) m)))

(s/fdef select-keys-by-ns-exact
  :args (s/cat :namespace string?
               :map (s/map-of keyword? any?))
  :ret (s/map-of keyword? any?))

#_(select-keys-by-ns-exact (namespace ::_) {::test 1 ::two 21 :blah/asdf 3})
#_(select-keys-by-ns #"asdf" {:asdf/test "asdf" :qwer/test "qwer"})