29 lines
949 B
Common Lisp
29 lines
949 B
Common Lisp
|
;; 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)
|