(defn ->datum
  "Preserve `:uuid` (or generate it) and rename keys to `entity` namespace"
  [entity {uuid :uuid :as fields :or {uuid (UUID/randomUUID)}}]
  (-> (into {} (map (fn [[k v]] [(keyword (name entity) (name k)) v]) fields))
      (dissoc :uuid)
      (assoc (keyword (name entity) "uuid") uuid)))

(clj-set/rename-keys result {:tag/uuid :uuid :tag/description :description :tag/name :name :tag/type :type})

(defn add-namespace [map-data kw-ns]
  (reduce-kv
   (fn [map-result key val]
     (let [key-full (keyword (name kw-ns) (name key))]
       (assoc map-result key-full val)))
   {}
   map-data))