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

---
 extra/editors/ted-notepad/ted-notepad.factor | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/extra/editors/ted-notepad/ted-notepad.factor b/extra/editors/ted-notepad/ted-notepad.factor
index 945233ff9b..b56ee0a08b 100644
--- a/extra/editors/ted-notepad/ted-notepad.factor
+++ b/extra/editors/ted-notepad/ted-notepad.factor
@@ -1,9 +1,15 @@
-USING: editors io.launcher kernel math.parser namespaces ;
+USING: editors io.files io.launcher kernel math.parser
+namespaces sequences windows.shell32 ;
 IN: editors.ted-notepad
 
+: ted-notepad-path
+    \ ted-notepad-path get-global [
+        program-files "\\TED Notepad\\TedNPad.exe" path+
+    ] unless* ;
+
 : ted-notepad ( file line -- )
     [
-        \ ted-notepad get-global % " /l" % #
+        ted-notepad-path % " /l" % #
         " " % %
     ] "" make run-detached ;