fully qualify keys for a namespace

ns_qualifed_keys.clj

(defn ns-qualified-keys
  "
  takes a namespace and map of kv and converts it to namespace qualified keys
  
  (ns-qualified-keys 'foo.bar {:port 80})
  ;;=> {:foo.bar/port 80}
  "
  [ns m]
  (into {}
        (for [[k v] m]
          [(keyword (str ns) (name k)) v])))


;; usage

(ns my.ns)

(ns-qualified-keys *ns* {:foo 1 :bar 2})
;;=> {:my.ns/foo 1, :my.ns/bar 2}