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

fix(chaos): standardize tangle paths to uiop:getenv across all org files

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-28 17:51:44 -04:00
parent 5be90dcb8f
commit a5538bf9d8
33 changed files with 131 additions and 131 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
skills/org-skill-config-manager.org
View File

@@ -16,26 +16,26 @@ Secrets are appended to `~/.config/opencortex/.env`, while structural metadata i
* Phase B: Protocol (Success Criteria)
** Test Suite Context
#+begin_src lisp :tangle (expand-file-name "config-manager-tests.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/tests"))
#+begin_src lisp :tangle (expand-file-name "config-manager-tests.lisp" (concat (or (uiop:getenv "INSTALL_DIR") ".") "/tests"))
(defpackage :opencortex-config-manager-tests
(:use :cl :fiveam :opencortex)
(:export #:config-suite))
#+end_src
#+begin_src lisp :tangle (expand-file-name "config-manager-tests.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/tests"))
#+begin_src lisp :tangle (expand-file-name "config-manager-tests.lisp" (concat (or (uiop:getenv "INSTALL_DIR") ".") "/tests"))
(in-package :opencortex-config-manager-tests)
#+end_src
#+begin_src lisp :tangle (expand-file-name "config-manager-tests.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/tests"))
#+begin_src lisp :tangle (expand-file-name "config-manager-tests.lisp" (concat (or (uiop:getenv "INSTALL_DIR") ".") "/tests"))
(def-suite config-suite :description "Verification of the Config Manager skill")
#+end_src
#+begin_src lisp :tangle (expand-file-name "config-manager-tests.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/tests"))
#+begin_src lisp :tangle (expand-file-name "config-manager-tests.lisp" (concat (or (uiop:getenv "INSTALL_DIR") ".") "/tests"))
(in-suite config-suite)
#+end_src
** Registry Tests
#+begin_src lisp :tangle (expand-file-name "config-manager-tests.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/tests"))
#+begin_src lisp :tangle (expand-file-name "config-manager-tests.lisp" (concat (or (uiop:getenv "INSTALL_DIR") ".") "/tests"))
(test test-provider-registration
"Verify that multiple providers can be registered and saved."
(let ((opencortex::*providers* nil))
@@ -95,12 +95,12 @@ Secrets are appended to `~/.config/opencortex/.env`, while structural metadata i
* Phase C: Implementation (Build)
** Package Context
#+begin_src lisp :tangle (expand-file-name "org-skill-config-manager.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/skills"))
#+begin_src lisp :tangle (expand-file-name "org-skill-config-manager.lisp" (concat (or (uiop:getenv "INSTALL_DIR") ".") "/skills"))
(in-package :opencortex)
#+end_src
** Skill Metadata
#+begin_src lisp :tangle (expand-file-name "org-skill-config-manager.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/skills"))
#+begin_src lisp :tangle (expand-file-name "org-skill-config-manager.lisp" (concat (or (uiop:getenv "INSTALL_DIR") ".") "/skills"))
(defparameter *skill-config-manager*
'(:name "config-manager"
:description "Manages system settings and LLM provider configurations."
@@ -110,7 +110,7 @@ Secrets are appended to `~/.config/opencortex/.env`, while structural metadata i
#+end_src
** Provider Templates
#+begin_src lisp :tangle (expand-file-name "org-skill-config-manager.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/skills"))
#+begin_src lisp :tangle (expand-file-name "org-skill-config-manager.lisp" (concat (or (uiop:getenv "INSTALL_DIR") ".") "/skills"))
(defvar *provider-templates*
'((:ollama . (:name "Ollama (Local)" :fields ((:url :label "URL") (:model :label "Model")) :default-url "http://localhost:11434" :default-model "llama3"))
(:openrouter . (:name "OpenRouter" :fields ((:key :label "API Key" :secret t) (:model :label "Model")) :default-model "anthropic/claude-3-opus-20240229"))
@@ -122,7 +122,7 @@ Secrets are appended to `~/.config/opencortex/.env`, while structural metadata i
#+end_src
** Registry Persistence
#+begin_src lisp :tangle (expand-file-name "org-skill-config-manager.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/skills"))
#+begin_src lisp :tangle (expand-file-name "org-skill-config-manager.lisp" (concat (or (uiop:getenv "INSTALL_DIR") ".") "/skills"))
(defvar *providers* nil "Global registry of configured LLM providers.")
(defun get-oc-config-dir ()
@@ -159,14 +159,14 @@ Secrets are appended to `~/.config/opencortex/.env`, while structural metadata i
#+end_src
** Registry API
#+begin_src lisp :tangle (expand-file-name "org-skill-config-manager.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/skills"))
#+begin_src lisp :tangle (expand-file-name "org-skill-config-manager.lisp" (concat (or (uiop:getenv "INSTALL_DIR") ".") "/skills"))
(defun register-provider (id config)
"Update the global provider registry."
(setf (getf *providers* id) config))
#+end_src
** Setup Wizard Implementation
#+begin_src lisp :tangle (expand-file-name "org-skill-config-manager.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/skills"))
#+begin_src lisp :tangle (expand-file-name "org-skill-config-manager.lisp" (concat (or (uiop:getenv "INSTALL_DIR") ".") "/skills"))
(defun configure-provider (id)
"Guided configuration for a specific LLM provider template."
(let* ((template (cdr (assoc id *provider-templates*)))
@@ -187,7 +187,7 @@ Secrets are appended to `~/.config/opencortex/.env`, while structural metadata i
(format t "✓ ~a metadata registered.~%" (getf template :name))))
#+end_src
#+begin_src lisp :tangle (expand-file-name "org-skill-config-manager.lisp" (concat (or (getenv "INSTALL_DIR") ".") "/skills"))
#+begin_src lisp :tangle (expand-file-name "org-skill-config-manager.lisp" (concat (or (uiop:getenv "INSTALL_DIR") ".") "/skills"))
(defun run-setup-wizard ()
"Entry point for the interactive OpenCortex Lisp Setup Wizard."
(format t "=== OpenCortex: Advanced Setup Wizard ===~%")