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

fix(skills): improve skill loader to allow lisp keywords at start of line

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-28 20:07:14 -04:00
parent c180e55cb3
commit 31d3a52aeb
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harness/skills.org
View File

@@ -179,7 +179,9 @@ The ~opencortex~ Skill Engine enables **Late-Binding Intelligence**, allowing th
((uiop:string-prefix-p "#+end_src" clean-line) ((uiop:string-prefix-p "#+end_src" clean-line)
(setf in-lisp-block nil) (setf collect-this-block nil)) (setf in-lisp-block nil) (setf collect-this-block nil))
((and in-lisp-block collect-this-block) ((and in-lisp-block collect-this-block)
(unless (or (uiop:string-prefix-p ":" clean-line)) (unless (or (uiop:string-prefix-p ":PROPERTIES:" (string-upcase clean-line))
(uiop:string-prefix-p ":END:" (string-upcase clean-line))
(uiop:string-prefix-p ":ID:" (string-upcase clean-line)))
(setf lisp-code (concatenate 'string lisp-code line (string #\Newline)))))))) (setf lisp-code (concatenate 'string lisp-code line (string #\Newline))))))))
(if (= (length lisp-code) 0) (if (= (length lisp-code) 0)
(setf (skill-entry-status entry) :ready) (setf (skill-entry-status entry) :ready)