Extract ExternalLink module

lib/music_library/artists.ex

@@ -162,23 +162,6 @@ defmodule MusicLibrary.Artists do
     |> Repo.update()
   end
 
-  @external_link_patterns %{
-    "ProgArchives" => "progarchives.com"
-  }
-
-  def external_links(artist_info) do
-    Enum.reduce(@external_link_patterns, [], fn {name, pattern}, acc ->
-      case ArtistInfo.relation_urls(artist_info, pattern) do
-        [] ->
-          acc
-
-        [url | _rest] ->
-          [%{name: name, url: url} | acc]
-      end
-    end)
-  end
-
-
   defp get_collected_artist_ids do
     q =
       from ar in ArtistRecord,

lib/music_library/artists/artist_info.ex

@@ -3,6 +3,8 @@ defmodule MusicLibrary.Artists.ArtistInfo do
 
   import Ecto.Changeset
 
+  alias MusicBrainz.ExternalLink
+
   @primary_key {:id, :binary_id, autogenerate: true}
   schema "artist_infos" do
     field :musicbrainz_data, :map, default: %{}
@@ -63,16 +65,10 @@ defmodule MusicLibrary.Artists.ArtistInfo do
     end)
   end
 
-  def relation_urls(artist_info, pattern \\ nil) do
-    case get_in(artist_info.musicbrainz_data, ["relations", Access.all(), "url", "resource"]) do
-      nil -> []
-      urls -> filter_urls(urls, pattern)
-    end
-  end
+  @external_link_patterns %{
+    "ProgArchives" => "progarchives.com"
+  }
 
-  defp filter_urls(urls, nil), do: urls
-
-  defp filter_urls(urls, pattern) do
-    Enum.filter(urls, fn url -> String.contains?(url, pattern) end)
-  end
+  def external_links(artist_info),
+    do: ExternalLink.external_links(artist_info.musicbrainz_data, @external_link_patterns)
 end