basis/editors/emeditor/emeditor.factor

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