factor/extra/editors/editpadpro/editpadpro.factor

16 lines
470 B
Factor
Raw Normal View History

2007-09-20 18:09:08 -04:00
USING: definitions kernel parser words sequences math.parser
namespaces editors io.launcher windows.shell32 io.files
2007-12-09 12:43:17 -05:00
io.paths strings ;
2007-09-20 18:09:08 -04:00
IN: editors.editpadpro
: editpadpro-path
\ editpadpro-path get-global [
program-files "JGsoft" path+ walk-dir
[ >lower "editpadpro.exe" tail? ] find nip
] unless* ;
2007-09-20 18:09:08 -04:00
: editpadpro ( file line -- )
[ editpadpro-path % " /l" % # " \"" % % "\"" % ] "" make run-detached ;
2007-09-20 18:09:08 -04:00
[ editpadpro ] edit-hook set-global