factor/basis/editors/editpadpro/editpadpro.factor

USING: definitions kernel parser words sequences math.parser
namespaces editors io.launcher windows.shell32 io.files
io.directories.search.windows strings unicode.case make ;
IN: editors.editpadpro

: editpadpro-path ( -- path )
    \ editpadpro-path get-global [
        "JGsoft" [ >lower "editpadpro.exe" tail? ] find-in-program-files
        [ "editpadpro.exe" ] unless*
    ] unless* ;

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

[ editpadpro ] edit-hook set-global
Initial import 2007-09-20 18:09:08 -04:00			`USING: definitions kernel parser words sequences math.parser`
EditPadPro automatically configures path 2007-12-09 11:48:47 -05:00			`namespaces editors io.launcher windows.shell32 io.files`
fix windows editors 2008-12-15 22:45:18 -05:00			`io.directories.search.windows strings unicode.case make ;`
Initial import 2007-09-20 18:09:08 -04:00			`IN: editors.editpadpro`

update all editors for windows 64 to look in "program files" and "program files (x86)" 2008-12-08 21:11:24 -05:00			`: editpadpro-path ( -- path )`
EditPadPro automatically configures path 2007-12-09 11:48:47 -05:00			`\ editpadpro-path get-global [`
fix editors for find-in-program-files change 2009-02-26 22:50:20 -05:00			`"JGsoft" [ >lower "editpadpro.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			`[ "editpadpro.exe" ] unless*`
EditPadPro automatically configures path 2007-12-09 11:48:47 -05:00			`] unless* ;`

Initial import 2007-09-20 18:09:08 -04:00			`: editpadpro ( file line -- )`
Updating extra/ for launcher changes 2008-01-24 02:50:40 -05:00			`[`
update all editors for windows 64 to look in "program files" and "program files (x86)" 2008-12-08 21:11:24 -05:00			`editpadpro-path , number>string "/l" prepend , ,`
Updating extra/ for launcher changes 2008-01-24 02:50:40 -05:00			`] { } make run-detached drop ;`
Initial import 2007-09-20 18:09:08 -04:00
			`[ editpadpro ] edit-hook set-global`