basis/editors/ultraedit/ultraedit.factor

   1 USING: editors io.standard-paths kernel make math.parser
   2 namespaces ;
   3 IN: editors.ultraedit
   4
   5 SINGLETON: ultraedit
   6 ultraedit editor-class set-global
   7
   8 : ultraedit-path ( -- path )
   9     \ ultraedit-path get-global [
  10         { "IDM Computer Solutions" } "uedit32.exe" find-in-applications
  11         [ "uedit32.exe" ] unless*
  12     ] unless* ;
  13
  14 M: ultraedit editor-command
  15     [
  16         ultraedit-path , [ swap % "/" % # "/1" % ] "" make ,
  17     ] { } make ;