1 USING: definitions kernel parser words sequences math.parser
2 namespaces editors io.launcher windows.shell32 io.files
3 io.directories.search.windows strings unicode.case make ;
6 : editpadpro-path ( -- path )
7 \ editpadpro-path get-global [
8 "JGsoft" t [ >lower "editpadpro.exe" tail? ] find-in-program-files
9 [ "editpadpro.exe" ] unless*
12 : editpadpro ( file line -- )
14 editpadpro-path , number>string "/l" prepend , ,
15 ] { } make run-detached drop ;
17 [ editpadpro ] edit-hook set-global