diff --git a/src/co/gaiwan/compass/html/sessions.clj b/src/co/gaiwan/compass/html/sessions.clj index 1e93c09..9efb9c7 100644 --- a/src/co/gaiwan/compass/html/sessions.clj +++ b/src/co/gaiwan/compass/html/sessions.clj @@ -130,9 +130,11 @@ #_[:p.host "Organized by " organized]]])) (o/defstyled attendee :li - ([{:db/keys [id]}] - (let [{:user/keys [name]} (session/attendee id)] - name))) + ([participant] + ;; (prn "debug datatype " (type participant)) + ;; participant is of `Datomic.query.EntityMap` type + ;; So, we can access its attribute directly + (:user/handle participant))) (o/defstyled session-detail :div [capacity-gauge :w-100px] @@ -184,6 +186,7 @@ "Leave"] [:button "Edit"]] #_[:p.host "Organized by " organized] + #_[:ol (map attendee participants)] #_[:p (pr-str user)] #_[:p (pr-str session)]]])) diff --git a/src/co/gaiwan/compass/model/session.clj b/src/co/gaiwan/compass/model/session.clj index d12f307..68aeeaa 100644 --- a/src/co/gaiwan/compass/model/session.clj +++ b/src/co/gaiwan/compass/model/session.clj @@ -1,6 +1,4 @@ -(ns co.gaiwan.compass.model.session - (:require - [co.gaiwan.compass.db :as db])) +(ns co.gaiwan.compass.model.session) (defn participating? [session user] (some (comp #{(:db/id user)} :db/id) @@ -10,6 +8,3 @@ (and (some? organized) (= (:db/id user) (:db/id organized)))) - -(defn attendee [id] - (db/entity id))