Re: X11 bindings and shell bindings

[Paul Emsley <paul.emsley@bioch.ox.ac.uk>]

Ishan Arora wrote:
> Hi,
>
> Is there a procedure to get mouse position.
I guess there may be a way via X11, but it is not clear to me.  What you 
might want to be doing is knowing the coordinates of a click in a 
canvas, which is not the same thing (and easier).


> And is there a procedure to synchronously run a shell code and return 
> the output as a String. Thanks.
;; code from thi <ttn at mingle.glug.org>
;;
;; run command and put the output into a string and return
;; it. (c.f. @code{run-command/strings})
(define (shell-command-to-string cmd)
  (with-output-to-string
    (lambda ()
      (let ((in-port (open-input-pipe cmd)))
    (let loop ((line (read-line in-port 'concat)))
      (or (eof-object? line)
          (begin
        (display line)
        (loop (read-line in-port 'concat)))))))))


Paul.