refactor: Flatten directory structure library->harness, library/gen->skills

skills/org-skill-homoiconic-memory.lisp

@@ -0,0 +1,28 @@
+(defun memory-org-to-json (source)
+  "Converts Org-mode source to JSON AST."
+  (declare (ignore source))
+  "")
+
+(defun memory-json-to-org (ast)
+  "Converts JSON AST back to Org-mode text."
+  (declare (ignore ast))
+  "")
+
+(defun memory-normalize-ast (ast)
+  "Recursively ensures ID uniqueness across the AST."
+  (declare (ignore ast))
+  nil)
+
+(defun make-memory-node (headline &key content properties children)
+  "Constructor for a normalized Org node alist."
+  (declare (ignore headline))
+  (list :TYPE :HEADLINE 
+        :PROPERTIES (or properties nil)
+        :CONTENT content 
+        :CONTENTS children))
+
+(defskill :skill-homoiconic-memory
+  :priority 100
+  :trigger (lambda (ctx) (declare (ignore ctx)) nil)
+  :probabilistic nil
+  :deterministic (lambda (action ctx) (declare (ignore ctx)) action))