factor/basis/editors/emeditor/emeditor.factor

USING: editors io.files io.launcher kernel math.parser
namespaces sequences windows.shell32 make
io.directories.search.windows ;
IN: editors.emeditor

: emeditor-path ( -- path )
    \ emeditor-path get-global [
        "EmEditor" [ "EmEditor.exe" tail? ] find-in-program-files
        [ "EmEditor.exe" ] unless*
    ] unless* ;

: emeditor ( file line -- )
    [
        emeditor-path , "/l" , number>string , ,
    ] { } make run-detached drop ;

[ emeditor ] edit-hook set-global
update all editors for windows 64 to look in "program files" and "program files (x86)" 2008-12-08 21:11:24 -05:00			`USING: editors io.files io.launcher kernel math.parser`
fix windows editors 2008-12-15 22:45:18 -05:00			`namespaces sequences windows.shell32 make`
			`io.directories.search.windows ;`
Add support for EmEditor 2007-12-04 00:31:03 -05:00			`IN: editors.emeditor`

emeditor autopath 2007-12-09 11:56:47 -05:00			`: emeditor-path ( -- path )`
			`\ emeditor-path get-global [`
fix editors for find-in-program-files change 2009-02-26 22:50:20 -05:00			`"EmEditor" [ "EmEditor.exe" tail? ] find-in-program-files`
try the binary name alone if the editor can't be found in the default location 2009-01-16 15:13:17 -05:00			`[ "EmEditor.exe" ] unless*`
emeditor autopath 2007-12-09 11:56:47 -05:00			`] unless* ;`

Add support for EmEditor 2007-12-04 00:31:03 -05:00			`: emeditor ( file line -- )`
			`[`
Updating extra/ for launcher changes 2008-01-24 02:50:40 -05:00			`emeditor-path , "/l" , number>string , ,`
			`] { } make run-detached drop ;`
Add support for EmEditor 2007-12-04 00:31:03 -05:00
			`[ emeditor ] edit-hook set-global`