passepartout/skills/org-skill-engineering-standards.org

SKILL: Engineering Standards (org-skill-engineering-standards.org)

• Overview
• Implementation
  • Package Context
  • Standards Enforcement
  • Skill Registration

Overview

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

Implementation

Package Context

(in-package :opencortex)

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))))

Skill Registration

(defskill :skill-engineering-standards
  :priority 100
  :trigger (lambda (ctx) (declare (ignore ctx)) nil))