basis/editors/emeditor/emeditor.factor

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