Attempt to update with latest commits

Conor Nash · Conor Nash · commit 4e04c254524e · 2025-08-22T13:27:40.000+01:00
diff --git a/CONTRIBUTING.md b/CONTRIBUTING.md
@@ -30,7 +30,7 @@ Thank you for your interest in contributing to Efrit! This guide will help you g
 
 2. **Set up your API key** in `~/.authinfo`:
    ```
-   machine api.anthropic.com login personal password YOUR_API_KEY_HERE
+   machine openrouter.ai login personal password YOUR_API_KEY_HERE
    ```
 
 3. **Load Efrit for development**:
diff --git a/README.md b/README.md
@@ -62,7 +62,7 @@ Efrit provides multiple interfaces for AI-powered Emacs development:
 
 3. **Configure your API key** in `~/.authinfo`:
    ```
-   machine api.anthropic.com login personal password YOUR_API_KEY_HERE
+   machine openrouter.ai login personal password YOUR_API_KEY_HERE
    ```
 
 4. **Restart Emacs** and test with `M-x efrit-chat`
@@ -218,7 +218,7 @@ Transform Efrit from a user assistant into an **autonomous AI development platfo
 
 ```elisp
 ;; Standard Efrit settings
-(setq efrit-model "claude-3-5-sonnet-20241022")
+(setq efrit-model "anthropic/claude-sonnet-4")
 (setq efrit-max-tokens 8192)
 
 ;; 🆕 Agent communication settings  
diff --git a/lisp/efrit-agent.el b/lisp/efrit-agent.el
@@ -31,10 +31,10 @@
   :group 'efrit
   :prefix "efrit-agent-")
 
-(defcustom efrit-agent-backend "claude-3.5-sonnet"
+(defcustom efrit-agent-backend "anthropic/claude-sonnet-4"
   "Default model backend for agent mode."
-  :type '(choice (const "claude-3.5-sonnet")
-                 (const "gpt-4") 
+  :type '(choice (const "anthropic/claude-sonnet-4")
+                 (const "gpt-4")
                  (const "local-llama")
                  (string :tag "Custom API endpoint"))
   :group 'efrit-agent)
@@ -44,12 +44,12 @@
   :type 'integer
   :group 'efrit-agent)
 
-(defcustom efrit-agent-api-url "https://api.anthropic.com/v1/messages"
+(defcustom efrit-agent-api-url "https://openrouter.ai/api/v1/chat/completions"
   "API URL for Claude requests."
   :type 'string
   :group 'efrit-agent)
 
-(defcustom efrit-agent-model "claude-4-sonnet-20250514"
+(defcustom efrit-agent-model "anthropic/claude-sonnet-4"
   "Model to use for agent requests. Updated to latest Claude 4 Sonnet."
   :type 'string
   :group 'efrit-agent)
@@ -166,7 +166,7 @@
 (defun efrit-agent--get-api-key ()
   "Get the Anthropic API key from .authinfo file."
   (efrit-agent--log "DEBUG" "Looking for API key in .authinfo")
-  (let* ((auth-info (car (auth-source-search :host "api.anthropic.com"
+  (let* ((auth-info (car (auth-source-search :host "openrouter.ai"
                                             :user "personal"
                                             :require '(:secret))))
          (secret (plist-get auth-info :secret)))
@@ -176,7 +176,7 @@
           (if (functionp secret)
               (funcall secret)
             secret))
-      (efrit-agent--log "ERROR" "No API key found in .authinfo for api.anthropic.com")
+      (efrit-agent--log "ERROR" "No API key found in .authinfo for openrouter.ai")
       nil)))
 
 (defun efrit-agent--build-system-prompt ()
diff --git a/lisp/efrit-chat-streamlined.el b/lisp/efrit-chat-streamlined.el
@@ -40,7 +40,7 @@
   :group 'tools
   :prefix "efrit-")
 
-(defcustom efrit-model "claude-3-5-sonnet-20241022"
+(defcustom efrit-model "anthropic/claude-sonnet-4"
   "Claude model to use for conversations."
   :type 'string
   :group 'efrit)
@@ -55,7 +55,7 @@
   :type 'float
   :group 'efrit)
 
-(defcustom efrit-api-url "https://api.anthropic.com/v1/messages"
+(defcustom efrit-api-url "https://openrouter.ai/api/v1/chat/completions"
   "URL for the Anthropic API endpoint."
   :type 'string
   :group 'efrit)
diff --git a/lisp/efrit-chat.el b/lisp/efrit-chat.el
@@ -46,7 +46,7 @@
   :type 'string
   :group 'efrit)
 
-(defcustom efrit-model "claude-3-5-sonnet-20241022"
+(defcustom efrit-model "anthropic/claude-sonnet-4"
   "Claude model to use for conversations."
   :type 'string
   :group 'efrit)
@@ -63,7 +63,7 @@ or 4096 without. This setting uses the higher limit."
   :type 'float
   :group 'efrit)
 
-(defcustom efrit-api-url "https://api.anthropic.com/v1/messages"
+(defcustom efrit-api-url "https://openrouter.ai/api/v1/chat/completions"
   "URL for the Anthropic API endpoint."
   :type 'string
   :group 'efrit)
@@ -126,7 +126,7 @@ or 4096 without. This setting uses the higher limit."
 
 (defun efrit--get-api-key ()
   "Get the Anthropic API key from .authinfo file."
-  (let* ((auth-info (car (auth-source-search :host "api.anthropic.com"
+  (let* ((auth-info (car (auth-source-search :host "openrouter.ai"
                                             :user "personal"
                                             :require '(:secret))))
          (secret (plist-get auth-info :secret)))
diff --git a/lisp/efrit-do.el b/lisp/efrit-do.el
@@ -84,7 +84,7 @@ If nil, uses the default location in the efrit data directory."
   :type 'boolean
   :group 'efrit-do)
 
-(defcustom efrit-model "claude-3-5-sonnet-20241022"
+(defcustom efrit-model "anthropic/claude-sonnet-4"
   "Claude model to use for efrit-do commands."
   :type 'string
   :group 'efrit-do)
@@ -94,7 +94,7 @@ If nil, uses the default location in the efrit data directory."
   :type 'integer
   :group 'efrit-do)
 
-(defcustom efrit-api-url "https://api.anthropic.com/v1/messages"
+(defcustom efrit-api-url "https://openrouter.ai/api/v1/chat/completions"
   "URL for the Anthropic API endpoint used by efrit-do."
   :type 'string
   :group 'efrit-do)
diff --git a/lisp/efrit-do.el.backup b/lisp/efrit-do.el.backup
@@ -84,7 +84,7 @@ If nil, uses the default location in the efrit data directory."
   :type 'boolean
   :group 'efrit-do)
 
-(defcustom efrit-model "claude-3-5-sonnet-20241022"
+(defcustom efrit-model "anthropic/claude-sonnet-4"
   "Claude model to use for efrit-do commands."
   :type 'string
   :group 'efrit-do)
@@ -94,7 +94,7 @@ If nil, uses the default location in the efrit data directory."
   :type 'integer
   :group 'efrit-do)
 
-(defcustom efrit-api-url "https://api.anthropic.com/v1/messages"
+(defcustom efrit-api-url "https://openrouter.ai/api/v1/chat/completions"
   "URL for the Anthropic API endpoint used by efrit-do."
   :type 'string
   :group 'efrit-do)
diff --git a/lisp/efrit-tools.el b/lisp/efrit-tools.el
@@ -108,7 +108,7 @@ LEVEL is one of: debug info warn error."
 
 (defun efrit--get-api-key ()
   "Get the Anthropic API key from .authinfo file."
-  (let* ((auth-info (car (auth-source-search :host "api.anthropic.com"
+  (let* ((auth-info (car (auth-source-search :host "openrouter.ai"
                                             :user "personal"
                                             :require '(:secret))))
          (secret (plist-get auth-info :secret)))
diff --git a/plans/AUTONOMOUS_MODE_DESIGN.md b/plans/AUTONOMOUS_MODE_DESIGN.md
@@ -25,7 +25,7 @@ efrit-agent        → Aggressive problem-solving until complete (NEW)
   "context": "It's several versions behind, managed by straight.el",
   "session_id": "upgrade-20250814",
   "max_iterations": 50,
-  "model_backend": "claude-3.5-sonnet"
+  "model_backend": "anthropic/claude-sonnet-4"
 }
 ```
 
