SHOW:
|
|
- or go back to the newest paste.
| 1 | (defn get-events-from-user [db-val user-name] | |
| 2 | (let [events (m-user/get-refs-from-user db-val user-name glob/events-kw glob/event-name-kw) | |
| 3 | - | events-c (map #(update-in % [:event/channel] |
| 3 | + | get-by-id (fn [c] (comm-db/get-by-id-lazy-ref db-val (get c :db/id))) |
| 4 | - | (fn [c] (comm-db/get-by-id-lazy-ref db-val (get c :db/id)))) es) |
| 4 | + | update-vals (fn [value xs] (map #(update-in % [value] get-by-id) xs))] |
| 5 | - | events-t (map #(update-in % [:event/template] |
| 5 | + | (->> events |
| 6 | - | (fn [t] (comm-db/get-by-id-lazy-ref db-val (get t :db/id)))) events-c)] |
| 6 | + | (update-vals :event/channel) |
| 7 | - | events-t)) |
| 7 | + | (update-vals :event/template))) |
