From 0d76e8d3d604b5202ac99107e1f6821fe258409b Mon Sep 17 00:00:00 2001
From: Amr Gharbeia <amr@gharbeia.net>
Date: Thu, 23 Apr 2026 21:53:44 -0400
Subject: [PATCH] Fix emacs-edit tests: export functions and use qualified
 names

- Add emacs-edit-* function exports to package.lisp
- Update tests to use opencortex: prefix for function calls
- All 82 tests now passing
---
 library/package.lisp        |  7 ++++++-
 tests/emacs-edit-tests.lisp | 10 +++++-----
 2 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/library/package.lisp b/library/package.lisp
index 18db19b..8b1f32d 100644
--- a/library/package.lisp
+++ b/library/package.lisp
@@ -116,7 +116,12 @@
     #:get-tool-permission
     #:set-tool-permission
     #:check-tool-permission-gate
-    
+
+    ;; --- Emacs Edit Skill ---
+    #:emacs-edit-generate-id
+    #:emacs-edit-id-format
+    #:emacs-edit-set-property
+    #:emacs-edit-set-todo
     
     ;; --- Security Vault ---
    #:vault-get-secret
diff --git a/tests/emacs-edit-tests.lisp b/tests/emacs-edit-tests.lisp
index 2d10f7b..dc5e795 100644
--- a/tests/emacs-edit-tests.lisp
+++ b/tests/emacs-edit-tests.lisp
@@ -10,25 +10,25 @@
 (in-suite emacs-edit-suite)
 
 (test id-generation
-  (let ((id1 (emacs-edit-generate-id))
-        (id2 (emacs-edit-generate-id)))
+  (let ((id1 (opencortex:emacs-edit-generate-id))
+        (id2 (opencortex:emacs-edit-generate-id)))
     (is (plusp (length id1)))
     (is (not (string= id1 id2)))))
 
 (test id-format
-  (let ((formatted (emacs-edit-id-format "abc12345")))
+  (let ((formatted (opencortex:emacs-edit-id-format "abc12345")))
     (is (search "id:" formatted))))
 
 (test property-setter
   (let ((ast (list :type :headline
                   :properties (list :ID "id:test123" :TITLE "Test")
                   :contents nil)))
-    (emacs-edit-set-property ast "id:test123" :STATUS "ACTIVE")
+    (opencortex:emacs-edit-set-property ast "id:test123" :STATUS "ACTIVE")
     (is (string= (getf (getf ast :properties) :STATUS) "ACTIVE"))))
 
 (test todo-setter
   (let ((ast (list :type :headline
                   :properties (list :ID "id:todo001" :TITLE "Task")
                   :contents nil)))
-    (emacs-edit-set-todo ast "id:todo001" "DONE")
+    (opencortex:emacs-edit-set-todo ast "id:todo001" "DONE")
     (is (string= (getf (getf ast :properties) :TODO) "DONE"))))
\ No newline at end of file