@@ -112,9 +112,9 @@ Respond with your next action as JSON...
 
 ### 4. **Model Backend Abstraction**
 ```elisp
-(defcustom efrit-agent-backend "claude-3.5-sonnet"
+(defcustom efrit-agent-backend "anthropic/claude-sonnet-4"
   "Default model backend for agent mode."
-  :type '(choice (const "claude-3.5-sonnet")
+  :type '(choice (const "anthropic/claude-sonnet-4")
                  (const "gpt-4") 
                  (const "local-llama")
                  (string :tag "Custom API endpoint")))
diff --git a/qa/qa-final-comprehensive-report.el b/qa/qa-final-comprehensive-report.el
@@ -132,7 +132,7 @@
       (insert ";; Recommended production settings\n")
       (insert "(setq efrit-work-buffer-max-size 100000)  ; 100KB limit\n")
       (insert "(setq efrit-show-work-buffer nil)         ; Don't auto-show\n")
-      (insert "(setq efrit-model \"claude-3-5-sonnet-20241022\")  ; Latest model\n")
+      (insert "(setq efrit-model \"anthropic/claude-sonnet-4")  ; Latest model\n")
       (insert "(setq efrit-max-tokens 8192)              ; Maximum context\n")
       (insert "(setq efrit-temperature 0.1)              ; Focused responses\n")
       (insert "```\n\n")
