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 emeditor editor-class set-global
   7
   8 : emeditor-path ( -- path )
   9     \ emeditor-path get [
  10         { "EmEditor" } "emeditor.exe" find-in-applications
  11         [ "EmEditor.exe" ] unless*
  12     ] unless* ;
  13
  14 M: emeditor editor-command ( file line -- command )
  15     [
  16         emeditor-path , "/l" , number>string , ,
  17     ] { } make ;