amr/memex
1
0
Fork 0
Code Issues 12 Pull Requests Actions Packages Projects 1 Releases Wiki Activity

chore: workspace synchronization (sync inbox.org and staged deletions)

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-08 10:11:44 -04:00
parent e99e1744b9
commit d28eb0d765
393 changed files with 150 additions and 29218 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
notes/org-skill-token-accountant.org
View File

@@ -34,7 +34,7 @@ Maintain a dynamic, state-aware provider cascade. Detect provider "pain" (errors
(defun token-accountant-get-cascade (context)
"Returns a dynamic list of providers, routing around pained ones."
(let ((all-providers '(:groq :openrouter :gemini))
(let ((all-providers '(:openrouter :groq :gemini))
(healthy nil)
(pained nil)
(now (get-universal-time)))
@@ -44,17 +44,19 @@ Maintain a dynamic, state-aware provider cascade. Detect provider "pain" (errors
(push p healthy)))
(append (nreverse healthy) (nreverse pained))))
(defun token-accountant-get-model-for-provider (provider &optional context)
"Returns the recommended model for the provider."
(case provider
(:openrouter "moonshotai/kimi-k2.5")
(:groq "llama-3.3-70b-versatile")
(:openrouter "meta-llama/llama-3.3-70b-instruct:free")
(:gemini "gemini-1.5-flash")
(:gemini "gemini-1.5-flash-latest")
(t nil)))
(defun token-accountant-patch-kernel ()
"Hot-patches the kernel's cascade to use our dynamic logic."
(setf *provider-cascade* #'token-accountant-get-cascade))
"Hot-patches the kernel's cascade and model selector to use our dynamic logic."
(setf org-agent:*provider-cascade* #'token-accountant-get-cascade)
(setf org-agent:*model-selector-fn* #'token-accountant-get-model-for-provider))
#+end_src
* Registration