Add pagination support to GitHub.API.Installation.repositories

Author: joshsmith

lib/code_corps/github/api/installation.ex

@@ -14,21 +14,34 @@ defmodule CodeCorps.GitHub.API.Installation do
   @doc """
   List repositories that are accessible to the authenticated installation.
 
+  All pages of records are retrieved.
+
   https://developer.github.com/v3/apps/installations/#list-repositories
   """
   @spec repositories(GithubAppInstallation.t) :: {:ok, list(map)} | {:error, GitHub.api_error_struct}
   def repositories(%GithubAppInstallation{} = installation) do
     with {:ok, access_token} <- installation |> get_access_token(),
-         {:ok, %{"repositories" => repositories}} <- fetch_repositories(access_token) do
-
+         {:ok, responses} <- fetch_repositories(access_token),
+         repositories <- extract_repositories(responses) do
       {:ok, repositories}
     else
       {:error, error} -> {:error, error}
     end
   end
 
   defp fetch_repositories(access_token) do
-    GitHub.request(:get, "installation/repositories", %{}, %{}, [access_token: access_token])
+    "installation/repositories"
+    |> GitHub.get_all(%{}, [access_token: access_token, params: [per_page: 100]])
+    |> (&{:ok, &1}).()
+  end
+
+  defp extract_repositories(responses) do
+    responses
+    |> Enum.reduce([], &merge_repositories/2)
+  end
+
+  defp merge_repositories(response, acc) do
+    acc |> Enum.concat(response |> Map.get("repositories"))
   end
 
   @doc """