basis/editors/editpadpro/editpadpro.factor

   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.editpadpro
   5
   6 : editpadpro-path ( -- path )
   7     \ editpadpro-path get-global [
   8         "JGsoft" t [ >lower "editpadpro.exe" tail? ] find-in-program-files
   9     ] unless* ;
  10
  11 : editpadpro ( file line -- )
  12     [
  13         editpadpro-path , number>string "/l" prepend , ,
  14     ] { } make run-detached drop ;
  15
  16 [ editpadpro ] edit-hook set-global