feat: some more work on completing AI translation features

lib/bds/desktop/shell_live/media_editor.ex

@@ -525,8 +525,9 @@ defmodule BDS.Desktop.ShellLive.MediaEditor do
     else
       media = socket.assigns.media
       normalized_language = normalize_language(language)
+      source_language = normalize_language(media.language)
 
-      case AI.translate_media(media.id, normalized_language) do
+      case AI.translate_media(media.id, normalized_language, source_language: source_language) do
         {:ok, translation} ->
           case Media.upsert_media_translation(media.id, normalized_language, translation) do
             {:ok, _saved_translation} ->

lib/bds/desktop/shell_live/post_editor.ex

@@ -621,8 +621,9 @@ defmodule BDS.Desktop.ShellLive.PostEditor do
     else
       post_id = socket.assigns.post_id
       normalized_language = normalize_language(language, "")
+      source_language = socket.assigns.canonical_language
 
-      case AI.translate_post(post_id, normalized_language) do
+      case AI.translate_post(post_id, normalized_language, source_language: source_language) do
         {:ok, translation} ->
           with {:ok, _saved_translation} <-
                  Posts.upsert_post_translation(post_id, normalized_language, %{