basis/editors/editplus/editplus.factor

   1 USING: editors io.files io.launcher kernel math.parser
   2 namespaces sequences windows.shell32 make
   3 io.directories.search.windows ;
   4 IN: editors.editplus
   5
   6 : editplus-path ( -- path )
   7     \ editplus-path get-global [
   8         "EditPlus 2" t [ "editplus.exe" tail? ] find-in-program-files
   9         [ "editplus.exe" ] unless*
  10     ] unless* ;
  11
  12 : editplus ( file line -- )
  13     [
  14         editplus-path , "-cursor" , number>string , ,
  15     ] { } make run-detached drop ;
  16
  17 [ editplus ] edit-hook set-global