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