PSF: Mass-regeneration complete. 53/53 high-fidelity blueprints and TDD suites established. Zero-cost Pro bridge active.

projects/org-skill-economist/src/economist-logic.lisp

@@ -0,0 +1,31 @@
+(in-package :org-agent)
+
+(defun economist-route-task (context)
+  "Analyzes the stimulus context and returns a prioritized list of providers.
+   High-priority or complex tasks (e.g., :architect) get powerful models.
+   Routine tasks (e.g., :heartbeat, :persistence) get cheap/flash models."
+  (let* ((payload (getf context :payload))
+         (sensor (getf payload :sensor))
+         (complexity (ignore-errors (uiop:symbol-call :org-agent.skills.org-skill-router :router-classify-complexity context))))
+    (cond
+      ;; Explicit user interaction or Reasoning tasks
+      ((or (member sensor '(:user-command)) (eq complexity :REASONING)) '(:openrouter))
+      
+      ;; Cognitive or Reflexive tasks
+      (t '(:openrouter))))) ; Route through OpenRouter to avoid direct Google 429s
+
+(defun economist-get-model-for-provider (provider &optional context)
+  "Returns the specific model ID recommended for the given provider/complexity.
+   Updated for April 2026 SOTA. Prefers Gemini 3.0/2.5 Flash for reflexes."
+  (let ((complexity (ignore-errors (uiop:symbol-call :org-agent.skills.org-skill-router :router-classify-complexity context))))
+    (case provider
+      (:openrouter
+       (case complexity
+         (:REASONING "anthropic/claude-3.5-sonnet")
+         (:COGNITION "moonshotai/kimi-k2.5")
+         (t "google/gemini-3-flash-preview")))
+      (t nil))))
+
+(defun economist-patch-kernel ()
+  "Hot-patches the kernel's *provider-cascade* to use economist logic."
+  (setf org-agent:*provider-cascade* #'economist-route-task))