basis/editors/editplus/editplus.factor

   1 USING: editors io.standard-paths kernel make math.parser
   2 namespaces ;
   3 IN: editors.editplus
   4
   5 SINGLETON: editplus
   6 editplus editor-class set-global
   7
   8 : editplus-path ( -- path )
   9     \ editplus-path get [
  10         { "EditPlus 2" } "editplus.exe" find-in-applications
  11         [ "editplus.exe" ] unless*
  12     ] unless* ;
  13
  14 M: editplus editor-command
  15     [
  16         editplus-path , "-cursor" , number>string , ,
  17     ] { } make ;