amr/passepartout
1
0
Fork 0
Code Issues 15 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix(chaos): hard-inserted clean relative tangle headers in all core files

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-28 19:04:34 -04:00
parent 14ef0d2cb8
commit def2774c8f
24 changed files with 219 additions and 208 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
skills/org-skill-llama-backend.org
View File

@@ -15,9 +15,9 @@ The *Llama Backend* skill provides the actual implementation for calling local m
** Ollama API Call (ollama-call)
#+begin_src lisp
(defun ollama-call (prompt system-prompt &key (model "llama3"))
(defun ollama-call (prompt system-prompt &key (model "llama3)
"Sends a request to the local Ollama API."
(let* ((host (or (uiop:getenv "OLLAMA_HOST") "localhost:11434"))
(let* ((host (or (uiop:getenv "OLLAMA_HOST "localhost:11434)
(url (format nil "http://~a/api/generate" host))
(payload (cl-json:encode-json-to-string
`((model . ,model)
@@ -25,7 +25,7 @@ The *Llama Backend* skill provides the actual implementation for calling local m
(system . ,system-prompt)
(stream . nil)))))
(handler-case
(let ((response (dex:post url :content payload :headers '(("Content-Type" . "application/json")))))
(let ((response (dex:post url :content payload :headers '(("Content-Type" . "application/json))))
(let ((data (cl-json:decode-json-from-string response)))
(list :status :success :content (getf data :response))))
(error (c)