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

fix(chaos): switch to definitive absolute paths via expand-file-name for reliable tangling

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-28 17:55:58 -04:00
parent d6a7e83de4
commit fd5513057e
35 changed files with 143 additions and 143 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
skills/org-skill-engineering-standards.org
View File

@@ -1,4 +1,4 @@
#+PROPERTY: header-args:lisp :tangle (expand-file-name "org-skill-engineering-standards.lisp" (or (identity (getenv "INSTALL_DIR")) (file-name-directory (buffer-file-name))))
#+PROPERTY: header-args:lisp :tangle (expand-file-name "org-skill-engineering-standards.lisp" (expand-file-name "skills/" (or (identity (getenv "INSTALL_DIR")) ".")))
:PROPERTIES:
:ID: 37f2b59f-4537-4cca-ac7f-5c24b9e2e773
:CREATED: [2026-03-30 Mon 21:16]
@@ -57,17 +57,17 @@ Every significant fix or architectural decision MUST be documented in an org fil
* Enforcement Implementation
** Package Context
#+begin_src lisp :tangle (expand-file-name "org-skill-engineering-standards.lisp" (or (identity (getenv "INSTALL_DIR")) (file-name-directory (buffer-file-name))))
#+begin_src lisp :tangle (expand-file-name "org-skill-engineering-standards.lisp" (expand-file-name "skills/" (or (identity (getenv "INSTALL_DIR")) ".")))
(in-package :opencortex)
#+end_src
** Global Configuration
#+begin_src lisp :tangle (expand-file-name "org-skill-engineering-standards.lisp" (or (identity (getenv "INSTALL_DIR")) (file-name-directory (buffer-file-name))))
#+begin_src lisp :tangle (expand-file-name "org-skill-engineering-standards.lisp" (expand-file-name "skills/" (or (identity (getenv "INSTALL_DIR")) ".")))
(defvar *engineering-std-project-root* nil
"Path to the project root for enforcement checks.")
#+end_src
#+begin_src lisp :tangle (expand-file-name "org-skill-engineering-standards.lisp" (or (identity (getenv "INSTALL_DIR")) (file-name-directory (buffer-file-name))))
#+begin_src lisp :tangle (expand-file-name "org-skill-engineering-standards.lisp" (expand-file-name "skills/" (or (identity (getenv "INSTALL_DIR")) ".")))
(defstruct engineering-violation
(phase nil)
(rule nil)
@@ -76,7 +76,7 @@ Every significant fix or architectural decision MUST be documented in an org fil
#+end_src
** CDD Utilities: Tier 1
#+begin_src lisp :tangle (expand-file-name "org-skill-engineering-standards.lisp" (or (identity (getenv "INSTALL_DIR")) (file-name-directory (buffer-file-name))))
#+begin_src lisp :tangle (expand-file-name "org-skill-engineering-standards.lisp" (expand-file-name "skills/" (or (identity (getenv "INSTALL_DIR")) ".")))
(defun check-structural-balance (file-path)
"Tier 1 Chaos: Verifies that a Lisp file is syntactically balanced."
(handler-case
@@ -90,7 +90,7 @@ Every significant fix or architectural decision MUST be documented in an org fil
#+end_src
** Git Protocol
#+begin_src lisp :tangle (expand-file-name "org-skill-engineering-standards.lisp" (or (identity (getenv "INSTALL_DIR")) (file-name-directory (buffer-file-name))))
#+begin_src lisp :tangle (expand-file-name "org-skill-engineering-standards.lisp" (expand-file-name "skills/" (or (identity (getenv "INSTALL_DIR")) ".")))
(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
@@ -101,7 +101,7 @@ Every significant fix or architectural decision MUST be documented in an org fil
#+end_src
** Initializer
#+begin_src lisp :tangle (expand-file-name "org-skill-engineering-standards.lisp" (or (identity (getenv "INSTALL_DIR")) (file-name-directory (buffer-file-name))))
#+begin_src lisp :tangle (expand-file-name "org-skill-engineering-standards.lisp" (expand-file-name "skills/" (or (identity (getenv "INSTALL_DIR")) ".")))
(defun engineering-std-init ()
"Initialize the enforcement system."
(let ((env-root (or (uiop:getenv "OC_DATA_DIR")
@@ -111,32 +111,32 @@ Every significant fix or architectural decision MUST be documented in an org fil
#+end_src
;; Auto-initialize on load
#+begin_src lisp :tangle (expand-file-name "org-skill-engineering-standards.lisp" (or (identity (getenv "INSTALL_DIR")) (file-name-directory (buffer-file-name))))
#+begin_src lisp :tangle (expand-file-name "org-skill-engineering-standards.lisp" (expand-file-name "skills/" (or (identity (getenv "INSTALL_DIR")) ".")))
(engineering-std-init)
#+end_src
* Test Suite
#+begin_src lisp :tangle (expand-file-name "engineering-standards-tests.lisp" (or (identity (getenv "INSTALL_DIR")) (file-name-directory (buffer-file-name))))
#+begin_src lisp :tangle (expand-file-name "engineering-standards-tests.lisp" (expand-file-name "skills/" (or (identity (getenv "INSTALL_DIR")) ".")))
(defpackage :opencortex-engineering-standards-tests
(:use :cl :fiveam :opencortex)
(:export #:engineering-standards-suite))
#+end_src
#+begin_src lisp :tangle (expand-file-name "engineering-standards-tests.lisp" (or (identity (getenv "INSTALL_DIR")) (file-name-directory (buffer-file-name))))
#+begin_src lisp :tangle (expand-file-name "engineering-standards-tests.lisp" (expand-file-name "skills/" (or (identity (getenv "INSTALL_DIR")) ".")))
(in-package :opencortex-engineering-standards-tests)
#+end_src
#+begin_src lisp :tangle (expand-file-name "engineering-standards-tests.lisp" (or (identity (getenv "INSTALL_DIR")) (file-name-directory (buffer-file-name))))
#+begin_src lisp :tangle (expand-file-name "engineering-standards-tests.lisp" (expand-file-name "skills/" (or (identity (getenv "INSTALL_DIR")) ".")))
(def-suite engineering-standards-suite
:description "Tests for Engineering Standards enforcement")
#+end_src
#+begin_src lisp :tangle (expand-file-name "engineering-standards-tests.lisp" (or (identity (getenv "INSTALL_DIR")) (file-name-directory (buffer-file-name))))
#+begin_src lisp :tangle (expand-file-name "engineering-standards-tests.lisp" (expand-file-name "skills/" (or (identity (getenv "INSTALL_DIR")) ".")))
(in-suite engineering-standards-suite)
#+end_src
#+begin_src lisp :tangle (expand-file-name "engineering-standards-tests.lisp" (or (identity (getenv "INSTALL_DIR")) (file-name-directory (buffer-file-name))))
#+begin_src lisp :tangle (expand-file-name "engineering-standards-tests.lisp" (expand-file-name "skills/" (or (identity (getenv "INSTALL_DIR")) ".")))
(test git-clean-check-clean
"verify-git-clean-p returns T when git tree is clean."
(let ((tmp-dir "/tmp/eng-std-test-clean/"))