Amr Gharbeia
fc0c069d65
Self-edit: 5 new tests (apply success/not-found/file-not-found, parse-location x2) Config-manager: 4 new tests (get-oc-config-dir, save-providers, configure-provider) Gateway-manager: 2 new tests (multiple-platforms, registration) Tier 1 Chaos: Verified org files pass structural balance Note: Some tests have issues - config tests use functions not exported, one self-edit test has search function issue. Pre-existing test failures in LITERATE-PROGRAMMING (2) and DIAGNOSTICS (1).
31 lines
831 B
Common Lisp
31 lines
831 B
Common Lisp
(in-package :opencortex)
|
|
|
|
(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))
|