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
   7 editor-class [ textpad ] initialize
   8
   9 : textpad-path ( -- path )
  10     \ textpad-path get-global [
  11         { "TextPad 5" } "textpad.exe" find-in-applications
  12         [ "TextPad.exe" ] unless*
  13     ] unless* ;
  14
  15 M: textpad editor-command
  16     [
  17         textpad-path ,
  18         [ , ] [ number>string "(" ",0)" surround , ] bi*
  19     ] { } make ;