From 3277b67b50b0dfab807520cf5bad4403d50c85f4 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 9 Dec 2007 10:57:03 -0600
Subject: [PATCH] ultraedit autopath

---
 extra/editors/ultraedit/ultraedit.factor | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/extra/editors/ultraedit/ultraedit.factor b/extra/editors/ultraedit/ultraedit.factor
index d7a1a18132..50c241daea 100644
--- a/extra/editors/ultraedit/ultraedit.factor
+++ b/extra/editors/ultraedit/ultraedit.factor
@@ -1,12 +1,17 @@
-USING: editors io.launcher kernel math.parser namespaces ;
+USING: editors io.files io.launcher kernel math.parser
+namespaces sequences windows.shell32 ;
 IN: editors.ultraedit
 
+: ultraedit-path ( -- path )
+    \ ultraedit-path get-global [
+        program-files
+        "\\IDM Computer Solutions\\UltraEdit-32\\uedit32.exe" path+
+    ] unless* ;
+
 : ultraedit ( file line -- )
     [
-        \ ultraedit get-global % " " % swap % "/" % # "/1" %
+        ultraedit-path % " " % swap % "/" % # "/1" %
     ] "" make run-detached ;
 
-! Put the path in your .factor-boot-rc
-! "K:\\Program Files (x86)\\IDM Computer Solutions\\UltraEdit-32\\uedit32.exe" \ ultraedit set-global
 
 [ ultraedit ] edit-hook set-global