Faster examples

Author: krukow

README.md

@@ -62,7 +62,7 @@ For multi-turn conversations, pass a session instance to `query`:
 ```clojure
 (require '[github.copilot-sdk :as copilot])
 
-(copilot/with-client-session [session {:model "gpt-5.2"}]
+(copilot/with-client-session [session {:model "claude-haiku-4.5"}]
   ;; Session maintains context between queries
   (println (h/query "What is the capital of France?" :session session))
   (println (h/query "What is its population?" :session session)))
@@ -71,7 +71,7 @@ For multi-turn conversations, pass a session instance to `query`:
 Or use the full API for maximum flexibility:
 
 ```clojure
-(copilot/with-client-session [session {:model "gpt-5.2"}]
+(copilot/with-client-session [session {:model "claude-haiku-4.5"}]
   (println (-> (copilot/send-and-wait! session {:prompt "What is the capital of France?"})
                (get-in [:data :content]))))
 ```
@@ -226,7 +226,7 @@ await client.stop();
                 (str "Hello, " name "!"))}))
 
 (def session (copilot/create-session client
-               {:model "gpt-5.2"
+               {:model "claude-haiku-4.5"
                 :tools [greet-tool]}))
 
 (let [ch (chan 100)]

examples/README.md

@@ -113,7 +113,7 @@ clojure -A:examples -X basic-chat/run :q1 '"What is Clojure?"' :q2 '"Who created
 (require '[github.copilot-sdk.helpers :as h])
 
 ;; 1. Create a client and session
-(copilot/with-client-session [session {:model "gpt-5.2"}]
+(copilot/with-client-session [session {:model "claude-haiku-4.5"}]
   ;; 2. Send a message using query with the session
   (println (h/query "What is the capital of France?" :session session))
   ;; => "The capital of France is Paris."
@@ -166,11 +166,11 @@ clojure -A:examples -X helpers-query/run-multi :questions '["What is Rust?" "Wha
 (require '[github.copilot-sdk.helpers :as h])
 
 ;; Simplest possible query - just get the answer
-(h/query "What is 2+2?" :session {:model "gpt-5.2"})
+(h/query "What is 2+2?" :session {:model "claude-haiku-4.5"})
 ;; => "4"
 
 ;; With options
-(h/query "What is Clojure?" :session {:model "gpt-5.2"})
+(h/query "What is Clojure?" :session {:model "claude-haiku-4.5"})
 
 ;; Streaming with multimethod event handling
 (defmulti handle-event :type)
@@ -232,7 +232,7 @@ clojure -A:examples -X tool-integration/run :languages '["clojure" "haskell"]'
                       "not found"))))}))
 
 ;; Create session with tools and use query
-(copilot/with-client-session [session {:model "gpt-5.2"
+(copilot/with-client-session [session {:model "claude-haiku-4.5"
                                        :tools [lookup-tool]}]
   (println (h/query "Tell me about Clojure using the lookup tool" :session session)))
 ```
@@ -481,7 +481,7 @@ clojure -A:examples -X user-input/run-simple
 ```clojure
 (require '[github.copilot-sdk :as copilot])
 
-(copilot/with-client-session [session {:model "gpt-5.2"
+(copilot/with-client-session [session {:model "claude-haiku-4.5"
                                        :on-user-input-request
                                        (fn [request invocation]
                                          ;; request contains:
@@ -608,7 +608,7 @@ await client.start();
 **Clojure:**
 ```clojure
 (require '[github.copilot-sdk.helpers :as h])
-(h/query "What is 2+2?" :session {:model "gpt-5.2"})
+(h/query "What is 2+2?" :session {:model "claude-haiku-4.5"})
 ;; => "4"
 ```
 

examples/ask_user_failure.clj

@@ -16,7 +16,7 @@
   (let [cancelled-requests (atom [])]
     (copilot/with-client [client]
       (copilot/with-session [session client
-                             {:model "gpt-5.2"
+                             {:model "claude-haiku-4.5"
                               :on-user-input-request
                               (fn [request _invocation]
                                 (swap! cancelled-requests conj request)

examples/basic_chat.clj

@@ -10,7 +10,7 @@
 
 (defn run
   [{:keys [q1 q2] :or {q1 (:q1 defaults) q2 (:q2 defaults)}}]
-  (copilot/with-client-session [session {:model "gpt-5.2"}]
+  (copilot/with-client-session [session {:model "claude-haiku-4.5"}]
     (println "Q1:" q1)
     (println "🤖:" (h/query q1 :session session))
     (println)

examples/config_skill_output.clj

@@ -31,7 +31,7 @@
     (.mkdirs (java.io.File. output-dir))
     (write-demo-skill! skill-dir)
     (println (str "[debug] output-dir: " output-dir))
-    (copilot/with-client-session [session {:model "gpt-5.2"
+    (copilot/with-client-session [session {:model "claude-haiku-4.5"
                                            :config-dir config-dir
                                            :skill-directories [skill-dir]
                                            :disabled-skills ["demo-skill"]

examples/helpers_query.clj

@@ -9,7 +9,7 @@
   {:prompt "What is the capital of Japan? Answer in one sentence."})
 
 (def session-config
-  {:model "gpt-5.2"})
+  {:model "claude-haiku-4.5"})
 
 (defn run
   [{:keys [prompt] :or {prompt (:prompt defaults)}}]

examples/mcp_local_server.clj

@@ -23,7 +23,7 @@
   [{:keys [allowed-dir] :or {allowed-dir (:allowed-dir defaults)}}]
   (println (str "MCP Filesystem Server — allowed directory: " allowed-dir))
   (println)
-  (let [session-config {:model "gpt-5.2"
+  (let [session-config {:model "claude-haiku-4.5"
                         :on-permission-request copilot/approve-all
                         :mcp-servers
                         {"filesystem"
@@ -54,7 +54,7 @@
            :handler (fn [{:keys [text]} _]
                       (copilot/result-success
                        (str "Summary: " (subs text 0 (min 100 (count text))) "...")))})
-        session-config {:model "gpt-5.2"
+        session-config {:model "claude-haiku-4.5"
                         :tools [summary-tool]
                         :on-permission-request copilot/approve-all
                         :mcp-servers

examples/metadata_api.clj

@@ -53,8 +53,8 @@
 
     ;; 4. Model switching within a session
     (println "\n4. Dynamic Model Switching:")
-    (copilot/with-session [session client {:model "gpt-5.2"}]
-      ;; Query with gpt-5.2
+    (copilot/with-session [session client {:model "claude-haiku-4.5"}]
+      ;; Query with claude-haiku-4.5
       (println "   Query: 'What is 2+2? Answer briefly.'")
       (println (str "   Response: " (h/query "What is 2+2? Answer briefly." :session session)))
 

examples/permission_bash.clj

@@ -22,7 +22,7 @@
   (let [{:keys [tool command]} (shell-config)
         denied-command (str command " && echo 'denied'")
         allowed-commands #{command}]
-    (copilot/with-client-session [session {:model "gpt-5.2"
+    (copilot/with-client-session [session {:model "claude-haiku-4.5"
                                            :available-tools [tool]
                                            :on-permission-request (fn [request _ctx]
                                                                     (pprint/pprint request)

examples/tool_integration.clj

@@ -34,7 +34,7 @@
 
 (defn run
   [{:keys [languages] :or {languages (:languages defaults)}}]
-  (copilot/with-client-session [session {:model "gpt-5.2"
+  (copilot/with-client-session [session {:model "claude-haiku-4.5"
                                          :tools [lookup-tool]}]
     (doseq [lang languages]
       (println (str "Looking up: " lang))