1 ! Copyright (C) 2008 Kibleur Christophe.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: editors io.files io.launcher kernel math.parser
4 namespaces sequences windows.shell32 io.paths.windows make ;
5 IN: editors.etexteditor
7 : etexteditor-path ( -- str )
8 \ etexteditor-path get-global [
9 "e" t [ "e.exe" tail? ] find-in-program-files
12 : etexteditor ( file line -- )
15 [ , ] [ "--line" , number>string , ] bi*
16 ] { } make run-detached drop ;
18 [ etexteditor ] edit-hook set-global