chore: Refactor TUI dependencies and improve setup script

literate/setup.org

@@ -56,6 +56,7 @@ setup_system() {
         read -p "Memex Root [/memex]: " memex_dir
         memex_dir=${memex_dir:-/memex}
         sed -i "s|MEMEX_DIR=.*|MEMEX_DIR=\"$memex_dir\"|" .env
+        sed -i "s|\"/memex/|\"$memex_dir/|g" .env
         
         read -p "Inbox Directory [$memex_dir/inbox]: " inbox_dir
         inbox_dir=${inbox_dir:-$memex_dir/inbox}

opencortex.asd

@@ -4,7 +4,7 @@
   :version "0.1.0"
   :license "AGPLv3"
   :description "The Probabilistic-Deterministic Lisp Machine Harness"
-  :depends-on (:usocket :bordeaux-threads :dexador :uiop :cl-dotenv :cl-ppcre :hunchentoot :ironclad :str :cl-json :uuid :croatoan)
+  :depends-on (:usocket :bordeaux-threads :dexador :uiop :cl-dotenv :cl-ppcre :hunchentoot :ironclad :str :cl-json :uuid)
   :serial t
   :components ((:file "src/package")
                (:file "src/skills")
@@ -37,10 +37,3 @@
              (uiop:symbol-call :fiveam :run! (uiop:find-symbol* :boot-suite :opencortex-boot-tests))
              (uiop:symbol-call :fiveam :run! (uiop:find-symbol* :memory-suite :opencortex-memory-tests))
              (uiop:symbol-call :fiveam :run! (uiop:find-symbol* :immune-suite :opencortex-immune-system-tests))))
-
-(defsystem :opencortex/tui
-  :depends-on (:opencortex :croatoan :usocket :bordeaux-threads)
-  :components ((:file "src/tui-client"))
-  :build-operation "program-op"
-  :build-pathname "opencortex-tui"
-  :entry-point "opencortex.tui:main")

opencortex.sh

@@ -47,6 +47,7 @@ setup_system() {
         read -p "Memex Root [/memex]: " memex_dir
         memex_dir=${memex_dir:-/memex}
         sed -i "s|MEMEX_DIR=.*|MEMEX_DIR=\"$memex_dir\"|" .env
+        sed -i "s|\"/memex/|\"$memex_dir/|g" .env
         
         read -p "Inbox Directory [$memex_dir/inbox]: " inbox_dir
         inbox_dir=${inbox_dir:-$memex_dir/inbox}

src/tui-client.lisp

@@ -108,4 +108,4 @@
           
           (sleep 0.02))))
     (setf *is-running* nil)
-    (when *socket* (usocket:socket-close *socket*))))
+    (when *socket* (usocket:socket-close *socket*))))

test_input.txt

@@ -0,0 +1,9 @@
+TestUser
+TestAgent
+test_gemini_key
+
+
+/home/user/memex/test_memex
+/home/user/memex/test_memex/inbox
+/home/user/memex/test_memex/daily
+/home/user/memex/test_memex/projects