Improve login messages for some providers

Author: ericdallo

src/eca/llm_providers/anthropic.clj

@@ -374,14 +374,14 @@
       (swap! db* assoc-in [:auth provider] {:step :login/waiting-provider-code
                                             :mode :max
                                             :verifier verifier})
-      (send-msg! (format "Open your browser at `%s` and authenticate at Anthropic.\nThen paste the code generated in the chat and send it to continue the authentication."
+      (send-msg! (format "Open your browser at:\n\n%s\n\nAuthenticate at Anthropic, then paste the code generated in the chat and send it to continue the authentication."
                          url)))
     "console"
     (let [{:keys [verifier url]} (oauth-url :console)]
       (swap! db* assoc-in [:auth provider] {:step :login/waiting-provider-code
                                             :mode :console
                                             :verifier verifier})
-      (send-msg! (format "Open your browser at `%s` and authenticate at Anthropic.\nThen paste the code generated in the chat and send it to continue the authentication."
+      (send-msg! (format "Open your browser at:\n\n%s\n\nAuthenticate at Anthropic, then paste the code generated in the chat and send it to continue the authentication."
                          url)))
     "manual"
     (do

src/eca/llm_providers/copilot.clj

@@ -71,7 +71,7 @@
     (swap! db* assoc-in [:chats chat-id :login-provider] provider)
     (swap! db* assoc-in [:auth provider] {:step :login/waiting-user-confirmation
                                           :device-code device-code})
-    (send-msg! (format "Open your browser at `%s` and authenticate using the code: `%s`\nThen type anything in the chat and send it to continue the authentication."
+    (send-msg! (format "Open your browser at:\n\n%s\n\nAuthenticate using the code: `%s`\nThen type anything in the chat and send it to continue the authentication."
                        url
                        user-code))))
 

src/eca/llm_providers/openai.clj

@@ -363,7 +363,7 @@
         :on-error (fn [error]
                     (send-msg! (str "Error authenticating via oauth: " error))
                     (oauth/stop-oauth-server! local-server-port))})
-      (send-msg! (format "Open your browser at `%s` and authenticate at OpenAI.\n\nThen ECA will finish the login automatically." url)))
+      (send-msg! (format "Open your browser at:\n\n%s\n\nAuthenticate at OpenAI, then ECA will finish the login automatically." url)))
     "manual"
     (do
       (swap! db* assoc-in [:auth provider] {:step :login/waiting-api-key

test/eca/features/login_test.clj

@@ -55,7 +55,8 @@
                            :send-msg! send-msg!}))
 
       (testing "should proceed to the next step"
-        (is (re-find #"(?m)Open your browser at `https://mock.github.com/login/device` and authenticate using the code: `.+`\nThen type anything in the chat and send it to continue the authentication."
+        (println @msg-log)
+        (is (re-find #"(?m)Open your browser at:\n\nhttps://mock.github.com/login/device\n\nAuthenticate using the code: `.+`\nThen type anything in the chat and send it to continue the authentication."
                      (last @msg-log)))
 
         (testing "state is update to reflect in-progress login"