17 lines
508 B
Factor
17 lines
508 B
Factor
USING: definitions kernel parser words sequences math.parser
|
|
namespaces editors io.launcher windows.shell32 io.files
|
|
io.paths.windows strings unicode.case make ;
|
|
IN: editors.editpadpro
|
|
|
|
: editpadpro-path ( -- path )
|
|
\ editpadpro-path get-global [
|
|
"JGsoft" t [ >lower "editpadpro.exe" tail? ] find-in-program-files
|
|
] unless* ;
|
|
|
|
: editpadpro ( file line -- )
|
|
[
|
|
editpadpro-path , number>string "/l" prepend , ,
|
|
] { } make run-detached drop ;
|
|
|
|
[ editpadpro ] edit-hook set-global
|