basis/editors/ted-notepad/ted-notepad.factor

   1 USING: editors io.files io.launcher kernel math.parser
   2 namespaces sequences io.directories.search.windows make ;
   3 IN: editors.ted-notepad
   4
   5 : ted-notepad-path ( -- path )
   6     \ ted-notepad-path get-global [
   7         "TED Notepad" t [ "TedNPad.exe" tail? ] find-in-program-files
   8         [ "TedNPad.exe" ] unless*
   9     ] unless* ;
  10
  11 : ted-notepad ( file line -- )
  12     [
  13         ted-notepad-path ,
  14         number>string "/l" prepend , ,
  15     ] { } make run-detached drop ;
  16
  17 [ ted-notepad ] edit-hook set-global