Update default Anthropic model, fix model init

anngvu · Mar 6, 2025 · a482f02 · a482f02
1 parent 37a3a03
commit a482f02
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 20 deletions.
diff --git a/src/accent/chat.clj b/src/accent/chat.clj
@@ -367,8 +367,8 @@
 
 (def anthropic-models
   "https://docs.anthropic.com/en/docs/about-claude/models"
-  {:default "claude-3-5-sonnet-latest"
-   :models {"claude-3-5-sonnet-latest" {:label "Claude 3.5 Sonnet"
+  {:default "claude-3-7-sonnet-latest"
+   :models {"claude-3-7-sonnet-latest" {:label "Claude 3.7 Sonnet"
                                         :context 200000}
             "claude-3-sonnet-20240229" {:label "Claude 3 Sonnet"
                                         :context 200000}}})
@@ -395,18 +395,12 @@
                    tool-time))
 
 (def AnthropicVanillaChat
-  (AnthropicProvider. "claude-3-5-sonnet-latest" 
+  (AnthropicProvider. "claude-3-7-sonnet-latest" 
                       anthropic-messages 
                       nil
                       anthropic-tool-time))
 
-(def provider-agent 
-  (if (= (@u :model-provider) "OpenAI") 
-    OpenAIVanillaChat 
-    AnthropicVanillaChat))
-
 (defn chat [provider-agent]
-  (setup) 
   (println "Chat initialized. Your message:") 
   (loop [prompt (read-line)] 
     (let [ai-reply (ask provider-agent prompt)] 
@@ -416,4 +410,8 @@
         (flush) 
         (recur (read-line))))))
 
-(defn -main [] (chat provider-agent))
+(defn -main [] 
+  (setup) 
+  (chat (if (= (@u :model-provider) "OpenAI") 
+    OpenAIVanillaChat 
+    AnthropicVanillaChat)))
diff --git a/src/accent/state.clj b/src/accent/state.clj
@@ -98,10 +98,10 @@
         (if init-model-provider 
           (do 
             (swap! u assoc :model-provider init-model-provider) 
-            (println "Model provider set to" init-model-provider))
+            (println "Model provider set to" (@u :model-provider) ))
           (let [chosen-provider (choose-model-provider)] 
             (swap! u assoc :model-provider chosen-provider) 
-            (println "Model provider set to" chosen-provider))))
+            (println "Model provider set to" (@u :model-provider) ))))
       has-oak 
       (println "You have an OpenAI API key and can use OpenAI services.")
 

diff --git a/src/agents/syndi.clj b/src/agents/syndi.clj
@@ -1,6 +1,6 @@
 (ns agents.syndi
   (:gen-class)
-  (:require [accent.state :refer [u]]
+  (:require [accent.state :refer [setup u]]
             [accent.chat :as chat]
             [curate.synapse :refer [new-syn syn curate-dataset create-folder get-table-sample get-entity-wiki get-entity-schema query-table set-annotations]]
             [agents.extraction :refer [call-extraction-agent call_extraction_agent_spec]]
@@ -303,14 +303,14 @@
                    tool-time))
 
 (def AnthropicSyndiAgent 
-  (chat/->AnthropicProvider "claude-3-5-sonnet-latest" 
+  (chat/->AnthropicProvider "claude-3-7-sonnet-latest" 
                       anthropic-messages
                       anthropic-tools 
                       anthropic-tool-time))
 
-(def provider-agent
-  (if (= (@u :model-provider) "OpenAI")
-    OpenAISyndiAgent 
-    AnthropicSyndiAgent))
-
-(defn -main [] (chat/chat provider-agent))
+(defn -main [] 
+  (setup) 
+  (chat/chat 
+    (if (= (@u :model-provider) "OpenAI")
+      OpenAISyndiAgent 
+      AnthropicSyndiAgent)))