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

fix(setup): hardcode INSTALL_DIR in emacs eval for reliable tangling

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-28 17:53:38 -04:00
parent 8ed9a78d54
commit 00c3f8ef69
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
opencortex.sh
View File

@@ -68,15 +68,15 @@ setup_system() {
# Critical: Tangle manifest first to establish system structure
echo "Tangling harness/manifest.org..."
emacs -Q --batch --eval "(require 'org)" --eval "(require 'uiop)" --eval "(setenv \"INSTALL_DIR\" \"$OC_DATA_DIR\")" --eval "(org-babel-tangle-file \"harness/manifest.org\")" >/dev/null 2>&1 || true
emacs -Q --batch --eval "(require 'org)" --eval "(require 'uiop)" --eval "(setenv \"INSTALL_DIR\" \"$OC_DATA_DIR\")" --eval "(setq org-confirm-babel-evaluate nil)" --eval "(org-babel-tangle-file \"harness/manifest.org\")" >/dev/null 2>&1 || true
echo "Tangling harness/tui-client.org..."
emacs -Q --batch --eval "(require 'org)" --eval "(require 'uiop)" --eval "(setenv \"INSTALL_DIR\" \"$OC_DATA_DIR\")" --eval "(org-babel-tangle-file \"harness/tui-client.org\")" >/dev/null 2>&1 || true
emacs -Q --batch --eval "(require 'org)" --eval "(require 'uiop)" --eval "(setenv \"INSTALL_DIR\" \"$OC_DATA_DIR\")" --eval "(setq org-confirm-babel-evaluate nil)" --eval "(org-babel-tangle-file \"harness/tui-client.org\")" >/dev/null 2>&1 || true
for f in harness/*.org skills/*.org; do
if [ "$f" != "harness/manifest.org" ] && [ "$f" != "harness/tui-client.org" ]; then
echo "Tangling $f..."
emacs -Q --batch --eval "(require 'org)" --eval "(require 'uiop)" --eval "(setenv \"INSTALL_DIR\" \"$OC_DATA_DIR\")" --eval "(org-babel-tangle-file \"$f\")" >/dev/null 2>&1 || true
emacs -Q --batch --eval "(require 'org)" --eval "(require 'uiop)" --eval "(setenv \"INSTALL_DIR\" \"$OC_DATA_DIR\")" --eval "(setq org-confirm-babel-evaluate nil)" --eval "(org-babel-tangle-file \"$f\")" >/dev/null 2>&1 || true
fi
done