(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)
        events-c (map #(update-in % [:event/channel]
                 (fn [c] (comm-db/get-by-id-lazy-ref db-val (get c :db/id)))) es)
        events-t (map #(update-in % [:event/template]
                 (fn [t] (comm-db/get-by-id-lazy-ref db-val (get t :db/id)))) events-c)]
    events-t))