basis/editors/ultraedit/ultraedit.factor

   1 USING: editors io.files io.launcher kernel math.parser
   2 namespaces sequences windows.shell32 wne ;
   3 IN: editors.ultraedit
   4
   5 : ultraedit-path ( -- path )
   6     \ ultraedit-path get-global [
   7         program-files
   8         "IDM Computer Solutions\\UltraEdit-32\\uedit32.exe" append-path
   9     ] unless* ;
  10
  11 : ultraedit ( file line -- )
  12     [
  13         ultraedit-path , [ swap % "/" % # "/1" % ] "" make ,
  14     ] { } make run-detached drop ;
  15
  16
  17 [ ultraedit ] edit-hook set-global