From 537c008a207c2ceffa882d29b31e645382f13775 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 9 Dec 2007 10:56:47 -0600
Subject: [PATCH] emeditor autopath

---
 extra/editors/emeditor/emeditor.factor | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)
 mode change 100644 => 100755 extra/editors/emeditor/emeditor.factor

diff --git a/extra/editors/emeditor/emeditor.factor b/extra/editors/emeditor/emeditor.factor
old mode 100644
new mode 100755
index 6df4a3619d..2caa42b480
--- a/extra/editors/emeditor/emeditor.factor
+++ b/extra/editors/emeditor/emeditor.factor
@@ -1,9 +1,15 @@
-USING: editors io.launcher kernel math.parser namespaces ;
+USING: editors hardware-info.windows io.files io.launcher
+kernel math.parser namespaces sequences windows.shell32 ;
 IN: editors.emeditor
 
+: emeditor-path ( -- path )
+    \ emeditor-path get-global [
+        program-files "\\EmEditor\\EmEditor.exe" path+
+    ] unless* ;
+
 : emeditor ( file line -- )
     [
-        \ emeditor get-global % " /l " % #
+        emeditor-path % " /l " % #
         " " % "\"" % % "\"" %
     ] "" make run-detached ;