1 USING: definitions kernel parser words sequences math.parser
2 namespaces editors io.launcher windows.shell32 io.files
3 io.paths.windows strings unicode.case make ;
4 IN: editors.editpadlite
6 : editpadlite-path ( -- path )
7 \ editpadlite-path get-global [
8 "JGsoft" t [ >lower "editpadlite.exe" tail? ] find-in-program-files
11 : editpadlite ( file line -- )
13 editpadlite-path , drop ,
14 ] { } make run-detached drop ;
16 [ editpadlite ] edit-hook set-global