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