Wordpad - automatic path

diff --git a/extra/editors/wordpad/wordpad.factor b/extra/editors/wordpad/wordpad.factor
index e1646a08550ebba02c40e2e794749500fd3882d7..eb882a9e38d1de047ff85a401446e989c9c048af 100644 (file)
--- a/extra/editors/wordpad/wordpad.factor
+++ b/extra/editors/wordpad/wordpad.factor
@@ -2,12 +2,14 @@ USING: editors hardware-info.windows io.launcher kernel
 math.parser namespaces sequences windows.shell32 ;
 IN: editors.wordpad
 
+: wordpad-path ( -- path )
+    \ wordpad-path get [
+        program-files "\\Windows NT\\Accessories\\wordpad.exe" append
+    ] unless* ;
+
 : wordpad ( file line -- )
     [
-        \ wordpad get-global % drop " " % "\"" % % "\"" %
+        wordpad-path % drop " " % "\"" % % "\"" %
     ] "" make run-detached ;
 
-program-files "\\Windows NT\\Accessories\\wordpad.exe" append
-\ wordpad set-global
-
 [ wordpad ] edit-hook set-global