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
   7 editor-class [ editplus ] initialize
   8
   9 : editplus-path ( -- path )
  10     \ editplus-path get [
  11         { "EditPlus 2" } "editplus.exe" find-in-applications
  12         [ "editplus.exe" ] unless*
  13     ] unless* ;
  14
  15 M: editplus editor-command
  16     [
  17         editplus-path , "-cursor" , number>string , ,
  18     ] { } make ;