       (map (partial add-status token)))))
 
 (defn repos
+  "Returns all of the repos in which the user has
+permission for creating webhooks."
   [cookies]
   (if-let [token (token cookies)]
     {:status 200

      (map vec)
      (into {}))))

(defn token [cookies]
  (when-let [{:keys [value]} (cookies "token")]
    value))

(defn login
  []
  (let [url (str authorize-url
              "?client_id=" client-id

    (assoc repo :gbu status)))

(defn- all-user-repos
  "Returns a list of repositories where the user
has the necessary permissions to create a webhook."
  [token]
  (let [opts       {:oauth-token token
                    :type :owner}
