diff --git a/basis/editors/editpadlite/editpadlite.factor b/basis/editors/editpadlite/editpadlite.factor index 0ffb4f7d95..d487ca776f 100644 --- a/basis/editors/editpadlite/editpadlite.factor +++ b/basis/editors/editpadlite/editpadlite.factor @@ -6,6 +6,7 @@ IN: editors.editpadlite : editpadlite-path ( -- path ) \ editpadlite-path get-global [ "JGsoft" t [ >lower "editpadlite.exe" tail? ] find-in-program-files + [ "editpadlite.exe" ] unless* ] unless* ; : editpadlite ( file line -- ) diff --git a/basis/editors/editpadpro/editpadpro.factor b/basis/editors/editpadpro/editpadpro.factor index 6c540b0e21..09bfd69de8 100644 --- a/basis/editors/editpadpro/editpadpro.factor +++ b/basis/editors/editpadpro/editpadpro.factor @@ -6,6 +6,7 @@ IN: editors.editpadpro : editpadpro-path ( -- path ) \ editpadpro-path get-global [ "JGsoft" t [ >lower "editpadpro.exe" tail? ] find-in-program-files + [ "editpadpro.exe" ] unless* ] unless* ; : editpadpro ( file line -- ) diff --git a/basis/editors/editplus/editplus.factor b/basis/editors/editplus/editplus.factor index cfcc42dced..affbcd4eb6 100644 --- a/basis/editors/editplus/editplus.factor +++ b/basis/editors/editplus/editplus.factor @@ -6,6 +6,7 @@ IN: editors.editplus : editplus-path ( -- path ) \ editplus-path get-global [ "EditPlus 2" t [ "editplus.exe" tail? ] find-in-program-files + [ "editplus.exe" ] unless* ] unless* ; : editplus ( file line -- ) diff --git a/basis/editors/emeditor/emeditor.factor b/basis/editors/emeditor/emeditor.factor index f946095578..52c52bbb8b 100644 --- a/basis/editors/emeditor/emeditor.factor +++ b/basis/editors/emeditor/emeditor.factor @@ -6,6 +6,7 @@ IN: editors.emeditor : emeditor-path ( -- path ) \ emeditor-path get-global [ "EmEditor" t [ "EmEditor.exe" tail? ] find-in-program-files + [ "EmEditor.exe" ] unless* ] unless* ; : emeditor ( file line -- ) diff --git a/basis/editors/etexteditor/etexteditor.factor b/basis/editors/etexteditor/etexteditor.factor index 375559c20a..37c8d1b572 100755 --- a/basis/editors/etexteditor/etexteditor.factor +++ b/basis/editors/etexteditor/etexteditor.factor @@ -7,6 +7,7 @@ IN: editors.etexteditor : etexteditor-path ( -- str ) \ etexteditor-path get-global [ "e" t [ "e.exe" tail? ] find-in-program-files + [ "e" ] unless* ] unless* ; : etexteditor ( file line -- ) diff --git a/basis/editors/gvim/windows/windows.factor b/basis/editors/gvim/windows/windows.factor index b574e7f824..4edc13b90c 100644 --- a/basis/editors/gvim/windows/windows.factor +++ b/basis/editors/gvim/windows/windows.factor @@ -6,4 +6,5 @@ IN: editors.gvim.windows M: windows gvim-path \ gvim-path get-global [ "vim" t [ "gvim.exe" tail? ] find-in-program-files + [ "gvim.exe" ] unless* ] unless* ; diff --git a/basis/editors/notepad2/notepad2.factor b/basis/editors/notepad2/notepad2.factor index c21d5283dd..dc1a8a7991 100644 --- a/basis/editors/notepad2/notepad2.factor +++ b/basis/editors/notepad2/notepad2.factor @@ -5,6 +5,7 @@ IN: editors.notepad2 : notepad2-path ( -- path ) \ notepad2-path get-global [ windows-directory "system32\\notepad.exe" append-path + [ "notepad.exe" ] unless* ] unless* ; : notepad2 ( file line -- ) diff --git a/basis/editors/notepadpp/notepadpp.factor b/basis/editors/notepadpp/notepadpp.factor index 5acaef10a7..1c856bd761 100644 --- a/basis/editors/notepadpp/notepadpp.factor +++ b/basis/editors/notepadpp/notepadpp.factor @@ -5,6 +5,7 @@ IN: editors.notepadpp : notepadpp-path ( -- path ) \ notepadpp-path get-global [ "notepad++" t [ "notepad++.exe" tail? ] find-in-program-files + [ "notepad++.exe" ] unless* ] unless* ; : notepadpp ( file line -- ) diff --git a/basis/editors/scite/scite.factor b/basis/editors/scite/scite.factor index 8acde4b12d..fc7e9e319e 100644 --- a/basis/editors/scite/scite.factor +++ b/basis/editors/scite/scite.factor @@ -14,6 +14,7 @@ IN: editors.scite "SciTE Source Code Editor" t [ >lower "scite.exe" tail? ] find-in-program-files ] unless* + [ "scite.exe" ] unless* ] unless* ; : scite-command ( file line -- cmd ) diff --git a/basis/editors/ted-notepad/ted-notepad.factor b/basis/editors/ted-notepad/ted-notepad.factor index 41f5ff5fa5..301e82225c 100644 --- a/basis/editors/ted-notepad/ted-notepad.factor +++ b/basis/editors/ted-notepad/ted-notepad.factor @@ -5,6 +5,7 @@ IN: editors.ted-notepad : ted-notepad-path ( -- path ) \ ted-notepad-path get-global [ "TED Notepad" t [ "TedNPad.exe" tail? ] find-in-program-files + [ "TedNPad.exe" ] unless* ] unless* ; : ted-notepad ( file line -- ) diff --git a/basis/editors/textpad/textpad.factor b/basis/editors/textpad/textpad.factor index 4963eab66f..ca9d5c486a 100644 --- a/basis/editors/textpad/textpad.factor +++ b/basis/editors/textpad/textpad.factor @@ -6,6 +6,7 @@ IN: editors.textpad : textpad-path ( -- path ) \ textpad-path get-global [ "TextPad 5" t [ "TextPad.exe" tail? ] find-in-program-files + [ "TextPad.exe" ] unless* ] unless* ; : textpad ( file line -- ) diff --git a/basis/editors/ultraedit/ultraedit.factor b/basis/editors/ultraedit/ultraedit.factor index 088d3cabbf..b5bc229743 100644 --- a/basis/editors/ultraedit/ultraedit.factor +++ b/basis/editors/ultraedit/ultraedit.factor @@ -5,6 +5,7 @@ IN: editors.ultraedit : ultraedit-path ( -- path ) \ ultraedit-path get-global [ "IDM Computer Solutions" t [ "uedit32.exe" tail? ] find-in-program-files + [ "uedit32.exe" ] unless* ] unless* ; : ultraedit ( file line -- )