basis/editors/editplus/editplus.factor

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