amr/org-agent-contrib
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ALIGN: Unified terminology to Harness Protocol

Browse Source
This commit is contained in:
Amr Gharbeia
2026-04-13 13:18:53 -04:00
parent 5d48e808ae
commit dc90bfde20
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
org-skill-emacs-bridge.org
View File

@@ -16,7 +16,7 @@ The *Emacs Bridge Agent* is the primary sensory and motor interface to Emacs. It
:END: :END:
** 1. Purpose ** 1. Purpose
Define the transport layer for Org-Agent Communication Protocol (OACP). Define the transport layer for Org-Agent Communication Protocol (Harness Protocol).
** 2. User Needs ** 2. User Needs
- *Isolation:* Kernel remains transport-agnostic. - *Isolation:* Kernel remains transport-agnostic.
@@ -26,7 +26,7 @@ Define the transport layer for Org-Agent Communication Protocol (OACP).
** 3. Success Criteria ** 3. Success Criteria
*** TODO Socket Listener Initialization *** TODO Socket Listener Initialization
*** TODO Multi-client Connection Handling *** TODO Multi-client Connection Handling
*** TODO OACP Message Framing Verification *** TODO Harness Protocol Message Framing Verification
* Phase B: Blueprint (PROTOCOL) * Phase B: Blueprint (PROTOCOL)
:PROPERTIES: :PROPERTIES:
@@ -34,12 +34,12 @@ Define the transport layer for Org-Agent Communication Protocol (OACP).
:END: :END:
** 1. Architectural Intent ** 1. Architectural Intent
Interfaces for TCP I/O and protocol framing. Source of truth is the OACP specification. Interfaces for TCP I/O and protocol framing. Source of truth is the Harness Protocol specification.
** 2. Semantic Interfaces ** 2. Semantic Interfaces
#+begin_src lisp #+begin_src lisp
(defun start-emacs-server (&key (port 9105)) (defun start-emacs-server (&key (port 9105))
"Starts the OACP listener.") "Starts the Harness Protocol listener.")
(defun broadcast-to-emacs (action-plist) (defun broadcast-to-emacs (action-plist)
"Sends a framed message to all connected clients.") "Sends a framed message to all connected clients.")
@@ -50,14 +50,14 @@ Interfaces for TCP I/O and protocol framing. Source of truth is the OACP specifi
** TCP Sensory Layer ** TCP Sensory Layer
#+begin_src lisp :tangle ../projects/org-skill-emacs-bridge/src/bridge-logic.lisp #+begin_src lisp :tangle ../projects/org-skill-emacs-bridge/src/bridge-logic.lisp
(defun handle-emacs-client (stream) (defun handle-emacs-client (stream)
;; Logic for parsing length-prefixed OACP messages ;; Logic for parsing length-prefixed Harness Protocol messages
(format nil "Handling client on stream: ~a" stream)) (format nil "Handling client on stream: ~a" stream))
#+end_src #+end_src
** Outbound Actuation ** Outbound Actuation
#+begin_src lisp :tangle ../projects/org-skill-emacs-bridge/src/bridge-logic.lisp #+begin_src lisp :tangle ../projects/org-skill-emacs-bridge/src/bridge-logic.lisp
(defun stream-to-emacs (stream action-plist) (defun stream-to-emacs (stream action-plist)
"Streams a chunk of data to a specific Emacs client over OACP using framing." "Streams a chunk of data to a specific Emacs client over Harness Protocol using framing."
(let* ((type (or (getf action-plist :type) :request)) (let* ((type (or (getf action-plist :type) :request))
(payload (getf action-plist :payload)) (payload (getf action-plist :payload))
;; Ensure Emacs always receives a :payload drawer ;; Ensure Emacs always receives a :payload drawer