diff --git a/qa/qa-test-integration.el b/qa/qa-test-integration.el
@@ -89,7 +89,7 @@
                   "{\"type\":\"text\",\"text\":\"I'll create a haiku about Vim for you.\"},"
                   "{\"type\":\"tool_use\",\"id\":\"toolu_test\",\"name\":\"eval_sexp\","
                   "\"input\":{\"expr\":\"(get-buffer-create \\\"*vim-haiku*\\\")\"}}"
-                  "],\"model\":\"claude-3-5-sonnet-20241022\"}"))
+                  "],\"model\":\"anthropic/claude-sonnet-4"}"))
          (mock-buffer (get-buffer-create "*mock-api-response*")))
     
     ;; Set up mock response buffer
@@ -225,7 +225,7 @@
   ;; Check for hardcoded values that should be configurable
   (let ((system-prompt (efrit-streamlined--system-prompt)))
     (cond 
-     ((string-match-p "claude-3-5-sonnet" system-prompt)
+     ((string-match-p "anthropic/claude-sonnet-4" system-prompt)
       (message "⚠ System prompt contains hardcoded model name"))
      ((string-match-p "anthropic\\.com" system-prompt)
       (message "⚠ System prompt contains hardcoded API URL"))
diff --git a/qa/qa-test-real-integration.el b/qa/qa-test-real-integration.el
@@ -248,7 +248,7 @@
   
   ;; Test 4: Different models
   (let ((original-model efrit-model))
-    (setq efrit-model "claude-3-haiku-20240307")
+    (setq efrit-model "anthropic/claude-sonnet-4")
     (unwind-protect
         (condition-case err
             (progn
diff --git a/qa/qa-test-streamlined.el b/qa/qa-test-streamlined.el
@@ -83,7 +83,7 @@
   
   ;; Test 1: Valid response with text content
   (let ((mock-response-text-only
-         "{\"content\":[{\"type\":\"text\",\"text\":\"Hello, this is a test response.\"}],\"model\":\"claude-3-5-sonnet-20241022\"}"))
+         "{\"content\":[{\"type\":\"text\",\"text\":\"Hello, this is a test response.\"}],\"model\":\"anthropic/claude-sonnet-4"}"))
     (condition-case err
         (let ((parsed (json-read-from-string mock-response-text-only)))
           (if parsed
