fix(setup): initialize skills before running setup wizard and resolve syntax errors in config manager
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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)'
|
||||
}
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user