On 6 Nov 2013 18:00, "François Poulain" <
address@hidden> wrote:
Hi,
Le Wed, 6 Nov 2013 17:29:07 +0100, Michael Lachmann
<address@hidden> 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 <address@hidden>
_______________________________________________
Texmacs-dev mailing list
address@hidden
https://lists.gnu.org/mailman/listinfo/texmacs-dev