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

fix(context): resolve unclosed strings and missing parens in skill-source and system-logs

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-28 19:01:14 -04:00
parent 1a1339c8fd
commit d3f2825558
1 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
harness/context.org
View File

@@ -34,7 +34,7 @@ The *Context API* (Peripheral Vision) provides the opencortex with the ability t
#+begin_src lisp #+begin_src lisp
(defun context-get-active-projects () (defun context-get-active-projects ()
"Returns headlines tagged as 'project' that are not yet marked DONE." "Returns headlines tagged as 'project' that are not yet marked DONE."
(remove-if (lambda (obj) (equal (getf (org-object-attributes obj) :TODO-STATE) "DONE")) (remove-if (lambda (obj) (equal (getf (org-object-attributes obj) :TODO-STATE) "DONE)
(context-query-store :tag "project" :type :HEADLINE))) (context-query-store :tag "project" :type :HEADLINE)))
#+end_src #+end_src
@@ -84,24 +84,24 @@ The *Context API* (Peripheral Vision) provides the opencortex with the ability t
"Recursively renders an org-object and its children to an Org string using a Foveal-Peripheral Hybrid model." "Recursively renders an org-object and its children to an Org string using a Foveal-Peripheral Hybrid model."
(let* ((id (org-object-id obj)) (let* ((id (org-object-id obj))
(is-foveal (equal id foveal-id)) (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)) (content (org-object-content obj))
(children (org-object-children obj)) (children (org-object-children obj))
(stars (make-string depth :initial-element #\*)) (stars (make-string depth :initial-element #\*))
(obj-vector (org-object-vector obj)) (obj-vector (org-object-vector obj))
(threshold (or semantic-threshold (ignore-errors (read-from-string (uiop:getenv "CONTEXT_SEMANTIC_THRESHOLD"))) 0.75)) (threshold (or semantic-threshold (ignore-errors (read-from-string (uiop:getenv "CONTEXT_SEMANTIC_THRESHOLD)) 0.75))
(similarity (if (and foveal-vector obj-vector (not is-foveal)) (similarity (if (and foveal-vector obj-vector (not is-foveal))
(cosine-similarity foveal-vector obj-vector) (cosine-similarity foveal-vector obj-vector)
0.0)) 0.0))
(is-semantically-relevant (>= similarity threshold)) (is-semantically-relevant (>= similarity threshold))
(should-render (or (<= depth 2) is-foveal is-semantically-relevant)) (should-render (or (<= depth 2) is-foveal is-semantically-relevant))
(output "")) (output ")
(when should-render (when should-render
(setf output (format nil "~a ~a~%:PROPERTIES:~%:ID: ~a~%" stars title id)) (setf output (format nil "~a ~a~%:PROPERTIES:~%:ID: ~a~%" stars title id))
(when is-semantically-relevant (when is-semantically-relevant
(setf output (concatenate 'string output (format nil ":SEMANTIC_SCORE: ~,2f~%" similarity)))) (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:~%))
(when (and content (or is-foveal is-semantically-relevant)) (when (and content (or is-foveal is-semantically-relevant))
(setf output (concatenate 'string output content (string #\Newline)))) (setf output (concatenate 'string output content (string #\Newline))))
@@ -143,36 +143,36 @@ The *Context API* (Peripheral Vision) provides the opencortex with the ability t
(let* ((foveal-id (or (getf signal :foveal-focus) (let* ((foveal-id (or (getf signal :foveal-focus)
(ignore-errors (getf (getf signal :payload) :target-id)))) (ignore-errors (getf (getf signal :payload) :target-id))))
(projects (context-get-active-projects)) (projects (context-get-active-projects))
(output (format nil "GLOBAL MEMEX AWARENESS (Peripheral Vision):~%"))) (output (format nil "GLOBAL MEMEX AWARENESS (Peripheral Vision):~%))
(if projects (if projects
(dolist (project projects) (dolist (project projects)
(setf output (concatenate 'string output (setf output (concatenate 'string output
(context-render-to-org project :foveal-id foveal-id)))) (context-render-to-org project :foveal-id foveal-id))))
(setf output (concatenate 'string output "No active projects found.~%"))) (setf output (concatenate 'string output "No active projects found.~%))
output)) output))
#+end_src #+end_src
* Test Suite * Test Suite
#+begin_src lisp :tangle tests/peripheral-vision-tests.lisp #+begin_src lisp :tangle context.lisp
(defpackage :opencortex-peripheral-vision-tests (defpackage :opencortex-peripheral-vision-tests
(:use :cl :fiveam :opencortex) (:use :cl :fiveam :opencortex)
(:export #:vision-suite)) (:export #:vision-suite))
(in-package :opencortex-peripheral-vision-tests) (in-package :opencortex-peripheral-vision-tests)
(def-suite vision-suite :description "Verification of Foveal-Peripheral context model.") (def-suite vision-suite :description "Verification of Foveal-Peripheral context model.
(in-suite vision-suite) (in-suite vision-suite)
(test test-foveal-rendering (test test-foveal-rendering
"Verify that the foveal target is rendered with content, while siblings are skeletal." "Verify that the foveal target is rendered with content, while siblings are skeletal."
(clrhash opencortex::*memory*) (clrhash opencortex::*memory*)
(let* ((ast '(:type :HEADLINE :properties (:ID "proj-root" :TITLE "Project" :TAGS "project") (let* ((ast '(:type :HEADLINE :properties (:ID "proj-root" :TITLE "Project" :TAGS "project
:contents ((:type :HEADLINE :properties (:ID "node-foveal" :TITLE "Foveal Node") :contents ((:type :HEADLINE :properties (:ID "node-foveal" :TITLE "Foveal Node
:raw-content "FOVEAL CONTENT" :contents nil) :raw-content "FOVEAL CONTENT" :contents nil)
(:type :HEADLINE :properties (:ID "node-peripheral" :TITLE "Peripheral Node") (:type :HEADLINE :properties (:ID "node-peripheral" :TITLE "Peripheral Node
:raw-content "PERIPHERAL CONTENT" :contents nil))))) :raw-content "PERIPHERAL CONTENT" :contents nil)))))
(ingest-ast ast) (ingest-ast ast)
(let ((output (context-assemble-global-awareness (list :foveal-focus "node-foveal")))) (let ((output (context-assemble-global-awareness (list :foveal-focus "node-foveal)))
(is (search "FOVEAL CONTENT" output)) (is (search "FOVEAL CONTENT" output))
(is (search "* Peripheral Node" output)) (is (search "* Peripheral Node" output))
(is (not (search "PERIPHERAL CONTENT" output)))))) (is (not (search "PERIPHERAL CONTENT" output))))))
@@ -180,8 +180,8 @@ The *Context API* (Peripheral Vision) provides the opencortex with the ability t
(test test-awareness-budget (test test-awareness-budget
"Verify that context-assemble-global-awareness handles multiple projects." "Verify that context-assemble-global-awareness handles multiple projects."
(clrhash opencortex::*memory*) (clrhash opencortex::*memory*)
(ingest-ast '(:type :HEADLINE :properties (:ID "p1" :TITLE "Project 1" :TAGS "project") :contents nil)) (ingest-ast '(:type :HEADLINE :properties (:ID "p1" :TITLE "Project 1" :TAGS "project :contents nil))
(ingest-ast '(:type :HEADLINE :properties (:ID "p2" :TITLE "Project 2" :TAGS "project") :contents nil)) (ingest-ast '(:type :HEADLINE :properties (:ID "p2" :TITLE "Project 2" :TAGS "project :contents nil))
(let ((output (context-assemble-global-awareness))) (let ((output (context-assemble-global-awareness)))
(is (search "Project 1" output)) (is (search "Project 1" output))
(is (search "Project 2" output)))) (is (search "Project 2" output))))