Redirect Output

Redirect Output

[Johan Andersson]

[-- Attachment #1: Type: text/plain, Size: 701 bytes --]

Hey,

I have a batch program where I run some Elisp functions and then print some
results. The problem is that some of the functions I'm calling produces
output. And I don't want that. So I'm basically looking for a way to only
output my printing.

The first I thought about was redirecting stdout to something else. Like
this:


#!/usr/bin/emacs --script

(let* ((buffer (get-buffer-create "output"))
       (standard-output buffer))
  (print "some printing"))


That works fine, except that it does not bite on message. Like this:


#!/usr/bin/emacs --script
(let* ((buffer (get-buffer-create "output"))
       (standard-output buffer))
  (message "some message"))


Any ideas how I can solve this?

[-- Attachment #2: Type: text/html, Size: 1064 bytes --]

Re: Redirect Output

[Lennart Borgman]

On Tue, Mar 30, 2010 at 11:23 PM, Johan Andersson
<johan.rejeep@gmail.com> wrote:
> Hey,
> I have a batch program where I run some Elisp functions and then print some
> results. The problem is that some of the functions I'm calling produces
> output. And I don't want that. So I'm basically looking for a way to only
> output my printing.
> The first I thought about was redirecting stdout to something else. Like
> this:
>
> #!/usr/bin/emacs --script
> (let* ((buffer (get-buffer-create "output"))
>        (standard-output buffer))
>   (print "some printing"))
>
> That works fine, except that it does not bite on message. Like this:
>
> #!/usr/bin/emacs --script
> (let* ((buffer (get-buffer-create "output"))
>        (standard-output buffer))
>   (message "some message"))
>
> Any ideas how I can solve this?

defadvice the `message' function?

Re: Redirect Output

[Johan Andersson]

[-- Attachment #1: Type: text/plain, Size: 1199 bytes --]

Lennart, You're almost my private Emacs tutor :)

Didn't know about advicing! Looks like it could solve it! I will look into
it and get back with the results. But that'll have to wait until tomorrow.

Thanks!

On Tue, Mar 30, 2010 at 10:08 PM, Lennart Borgman <lennart.borgman@gmail.com
> wrote:

> On Tue, Mar 30, 2010 at 11:23 PM, Johan Andersson
> <johan.rejeep@gmail.com> wrote:
> > Hey,
> > I have a batch program where I run some Elisp functions and then
> print some
> > results. The problem is that some of the functions I'm calling produces
> > output. And I don't want that. So I'm basically looking for a way to only
> > output my printing.
> > The first I thought about was redirecting stdout to something else. Like
> > this:
> >
> > #!/usr/bin/emacs --script
> > (let* ((buffer (get-buffer-create "output"))
> >        (standard-output buffer))
> >   (print "some printing"))
> >
> > That works fine, except that it does not bite on message. Like this:
> >
> > #!/usr/bin/emacs --script
> > (let* ((buffer (get-buffer-create "output"))
> >        (standard-output buffer))
> >   (message "some message"))
> >
> > Any ideas how I can solve this?
>
> defadvice the `message' function?
>

[-- Attachment #2: Type: text/html, Size: 1896 bytes --]

Re: Redirect Output

[Johan Andersson]

[-- Attachment #1: Type: text/plain, Size: 1545 bytes --]

I solved it like this:

  (defadvice message (around message-around (format-string &rest args)
activate))
  (defun message-force (format-string &rest args)
    (princ (apply 'format format-string args)))

Thanks!

On Tue, Mar 30, 2010 at 10:14 PM, Johan Andersson <johan.rejeep@gmail.com>wrote:

> Lennart, You're almost my private Emacs tutor :)
>
> Didn't know about advicing! Looks like it could solve it! I will look into
> it and get back with the results. But that'll have to wait until tomorrow.
>
> Thanks!
>
> On Tue, Mar 30, 2010 at 10:08 PM, Lennart Borgman <
> lennart.borgman@gmail.com> wrote:
>
>> On Tue, Mar 30, 2010 at 11:23 PM, Johan Andersson
>> <johan.rejeep@gmail.com> wrote:
>> > Hey,
>> > I have a batch program where I run some Elisp functions and then
>> print some
>> > results. The problem is that some of the functions I'm calling produces
>> > output. And I don't want that. So I'm basically looking for a way to
>> only
>> > output my printing.
>> > The first I thought about was redirecting stdout to something else. Like
>> > this:
>> >
>> > #!/usr/bin/emacs --script
>> > (let* ((buffer (get-buffer-create "output"))
>> >        (standard-output buffer))
>> >   (print "some printing"))
>> >
>> > That works fine, except that it does not bite on message. Like this:
>> >
>> > #!/usr/bin/emacs --script
>> > (let* ((buffer (get-buffer-create "output"))
>> >        (standard-output buffer))
>> >   (message "some message"))
>> >
>> > Any ideas how I can solve this?
>>
>> defadvice the `message' function?
>>
>
>

[-- Attachment #2: Type: text/html, Size: 2554 bytes --]