#+TITLE: SKILL: Engineering Standards (org-skill-engineering-standards.org)
#+AUTHOR: Agent
#+FILETAGS: :system:engineering:chaos:
#+PROPERTY: header-args:lisp :tangle org-skill-engineering-standards.lisp

* Overview
The *Engineering Standards Skill* enforces technical invariants, including the **Commit-Before-Modify** rule and **Chaos-Driven Development**.

* Implementation

** Package Context
#+begin_src lisp
(in-package :opencortex)
#+end_src

** Standards Enforcement
#+begin_src lisp
(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))))
#+end_src

** Skill Registration
#+begin_src lisp
(defskill :skill-engineering-standards
  :priority 100
  :trigger (lambda (ctx) (declare (ignore ctx)) nil))
#+end_src