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

refactor: Flatten directory structure library->harness, library/gen->skills

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-27 08:41:26 -04:00
parent 43dbe3cf2d
commit 664ba8243d
68 changed files with 637 additions and 666 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
skills/org-skill-literate-programming.org
View File

@@ -57,7 +57,7 @@ Code without surrounding prose is a bug report waiting to happen.
** Block Balance Checker
#+begin_src lisp :tangle ../library/gen/org-skill-literate-programming.lisp
#+begin_src lisp :tangle ./org-skill-literate-programming.lisp
(in-package :opencortex)
(defun literate-check-block-balance (code-string)
@@ -94,7 +94,7 @@ Code without surrounding prose is a bug report waiting to happen.
** File-Level Balance Audit
#+begin_src lisp :tangle ../library/gen/org-skill-literate-programming.lisp
#+begin_src lisp :tangle ./org-skill-literate-programming.lisp
(defun literate-audit-org-file (filepath)
"Audits all tangled lisp blocks in an Org file for structural balance.
@@ -145,7 +145,7 @@ Code without surrounding prose is a bug report waiting to happen.
Verifies that tangled `.lisp` files are in sync with their Org source. Violation: edited .lisp directly instead of through Org.
#+begin_src lisp :tangle ../library/gen/org-skill-literate-programming.lisp
#+begin_src lisp :tangle ./org-skill-literate-programming.lisp
(defvar *tangle-targets*
'(("skills/org-skill-engineering-standards.org" . "library/gen/org-skill-engineering-standards.lisp")
("skills/org-skill-literate-programming.org" . "library/gen/org-skill-literate-programming.lisp")
@@ -184,7 +184,7 @@ This detects direct .lisp edits (which violate the LP workflow)."
The LP skill runs at priority 1100 (just below engineering-standards at 1000).
#+begin_src lisp :tangle ../library/gen/org-skill-literate-programming.lisp
#+begin_src lisp :tangle ./org-skill-literate-programming.lisp
(defskill :skill-literate-programming
:priority 1100
:trigger (lambda (ctx)
@@ -218,7 +218,7 @@ The LP skill runs at priority 1100 (just below engineering-standards at 1000).
** Initialize Project Root
#+begin_src lisp :tangle ../library/gen/org-skill-literate-programming.lisp
#+begin_src lisp :tangle ./org-skill-literate-programming.lisp
(defvar *lp-initialized* nil)
(defun lp-init ()
@@ -240,7 +240,7 @@ The LP skill runs at priority 1100 (just below engineering-standards at 1000).
These tests verify the LP enforcement logic. Run with:
~(fiveam:run! 'literate-programming-suite)~
#+begin_src lisp :tangle ../tests/literate-programming-tests.lisp
#+begin_src lisp :tangle ./tests/literate-programming-tests.lisp
(defpackage :opencortex-literate-programming-tests
(:use :cl :fiveam :opencortex)
(:export #:literate-programming-suite))