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-engineering-standards.org
View File

@@ -107,7 +107,7 @@ The engineering standards skill is a HARD BLOCK gate. Violations are rejected, n
** Pre-Task Enforcement (Blocking)
#+begin_src lisp :tangle ../library/gen/org-skill-engineering-standards.lisp
#+begin_src lisp :tangle ./org-skill-engineering-standards.lisp
(in-package :opencortex)
(defvar *engineering-std-*project-root* nil
@@ -137,7 +137,7 @@ The engineering standards skill is a HARD BLOCK gate. Violations are rejected, n
** Git Clean Check (Blocking)
#+begin_src lisp :tangle ../library/gen/org-skill-engineering-standards.lisp
#+begin_src lisp :tangle ./org-skill-engineering-standards.lisp
(defun verify-git-clean-p (&optional (dir *engineering-std-*project-root*))
"Returns T if the git repository at DIR has no uncommitted changes."
(when dir
@@ -162,7 +162,7 @@ The engineering standards skill is a HARD BLOCK gate. Violations are rejected, n
These tests verify the enforcement logic. Run with:
~(fiveam:run! 'engineering-standards-suite)~
#+begin_src lisp :tangle ../tests/engineering-standards-tests.lisp
#+begin_src lisp :tangle ./tests/engineering-standards-tests.lisp
(defpackage :opencortex-engineering-standards-tests
(:use :cl :fiveam :opencortex)
(:export #:engineering-standards-suite))
@@ -229,7 +229,7 @@ These tests verify the enforcement logic. Run with:
** Blocking Gate (Hard Enforcement)
#+begin_src lisp :tangle ../library/gen/org-skill-engineering-standards.lisp
#+begin_src lisp :tangle ./org-skill-engineering-standards.lisp
(defun engineering-standards-gate (action context)
"The deterministic HARD BLOCK gate for Engineering Standards.
@@ -262,7 +262,7 @@ These tests verify the enforcement logic. Run with:
The skill runs at highest priority (1000) to block violations before any other skill.
#+begin_src lisp :tangle ../library/gen/org-skill-engineering-standards.lisp
#+begin_src lisp :tangle ./org-skill-engineering-standards.lisp
(defskill :skill-engineering-standards
:priority 1000
:trigger (lambda (ctx)
@@ -274,7 +274,7 @@ The skill runs at highest priority (1000) to block violations before any other s
** Initialize Project Root
#+begin_src lisp :tangle ../library/gen/org-skill-engineering-standards.lisp
#+begin_src lisp :tangle ./org-skill-engineering-standards.lisp
(defvar *engineering-std-initialized* nil)
(defun engineering-std-init ()