notepad++ autopath

diff --git a/extra/editors/notepadpp/notepadpp.factor b/extra/editors/notepadpp/notepadpp.factor
index 42f0568c3a020b47a2e9ebf7270d22c6807fafd7..4f3fde917d01e06457e8073e781dbe663399adff 100644 (file)
--- a/extra/editors/notepadpp/notepadpp.factor
+++ b/extra/editors/notepadpp/notepadpp.factor
@@ -1,13 +1,15 @@
-USING: editors io.launcher math.parser namespaces ;
+USING: editors io.files io.launcher kernel math.parser
+namespaces windows.shell32 ;
 IN: editors.notepadpp
 
+: notepadpp-path
+    \ notepadpp-path get-global [
+        program-files "notepad++\\notepad++.exe" path+
+    ] unless* ;
+
 : notepadpp ( file line -- )
     [
-        \ notepadpp get-global % " -n" % # " " % %
+        notepadpp-path % " -n" % # " " % %
     ] "" make run-detached ;
 
-! Put in your .factor-boot-rc
-! "c:\\Program Files\\notepad++\\notepad++.exe" \ notepadpp set-global
-! "k:\\Program Files (x86)\\notepad++\\notepad++.exe" \ notepadpp set-global
-
 [ notepadpp ] edit-hook set-global