   ;; Regular board
   ([conn org :guard map? board :guard map? ctx]
   (let [org-slug (:slug org)
+        org-id (:uuid org)
         slug (:slug board)
+        user-id (-> ctx :user :user-id)
         entries (entry-res/list-entries-by-board conn (:uuid board)) ; all entries for the board
         board-topics (->> entries
                         (map #(select-keys % [:topic-slug :topic-name]))


(defn- reactions
  "Return a sequence of just the reactions for an entry."
  [{interactions :interactions}]
  (filter :reaction interactions))

(defun- assemble-board
  "Assemble the entry, author, and viewer data needed for a board response."

                    board-topics ; just the board's topics
                    all-topics) ; board's and default
        entry-reps (map #(entry-rep/render-entry-for-collection org board %
                            (comments %) (reactions conn % org-id user-id)
                            (:access-level ctx) user-id)
                      entries)]
    (assemble-board org-slug (assoc board :topics topics) entry-reps ctx)))

