basis/editors/wordpad/wordpad.factor

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