Fix github login

Author: ericdallo

src/eca/diff.clj

@@ -62,7 +62,7 @@
   It ignores diff headers (---, +++), hunk markers (@@), and metadata lines starting with \\."
   [diff-text]
   (let [lines (string/split-lines diff-text)]
-    (reduce (fn [{:keys [added removed] :as acc} line]
+    (reduce (fn [acc line]
               (cond
                 (or (string/starts-with? line "---")
                     (string/starts-with? line "+++")

src/eca/features/login.clj

@@ -6,14 +6,13 @@
 
 (defmulti login-step (fn [ctx] [(:provider ctx) (:step ctx)]))
 
-(defmethod login-step :default [_] "Unkown provider-id")
+(defmethod login-step :default [_] {:error "Unkown provider-id"})
 
 (defn start [chat-id provider db*]
-  (let [result (login-step {:chat-id chat-id
-                            :step :login/start
-                            :provider provider
-                            :db* db*})]
-    result))
+  (login-step {:chat-id chat-id
+               :step :login/start
+               :provider provider
+               :db* db*}))
 
 (defn continue [{:keys [message chat-id request-id]} db* messenger]
   (let [provider (get-in @db* [:chats chat-id :login-provider])

src/eca/features/tools/filesystem.clj

@@ -332,7 +332,7 @@
     :handler #'grep
     :summary-fn #'grep-summary}})
 
-(defmethod tools.util/tool-call-details-before-invocation :eca_edit_file [name arguments]
+(defmethod tools.util/tool-call-details-before-invocation :eca_edit_file [_name arguments]
   (let [path (get arguments "path")
         original-content (get arguments "original_content")
         new-content (get arguments "new_content")
@@ -350,7 +350,7 @@
 (defmethod tools.util/tool-call-details-before-invocation :eca_plan_edit_file [name arguments]
   (tools.util/tool-call-details-before-invocation :eca_edit_file name arguments))
 
-(defmethod tools.util/tool-call-details-before-invocation :eca_write_file [name arguments]
+(defmethod tools.util/tool-call-details-before-invocation :eca_write_file [_name arguments]
   (let [path (get arguments "path")
         content (get arguments "content")]
     (when (and path content)

src/eca/features/tools/mcp/clojure_mcp.clj

@@ -1,15 +1,16 @@
 (ns eca.features.tools.mcp.clojure-mcp
-  (:require [clojure.string :as string]
-            [eca.diff :as diff]
-            [eca.features.tools.util :as tools.util]))
+  (:require
+   [clojure.string :as string]
+   [eca.diff :as diff]
+   [eca.features.tools.util :as tools.util]))
 
-(defmethod tools.util/tool-call-details-after-invocation :clojure_edit [name arguments details result]
+(defmethod tools.util/tool-call-details-after-invocation :clojure_edit [_name arguments details result]
   (tools.util/tool-call-details-after-invocation :file_edit arguments details result))
 
-(defmethod tools.util/tool-call-details-after-invocation :clojure_edit_replace_sexp [name arguments details result]
+(defmethod tools.util/tool-call-details-after-invocation :clojure_edit_replace_sexp [_name arguments details result]
   (tools.util/tool-call-details-after-invocation :file_edit arguments details result))
 
-(defmethod tools.util/tool-call-details-after-invocation :file_edit [name arguments details result]
+(defmethod tools.util/tool-call-details-after-invocation :file_edit [_name arguments _details result]
   (when-not (:error result)
     (when-let [diff (some->> result :contents (filter #(= :text (:type %))) first :text)]
       (let [{:keys [added removed]} (diff/unified-diff-counts diff)]
@@ -19,7 +20,7 @@
          :linesRemoved removed
          :diff diff}))))
 
-(defmethod tools.util/tool-call-details-after-invocation :file_write [name arguments details result]
+(defmethod tools.util/tool-call-details-after-invocation :file_write [_name arguments _details result]
   (when-not (:error result)
     (when-let [diff (some->> result :contents
                              (filter #(= :text (:type %)))

src/eca/features/tools/util.clj

@@ -6,16 +6,16 @@
 
 (defmulti tool-call-details-before-invocation
   "Return the tool call details before invoking the tool."
-  (fn [name arguments] (keyword name)))
+  (fn [name _arguments] (keyword name)))
 
-(defmethod tool-call-details-before-invocation :default [name arguments]
+(defmethod tool-call-details-before-invocation :default [_name _arguments]
   nil)
 
 (defmulti tool-call-details-after-invocation
   "Return the tool call details after invoking the tool."
-  (fn [name arguments details result] (keyword name)))
+  (fn [name _arguments _details _result] (keyword name)))
 
-(defmethod tool-call-details-after-invocation :default [name arguments details result]
+(defmethod tool-call-details-after-invocation :default [_name _arguments details _result]
   details)
 
 (defn single-text-content [text & [error]]

src/eca/llm_api.clj

@@ -4,6 +4,7 @@
    [clojure.string :as string]
    [eca.config :as config]
    [eca.llm-providers.anthropic :as llm-providers.anthropic]
+   [eca.llm-providers.copilot]
    [eca.llm-providers.ollama :as llm-providers.ollama]
    [eca.llm-providers.openai :as llm-providers.openai]
    [eca.llm-providers.openai-chat :as llm-providers.openai-chat]