basis/editors/wordpad/wordpad.factor

   1 USING: arrays editors io.standard-paths kernel namespaces ;
   2 IN: editors.wordpad
   3
   4 SINGLETON: wordpad
   5
   6 editor-class [ wordpad ] initialize
   7
   8 : wordpad-path ( -- path )
   9     \ wordpad-path get [
  10         { "Windows NT\\Accessories" } "wordpad.exe" find-in-applications
  11     ] unless* ;
  12
  13 M: wordpad editor-command
  14     drop [ wordpad-path ] dip 2array ;