basis/editors/notepad/notepad.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: arrays editors io.directories.search kernel namespaces
   4 sequences windows.shell32 ;
   5
   6 IN: editors.notepad
   7
   8 SINGLETON: notepad
   9 notepad editor-class set-global
  10
  11 : notepad-path ( -- path )
  12     \ notepad-path get [
  13         windows-directory t
  14         [ "notepad.exe" tail? ] find-file
  15     ] unless* ;
  16
  17 M: notepad editor-command
  18     drop [ notepad-path ] dip 2array ;