feat: update existing comment if it exists

Author: yknx4

config/prod.exs

@@ -66,7 +66,8 @@ config :event_bus,
 config :librecov, :github,
   app_id: System.get_env("GITHUB_APP_ID"),
   client_id: System.get_env("GITHUB_CLIENT_ID"),
-  client_secret: System.get_env("GITHUB_CLIENT_SECRET")
+  client_secret: System.get_env("GITHUB_CLIENT_SECRET"),
+  app_name: System.get_env("GITHUB_APP_NAME")
 
 config :ueberauth, Ueberauth.Strategy.Github.OAuth,
   client_id: System.get_env("GITHUB_CLIENT_ID"),

lib/opencov/services/github/auth.ex

@@ -1,4 +1,5 @@
 defmodule Librecov.Services.Github.Auth do
+  import Librecov.Services.Github.Config
   alias ExOctocat.Connection
   alias ExOctocat.Api.Apps
   alias ExOctocat.Model.Installation
@@ -102,12 +103,4 @@ defmodule Librecov.Services.Github.Auth do
     )
     |> OAuth2.Client.put_serializer("application/json", Jason)
   end
-
-  defp config do
-    Application.get_env(:librecov, :github, [])
-  end
-
-  defp github_app_id, do: config() |> Keyword.get(:app_id, "")
-  defp github_client_id, do: config() |> Keyword.get(:client_id, "")
-  defp github_client_secret, do: config() |> Keyword.get(:client_secret, "")
 end

lib/opencov/services/github/comments.ex

@@ -1,5 +1,6 @@
 defmodule Librecov.Services.Github.Comments do
   require Logger
+  import Librecov.Services.Github.Config
   alias ExOctocat.Connection
   alias ExOctocat.Api.Issues
   alias Librecov.Services.Github.PullRequests
@@ -51,10 +52,27 @@ defmodule Librecov.Services.Github.Comments do
       }) do
     Logger.info("Sending pr_message to #{owner}/#{repo}##{issue_number}.")
 
+    conn = token |> Connection.new()
+
+    {:ok, messages} =
+      existing_messages =
+      conn |> Issues.issues_list_comments(owner, repo, issue_number, per_page: 100)
+
+    existing_message =
+      messages |> Enum.find(fn m -> m.user.login == "#{github_app_name()}[bot]" end)
+
+    IO.inspect(existing_message)
+
     {:ok, %{id: id} = comment} =
-      token
-      |> Connection.new()
-      |> Issues.issues_create_comment(owner, repo, issue_number, body: %{body: pr_message})
+      if is_nil(existing_message) do
+        conn
+        |> Issues.issues_create_comment(owner, repo, issue_number, body: %{body: pr_message})
+      else
+        conn
+        |> Issues.issues_update_comment(owner, repo, existing_message.id,
+          body: %{body: pr_message}
+        )
+      end
 
     Logger.info(
       "Succesfully sent message to #{owner}/#{repo}##{issue_number}. IssueComment##{id}"

lib/opencov/services/github/config.ex

@@ -0,0 +1,10 @@
+defmodule Librecov.Services.Github.Config do
+  def config do
+    Application.get_env(:librecov, :github, [])
+  end
+
+  def github_app_id, do: config() |> Keyword.get(:app_id, "")
+  def github_client_id, do: config() |> Keyword.get(:client_id, "")
+  def github_client_secret, do: config() |> Keyword.get(:client_secret, "")
+  def github_app_name, do: config() |> Keyword.get(:app_name, "")
+end