* Nathan Bird <4B699950.6080504@acceleration.net> : Wrote on Wed, 03 Feb 2010 10:42:08 -0500: | It would be pretty cool to do something like this: | (with-open-stream (str (swank:make-emacs-buffer-stream "*app-logger*")) | (princ "Woot!")) | | I'm thinking things like test-report streams, log streams etc. | | Does swank already have something like this? [Michael Weber gave you a better "correct" answer, but you should be aware of what slime already provides:] First, ;; In Emacs if you: (setq slime-enable-evaluate-in-emacs t) ;; Then in lisp you can define: (defun append-to-buffer (string buffer-name) (swank::eval-in-emacs `(progn (with-current-buffer (get-buffer-create ,buffer-name) (insert ,string))))) ;; so (append-to-buffer "foo\n" "*app-logger*") will write `foo' to a ;; buffer called *app-logger*. Next, If this is not sufficient, and you want a "REAL output stream, you can use the SWANK portablitly layer to open a socket connection to lisp, and have lisp write to the associated emacs buffer. Wrapped up in one function, it may look like this: (defun swank-make-emacs-output-stream (port buffer-name) (let (socket) (unwind-protect (progn (setq socket (swank-backend:create-socket swank::*loopback-interface* port)) (swank::eval-in-emacs `(progn (open-network-stream "Lisp output buffer" ,buffer-name ,swank::*loopback-interface* ,port) nil)) ; SLIME BUG: else invalid protocol message ;; return a stream (swank-backend:accept-connection socket :external-format (swank-backend::find-external-format "iso-latin-1"))) (when socket (swank-backend:close-socket socket))))) ;; Then your example would look like (with-open-stream (stream (swank-make-emacs-output-stream 7008 "*foo*")) (write-line "Woot!" stream )) ;; And this would print "Woot" in a buffer called "*foo*" in emacs ;; This is a rough sketch, and could be cleaned up. -- Madhu