fix(chaos): finalized absolute tangle paths via concat and INSTALL_DIR

skills/org-skill-peripheral-vision.org

@@ -1,4 +1,4 @@
-#+PROPERTY: header-args:lisp :tangle (concat (getenv "INSTALL_DIR") "/skills/org-skill-peripheral-vision.lisp" (expand-file-name ""))
+#+PROPERTY: header-args:lisp :tangle (concat (identity (getenv "INSTALL_DIR")) "/skills/org-skill-peripheral-vision.lisp")" )
 :PROPERTIES:
 :ID:       org-skill-peripheral-vision
 :CREATED:  [2026-04-12 Sun 14:15]
@@ -45,10 +45,10 @@ Move context pruning and rendering logic out of `context.lisp` to allow for more
 #+end_src
 \n#+begin_src lisp
 (defun context-render-to-org (obj &key depth foveal-id semantic-threshold foveal-vector)
-  "Recursively renders an org-object with foveal-peripheral pruning.")
+  "Recursively renders an org-object with foveal-peripheral pruning.
 
 (defun context-assemble-global-awareness (&optional signal)
-  "Assembles the full context block for a neural request.")
+  "Assembles the full context block for a neural request.
 #+end_src
 
 * Phase D: Build (Implementation)
@@ -60,7 +60,7 @@ Move context pruning and rendering logic out of `context.lisp` to allow for more
   "Recursively renders an org-object and its children to an Org string using a Foveal-Peripheral Hybrid model."
   (let* ((id (org-object-id obj))
          (is-foveal (equal id foveal-id))
-         (title (or (getf (org-object-attributes obj) :TITLE) "Untitled"))
+         (title (or (getf (org-object-attributes obj) :TITLE) "Untitled)
          (content (org-object-content obj))
          (children (org-object-children obj))
          (stars (make-string depth :initial-element #\*))
@@ -73,13 +73,13 @@ Move context pruning and rendering logic out of `context.lisp` to allow for more
          ;; We always render the foveal node and its immediate children.
          ;; We render deeper nodes ONLY if they are semantically relevant.
          (should-render (or (<= depth 2) is-foveal is-semantically-relevant))
-         (output ""))
+         (output 
     
     (when should-render
       (setf output (format nil "~a ~a~%:PROPERTIES:~%:ID: ~a~%" stars title id))
       (when (and is-semantically-relevant (> similarity 0))
         (setf output (concatenate 'string output (format nil ":SEMANTIC_SCORE: ~,2f~%" similarity))))
-      (setf output (concatenate 'string output (format nil ":END:~%")))
+      (setf output (concatenate 'string output (format nil ":END:~%))
       
       ;; Only include full body content if this is the Foveal focus or highly relevant
       (when (and content (or is-foveal is-semantically-relevant))
@@ -106,14 +106,14 @@ Move context pruning and rendering logic out of `context.lisp` to allow for more
          (foveal-vector (when foveal-id (org-object-vector (lookup-object foveal-id))))
          (projects (context-get-active-projects))
          (output "GLOBAL MEMEX AWARENESS (Peripheral Vision):
-"))
+)
     (if projects
         (dolist (project projects)
           (setf output (concatenate 'string output
                                     (context-render-to-org project 
                                                            :foveal-id foveal-id 
                                                            :foveal-vector foveal-vector))))
-        (setf output (concatenate 'string output "No active projects found.~%")))
+        (setf output (concatenate 'string output "No active projects found.~%))
     output))
 #+end_src
 
@@ -121,7 +121,7 @@ Move context pruning and rendering logic out of `context.lisp` to allow for more
 #+begin_src lisp
 (defskill :skill-peripheral-vision
   :priority 90
-  :dependencies ("org-skill-embedding")
+  :dependencies ("org-skill-embedding
   :trigger (lambda (ctx) (member (getf (getf ctx :payload) :sensor) '(:perceive :context-refresh)))
   :probabilistic nil
   :deterministic (lambda (action ctx)