extra/editors/emeditor/emeditor.factor

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