   (let [active-repos (memoized-fetch-authored-repos-and-active-forks user)
         send-to (partial send-event-fn sse-context)]
     (send-to "message"
-             (format "%s has %s authored repos. Fetching data..."
+             (format "%s has %s repositories. Fetching data..."
                      user (count active-repos)))
     (->> active-repos
          (mapv (partial fetch-repo-and-send-row send-to user))

  (send-to
   "message"
   (format
    "<a href=\"https://github.com/%s\">%s</a> has authored %s repositories. See their <a href=\"#total-stats\">total stats</a>."
    user
    user
    (count repos))))

(defn- fetch-repo-and-send-row [send-to user repo]
  (let [repo-map (memoized-fetch-repo-info user repo)]

                             (map #(/ (difference-in-hours (:created_at %) (:closed_at %)) 24.0))
                             (apply +))]
    {:full-name (:full_name repo)
     :fork (:fork repo)
     :count-total total
     :count-closed (count closed)
     :count-open (count open)
