basis/editors/textpad/textpad.factor

   1 USING: editors io.standard-paths kernel make math.parser
   2 namespaces sequences ;
   3 IN: editors.textpad
   4
   5 SINGLETON: textpad
   6 textpad editor-class set-global
   7
   8 : textpad-path ( -- path )
   9     \ textpad-path get-global [
  10         { "TextPad 5" } "textpad.exe" find-in-applications
  11         [ "TextPad.exe" ] unless*
  12     ] unless* ;
  13
  14 M: textpad editor-command
  15     [
  16         textpad-path ,
  17         [ , ] [ number>string "(" ",0)" surround , ] bi*
  18     ] { } make ;