Getting the (text) selection from the clipboard

Getting the (text) selection from the clipboard

[Richard Shann]

Does anyone know if there is a guile procedure to get the (text)
selection? (That is from doing Copy in another application)
Richard

Re: Getting the (text) selection from the clipboard

[Neil Jerram]

Richard Shann <richard.shann@virgin.net> writes:

> Does anyone know if there is a guile procedure to get the (text)
> selection? (That is from doing Copy in another application)
> Richard

I assume you mean in the X sense.

In core Guile: no.  But maybe guile-gtk or guile-gnome might expose an
equivalent Gtk+ API?

(There is also guile-xlib, which might theoretically be a good place
for this; but in practice it doesn't provide any selection APIs.)

Regards,
        Neil

Re: Getting the (text) selection from the clipboard

[Richard Shann]

Thanks for the info: as we have gtk in Denemo I've used that - just
didn't want to be doing something stupid!
Richard

> > Does anyone know if there is a guile procedure to get the (text)
> > selection? (That is from doing Copy in another application)
> > Richard
> 
> I assume you mean in the X sense.
> 
> In core Guile: no.  But maybe guile-gtk or guile-gnome might expose an
> equivalent Gtk+ API?
> 
> (There is also guile-xlib, which might theoretically be a good place
> for this; but in practice it doesn't provide any selection APIs.)
> 
> Regards,
>         Neil
> 
> 
> 

Re: Getting the (text) selection from the clipboard

[Kjetil S. Matheussen]

Richard Shann:
>
> Does anyone know if there is a guile procedure to get the (text)
> selection? (That is from doing Copy in another application)
> Richard
>

Assuming you mean X selection, I've used the "xsel" program to do this:

(define-macro (include filename)
   (define ret "")
   (for-each-line-in-file (string-trim-right (eval-parse filename))
 			 (lambda (line)
 			   (set! ret (string-append ret line "\n"))))
   ret)

(define-macro (x11-selection)
   (define filename (tmpnam))
   (if (not (= 0 (system (string-append "xsel >" filename))))
       (display "Error. x11-selection requires the \"xsel\" program: http://www.vergenet.net/~conrad/software/xsel/")
       `(include ,filename)))