link to user profile at session

repl-sessions/participants.clj

@@ -26,6 +26,7 @@
      (mapv
       (fn [x]
         {:db/id (str "temp-" x)
+         :user/uuid (random-uuid)
          :discord/email (str "temp-email-" x "@gaiwan.co")
          :public-profile/hidden? (if (even? x) true false)
          :public-profile/name (str "temp-user-" x)

src/co/gaiwan/compass/html/sessions.clj

@@ -198,7 +198,8 @@
    [:<>
     [c/image-frame {:profile/image (user/avatar-css-value p)}]
     [:div.details
-     [:div.profile-name (:public-profile/name p)]]]))
+     [:a {:href (url-for :profile/show {:profile-id (:user/uuid p)})}
+      [:div.profile-name (:public-profile/name p)]]]]))
 
 (o/defstyled session-detail :div
   [capacity-gauge :w-100px]

src/co/gaiwan/compass/routes/profiles.clj

@@ -15,6 +15,7 @@
    [ring.util.response :as ring-response]))
 
 (defn GET-profile [{:keys [params] :as req}]
+  (tap> {:params params})
   {:html/body
    [h/profile-detail
     (if-let [profile-id (:profile-id params)]
@@ -90,7 +91,7 @@
 (defn parse-link-data [params variant]
   (map vector
        (get params (keyword (str variant "-link-type")))
-       (get params (keyword (str variant "-link-ref"))))  )
+       (get params (keyword (str variant "-link-ref")))))
 
 (defn reconcile-links [user-id variant old-links new-links]
   (let [existing-pairs (map (juxt :profile-link/type :profile-link/href) old-links)
@@ -149,8 +150,7 @@
       (conj [:db/retract user-id :private-profile/name (:private-profile/name user)])
 
       (not (str/blank? name_private))
-      (conj [:db/add user-id :private-profile/name name_private])
-      )))
+      (conj [:db/add user-id :private-profile/name name_private]))))
 
 (defn POST-save-profile
   "Save profile to DB