(defn get-events-from-user [db-val user-name]
  (let [events (m-user/get-refs-from-user db-val user-name glob/events-kw glob/event-name-kw)
        get-by-id (fn [c] (comm-db/get-by-id-lazy-ref db-val (get c :db/id)))
        update-vals (fn [value xs] (map #(update-in % [value] get-by-id) xs))]
   (->> events
        (update-vals :event/channel)
        (update-vals :event/template)))