fix(setup): initialize skills before running setup wizard and resolve syntax errors in config manager

This commit is contained in:
2026-04-28 19:56:54 -04:00
parent 45d8531efa
commit 2030538281
3 changed files with 5 additions and 12 deletions

View File

@@ -145,17 +145,9 @@ The ~package.lisp~ file defines the public API of the ~opencortex~ harness.
#:lisp-utils-register
;; --- Config Manager & Diagnostics Skill ---
#:register-provider
#:save-providers
#:configure-provider
#:run-setup-wizard
#:get-oc-config-dir
#:prompt-for
#:save-secret
#:doctor-check-dependencies
#:doctor-check-xdg
#:doctor-check-llm
#:doctor-run-all
;; --- Tool Permissions Skill ---
#:get-tool-permission

View File

@@ -103,6 +103,7 @@ setup_system() {
--eval '(load (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))' \
--eval "(push (truename \"$OC_DATA_DIR/\") asdf:*central-registry*)" \
--eval '(ql:quickload :opencortex)' \
--eval '(opencortex:initialize-all-skills)' \
--eval '(opencortex:run-setup-wizard)'
}

View File

@@ -17,14 +17,14 @@ The *Config Manager* skill provides the OpenCortex Agent with the capability to
#+begin_src lisp
(defun get-oc-config-dir ()
"Returns the absolute path to the opencortex config directory."
(let ((xdg (uiop:getenv "OC_CONFIG_DIR))
(if (and xdg (string/= xdg
(let ((xdg (uiop:getenv "OC_CONFIG_DIR")))
(if (and xdg (string/= xdg ""))
(uiop:ensure-directory-pathname xdg)
(uiop:ensure-directory-pathname (merge-pathnames ".config/opencortex/" (user-homedir-pathname))))))
(defun save-providers ()
"Stubs for saving provider configuration."
(harness-log "CONFIG: Providers saved.)
(harness-log "CONFIG: Providers saved."))
(defun configure-provider (id)
"Stubs for configuring a provider."
@@ -32,7 +32,7 @@ The *Config Manager* skill provides the OpenCortex Agent with the capability to
(defun run-setup-wizard ()
"Interactive setup wizard for OpenCortex."
(format t "--- OpenCortex Setup Wizard ---~%
(format t "--- OpenCortex Setup Wizard ---~%")
(save-providers)
(doctor-main))
#+end_src