factor/extra/editors/editpadpro/editpadpro.factor

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

: editpadpro-path
    \ editpadpro-path get-global [
        program-files "JGsoft" append-path
        t [ >lower "editpadpro.exe" tail? ] find-file
    ] unless* ;

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

[ editpadpro ] edit-hook set-global