;; Canonical package declaration.
(define-package "emacs"
  :description "Emacs bridge integration"
  :exports '(emacs)
  :effects '(emacs.eval.op)
  :requires '()
  :version "0.1.0"
)
;;; emacs/client.lisp --- Emacs daemon integration for OmegaLLM
;;;
;;; Usage:
;;;   (load "lib/emacs/client.lisp")
;;;   (emacs-health)
;;;   (emacs-eval "(+ 1 2)")
;;;   (emacs-search "pattern")
;;;   (emacs-edit "path" "old" "new")

;; Core
(define (emacs-health)       (effect emacs.health.op))
(define (emacs-ensure)       (effect emacs.ensure.op))
(define (emacs-eval expr)    (effect emacs.eval.op expr))
(define (emacs-search pat)   (effect emacs.search.op pat))
(define (emacs-edit f o n)   (effect emacs.edit.op f o n))
(define (emacs-replace old new) (effect emacs.replace-all.op old new))
(define (emacs-restart)      (effect emacs.restart.op))
(define (emacs-buffers)      (effect emacs.buffer-count.op))
;; Manifest export anchors.
(define emacs #t)