diff --git a/extra/editors/editpadpro/editpadpro.factor b/extra/editors/editpadpro/editpadpro.factor index 885349e27b..5a8168a181 100755 --- a/extra/editors/editpadpro/editpadpro.factor +++ b/extra/editors/editpadpro/editpadpro.factor @@ -1,12 +1,12 @@ USING: definitions kernel parser words sequences math.parser namespaces editors io.launcher windows.shell32 io.files -io.paths strings ; +io.paths strings unicode.case ; IN: editors.editpadpro : editpadpro-path \ editpadpro-path get-global [ - program-files "JGsoft" path+ walk-dir - [ >lower "editpadpro.exe" tail? ] find nip + program-files "JGsoft" path+ + [ >lower "editpadpro.exe" tail? ] find-file-breadth ] unless* ; : editpadpro ( file line -- ) diff --git a/extra/editors/editplus/editplus.factor b/extra/editors/editplus/editplus.factor index feaa177954..ee24c99463 100755 --- a/extra/editors/editplus/editplus.factor +++ b/extra/editors/editplus/editplus.factor @@ -4,7 +4,7 @@ IN: editors.editplus : editplus-path ( -- path ) \ editplus-path get-global [ - program-files "\\EditPlus 2\\editplus.exe" append + program-files "\\EditPlus 2\\editplus.exe" path+ ] unless* ; : editplus ( file line -- ) diff --git a/extra/editors/gvim/windows/windows.factor b/extra/editors/gvim/windows/windows.factor index 36af79b697..e68bf04732 100644 --- a/extra/editors/gvim/windows/windows.factor +++ b/extra/editors/gvim/windows/windows.factor @@ -1,5 +1,5 @@ USING: editors.gvim.backend io.files io.windows kernel namespaces -sequences windows.shell32 ; +sequences windows.shell32 io.paths ; IN: editors.gvim.windows M: windows-io gvim-path diff --git a/extra/editors/wordpad/wordpad.factor b/extra/editors/wordpad/wordpad.factor index 0a86250a92..5ad08b613b 100755 --- a/extra/editors/wordpad/wordpad.factor +++ b/extra/editors/wordpad/wordpad.factor @@ -1,10 +1,11 @@ USING: editors hardware-info.windows io.launcher kernel -math.parser namespaces sequences windows.shell32 ; +math.parser namespaces sequences windows.shell32 io.files +arrays ; IN: editors.wordpad : wordpad-path ( -- path ) \ wordpad-path get [ - program-files "\\Windows NT\\Accessories\\wordpad.exe" append + program-files "\\Windows NT\\Accessories\\wordpad.exe" path+ ] unless* ; : wordpad ( file line -- )