Hi,

 Le Wed, 6 Nov 2013 17:29:07 +0100, Michael Lachmann
<lachm...@eva.mpg.de> a écrit :

> I really need to learn scheme better!
> Anyway, I'd like to call up a file dialog that lets you select a
> file, and then insert into the buffer
> <action| filename | (system "open 'filename'")>
> 
> I got as far as
> (choose-file (lambda (f) (insert (url->string f))) "Please choose
> file" "") which inserts the filename
> but how do I insert the action?

Try :

(choose-file
  (lambda (f)
    (with f (url->string f)
      (insert `(action ,f ,(string-append "(system \"open " f "\" )")))))

Notice that "open" is not portable.

François

-- 
François Poulain <fpoul...@metrodore.fr>

_______________________________________________
Texmacs-dev mailing list
Texmacs-dev@gnu.org
https://lists.gnu.org/mailman/listinfo/texmacs-dev

Reply via email to