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

fix(skills): resolve multiple syntax errors in skills.org

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-28 18:05:21 -04:00
parent bf5e404fd9
commit e9cc1dc0eb
1 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
harness/skills.org
View File

@@ -157,9 +157,8 @@ flowchart LR
(when end (when end
(let ((line (string-trim " " (subseq content (+ pos 13) end)))) (let ((line (string-trim " " (subseq content (+ pos 13) end))))
(dolist (d (uiop:split-string line :separator '(#\Space #\Tab))) (dolist (d (uiop:split-string line :separator '(#\Space #\Tab)))
(unless (string= d " (unless (string= d "")
(push d dependencies)))) (push d dependencies)))) (setf pos end)))))
(setf pos end)))))
(values id (reverse dependencies)))) (values id (reverse dependencies))))
#+end_src #+end_src
@@ -357,11 +356,11 @@ Only loads blocks that specify a .lisp tangle target, ignoring tests and example
(return-from initialize-all-skills nil)) (return-from initialize-all-skills nil))
(let ((sorted-files (topological-sort-skills skills-dir))) (let ((sorted-files (topological-sort-skills skills-dir)))
(let* ((mandatory-env (uiop:getenv "MANDATORY_SKILLS) (let* ((mandatory-env (uiop:getenv "MANDATORY_SKILLS"))
(mandatory-skills (if mandatory-env (mandatory-skills (if mandatory-env
(mapcar (lambda (s) (string-trim '(#\Space #\" #\') s)) (mapcar (lambda (s) (string-trim '(#\Space #\" #\') s))
(uiop:split-string mandatory-env :separator '( #\,))) (uiop:split-string mandatory-env :separator '( #\,)))
'("org-skill-policy" "org-skill-bouncer))) '("org-skill-policy" "org-skill-bouncer"))))
(dolist (req mandatory-skills) (dolist (req mandatory-skills)
(unless (member req sorted-files :key #'pathname-name :test #'string-equal) (unless (member req sorted-files :key #'pathname-name :test #'string-equal)
(error "BOOT FAILURE: Mandatory skill '~a' not found in skills directory: ~a" req (uiop:native-namestring skills-dir)))) (error "BOOT FAILURE: Mandatory skill '~a' not found in skills directory: ~a" req (uiop:native-namestring skills-dir))))
@@ -614,12 +613,12 @@ EXAMPLES:
(test test-topological-sort-basic (test test-topological-sort-basic
"Verify that skills are ordered by dependency." "Verify that skills are ordered by dependency."
(let ((tmp-dir "/tmp/opencortex-boot-test/) (let ((tmp-dir "/tmp/opencortex-boot-test/"))
(uiop:ensure-all-directories-exist (list tmp-dir)) (uiop:ensure-all-directories-exist (list tmp-dir))
(with-open-file (out (merge-pathnames "org-skill-a.org" tmp-dir) :direction :output :if-exists :supersede) (with-open-file (out (merge-pathnames "org-skill-a.org" tmp-dir) :direction :output :if-exists :supersede)
(format out "#+DEPENDS_ON: skill-b-id~%) (format out "#+DEPENDS_ON: skill-b-id~%"))
(with-open-file (out (merge-pathnames "org-skill-b.org" tmp-dir) :direction :output :if-exists :supersede) (with-open-file (out (merge-pathnames "org-skill-b.org" tmp-dir) :direction :output :if-exists :supersede)
(format out ":PROPERTIES:~%:ID: skill-b-id~%:END:~%) (format out ":PROPERTIES:~%:ID: skill-b-id~%:END:~%"))
(unwind-protect (unwind-protect
(let ((sorted (opencortex::topological-sort-skills tmp-dir))) (let ((sorted (opencortex::topological-sort-skills tmp-dir)))
(let ((pos-a (position "org-skill-a" sorted :key #'pathname-name :test #'string-equal)) (let ((pos-a (position "org-skill-a" sorted :key #'pathname-name :test #'string-equal))