Amr Gharbeia
21c792b019
- Updated all 23 skill org files to use absolute path - Tangle now outputs directly to ~/.local/share/opencortex/skills/ - Removed env var (org-babel doesn't expand it)
1.4 KiB
1.4 KiB
SKILL: Engineering Standards (org-skill-engineering-standards.org)
Overview
The Engineering Standards Skill enforces technical invariants, including the Commit-Before-Modify rule and Chaos-Driven Development.
Implementation
Standards Enforcement
(defun verify-git-clean-p (dir)
"Checks if a directory has uncommitted changes."
(let ((status (uiop:run-program (list "git" "-C" (namestring dir) "status" "--porcelain")
:output :string
:ignore-error-status t)))
(string= "" (string-trim '(#\Space #\Newline #\Tab) status))))
(defun engineering-standards-verify-lisp (code)
"Enforces Lisp structural and semantic standards using utils-lisp."
(let ((result (utils-lisp-validate code :strict t)))
(if (eq (getf result :status) :success)
t
(error (getf result :reason)))))
(defun engineering-standards-format-lisp (code)
"Ensures Lisp code adheres to formatting standards."
(utils-lisp-format code))Skill Registration
(defskill :skill-engineering-standards
:priority 100
:trigger (lambda (ctx) (declare (ignore ctx)) nil))