feat: add GitHub installation repository listing functionality

Author: zcesur

lib/algora/integrations/github/behaviour.ex

@@ -15,6 +15,7 @@ defmodule Algora.Github.Behaviour do
   @callback list_installations(token(), integer()) :: {:ok, map()} | {:error, String.t()}
   @callback find_installation(token(), integer(), integer()) :: {:ok, map()} | {:error, String.t()}
   @callback get_installation_token(integer()) :: {:ok, map()} | {:error, String.t()}
+  @callback list_installation_repos(token()) :: {:ok, [map()]} | {:error, String.t()}
   @callback create_issue_comment(token(), String.t(), String.t(), integer(), String.t()) ::
               {:ok, map()} | {:error, String.t()}
   @callback update_issue_comment(token(), String.t(), String.t(), integer(), String.t()) ::

lib/algora/integrations/github/client.ex

@@ -195,6 +195,13 @@ defmodule Algora.Github.Client do
     end
   end
 
+  @impl true
+  def list_installation_repos(access_token) do
+    with {:ok, %{"repositories" => repos}} <- fetch(access_token, "/installation/repositories", "GET") do
+      {:ok, repos}
+    end
+  end
+
   @impl true
   def create_issue_comment(access_token, owner, repo, number, body) do
     fetch(

lib/algora/integrations/github/github.ex

@@ -103,6 +103,9 @@ defmodule Algora.Github do
   @impl true
   def get_installation_token(installation_id), do: client().get_installation_token(installation_id)
 
+  @impl true
+  def list_installation_repos(token), do: client().list_installation_repos(token)
+
   @impl true
   def create_issue_comment(token, owner, repo, number, body),
     do: client().create_issue_comment(token, owner, repo, number, body)

lib/algora/workspace/workspace.ex

@@ -114,6 +114,15 @@ defmodule Algora.Workspace do
     end
   end
 
+  def list_installation_repos_by(clauses) do
+    with {:ok, user} <- Repo.fetch_by(User, clauses),
+         {:ok, installation} <- Repo.fetch_by(Installation, connected_user_id: user.id),
+         {:ok, token} <- Github.get_installation_token(installation.provider_id),
+         {:ok, repos} <- Github.list_installation_repos(token) do
+      Enum.map(repos, & &1["full_name"])
+    end
+  end
+
   def create_installation(user, provider_user, org, data) do
     %Installation{}
     |> Installation.github_changeset(user, provider_user, org, data)

test/support/github_mock.ex

@@ -91,6 +91,11 @@ defmodule Algora.Support.GithubMock do
     {:ok, %{"token" => "token_#{random_id()}"}}
   end
 
+  @impl true
+  def list_installation_repos(_access_token) do
+    {:ok, []}
+  end
+
   @impl true
   def create_issue_comment(_access_token, _owner, _repo, _number, _body) do
     {:ok, %{"id" => random_id()}}