feat: start on AI integration

lib/bds/ai/http_client.ex

@@ -0,0 +1,51 @@
+defmodule BDS.AI.HttpClient do
+  @moduledoc false
+
+  def get(url, headers) when is_binary(url) and is_map(headers) do
+    request = {String.to_charlist(url), Enum.map(headers, fn {key, value} -> {String.to_charlist(key), String.to_charlist(value)} end)}
+
+    :inets.start()
+    :ssl.start()
+
+    case :httpc.request(:get, request, [], body_format: :binary) do
+      {:ok, {{_version, status, _reason}, response_headers, body}} ->
+        {:ok,
+         %{
+           status: status,
+           headers: normalize_headers(response_headers),
+           body: body
+         }}
+
+      {:error, reason} ->
+        {:error, reason}
+    end
+  end
+
+  def post(url, headers, body)
+      when is_binary(url) and is_map(headers) and is_binary(body) do
+    request =
+      {String.to_charlist(url), Enum.map(headers, fn {key, value} -> {String.to_charlist(key), String.to_charlist(value)} end), ~c"application/json", body}
+
+    :inets.start()
+    :ssl.start()
+
+    case :httpc.request(:post, request, [], body_format: :binary) do
+      {:ok, {{_version, status, _reason}, response_headers, response_body}} ->
+        {:ok,
+         %{
+           status: status,
+           headers: normalize_headers(response_headers),
+           body: response_body
+         }}
+
+      {:error, reason} ->
+        {:error, reason}
+    end
+  end
+
+  defp normalize_headers(headers) do
+    Enum.into(headers, %{}, fn {key, value} ->
+      {key |> to_string() |> String.downcase(), to_string(value)}
+    end)
+  end
+end