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

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