update all editors for windows 64 to look in "program files" and "program files ...

diff --git a/basis/editors/editpadlite/authors.txt b/basis/editors/editpadlite/authors.txt
new file mode 100644 (file)
index 0000000..aa43d6e
--- /dev/null
+++ b/basis/editors/editpadlite/authors.txt
@@ -0,0 +1,2 @@
+Ryan Murphy
+Doug Coleman

diff --git a/basis/editors/editpadlite/editpadlite-docs.factor b/basis/editors/editpadlite/editpadlite-docs.factor
new file mode 100644 (file)
index 0000000..4f0c8f8
--- /dev/null
+++ b/basis/editors/editpadlite/editpadlite-docs.factor
@@ -0,0 +1,7 @@
+USING: help.syntax help.markup ;
+IN: editors.editpadpro
+
+ARTICLE: "editors.editpadpro" "EditPad Pro support"
+"EditPadPro text editor integration on Windows.  Be sure to put EditPadPro in your system path so that it will be found.  Windows only." ;
+
+ABOUT: "editors.editpadpro"

diff --git a/basis/editors/editpadlite/editpadlite.factor b/basis/editors/editpadlite/editpadlite.factor
new file mode 100644 (file)
index 0000000..c002c2f
--- /dev/null
+++ b/basis/editors/editpadlite/editpadlite.factor
@@ -0,0 +1,16 @@
+USING: definitions kernel parser words sequences math.parser
+namespaces editors io.launcher windows.shell32 io.files
+io.paths.windows strings unicode.case make ;
+IN: editors.editpadlite
+
+: editpadlite-path ( -- path )
+    \ editpadlite-path get-global [
+        "JGsoft" t [ >lower "editpadlite.exe" tail? ] find-in-program-files
+    ] unless* ;
+
+: editpadlite ( file line -- )
+    [
+        editpadlite-path , drop ,
+    ] { } make run-detached drop ;
+
+[ editpadlite ] edit-hook set-global

diff --git a/basis/editors/editpadlite/summary.txt b/basis/editors/editpadlite/summary.txt
new file mode 100644 (file)
index 0000000..445e15f
--- /dev/null
+++ b/basis/editors/editpadlite/summary.txt
@@ -0,0 +1 @@
+EditPadLite editor integration

diff --git a/basis/editors/editpadlite/tags.txt b/basis/editors/editpadlite/tags.txt
new file mode 100644 (file)
index 0000000..6bf6830
--- /dev/null
+++ b/basis/editors/editpadlite/tags.txt
@@ -0,0 +1 @@
+unportable

diff --git a/basis/editors/editpadpro/editpadpro-docs.factor b/basis/editors/editpadpro/editpadpro-docs.factor
index f3484917cb84207242bd5d26fbfb23fafa80aa31..4f0c8f800da3c74a042f7e1ccde6978881a5d73d 100644 (file)
--- a/basis/editors/editpadpro/editpadpro-docs.factor
+++ b/basis/editors/editpadpro/editpadpro-docs.factor
@@ -1,6 +1,7 @@
 USING: help.syntax help.markup ;
+IN: editors.editpadpro
 
-ARTICLE: "editpadpro" "EditPad Pro support"
-"Just load this module and you will be able to edit documentation with EditPadPro.  Be sure to put EditPadPro in your system path so that it will be found.  Windows only." ;
+ARTICLE: "editors.editpadpro" "EditPad Pro support"
+"EditPadPro text editor integration on Windows.  Be sure to put EditPadPro in your system path so that it will be found.  Windows only." ;
 
-ABOUT: "editpadpro"
\ No newline at end of file
+ABOUT: "editors.editpadpro"

diff --git a/basis/editors/editpadpro/editpadpro.factor b/basis/editors/editpadpro/editpadpro.factor
index 09f59f0916be32b0bdb8c4917920f6de6c9a9755..2a7f92f9329dcb6378472732882588c71a76726d 100644 (file)
--- a/basis/editors/editpadpro/editpadpro.factor
+++ b/basis/editors/editpadpro/editpadpro.factor
@@ -1,17 +1,16 @@
 USING: definitions kernel parser words sequences math.parser
 namespaces editors io.launcher windows.shell32 io.files
-io.paths strings unicode.case make ;
+io.paths.windows strings unicode.case make ;
 IN: editors.editpadpro
 
-: editpadpro-path
+: editpadpro-path ( -- path )
     \ editpadpro-path get-global [
-        program-files "JGsoft" append-path
-        t [ >lower "editpadpro.exe" tail? ] find-file
+        "JGsoft" t [ >lower "editpadpro.exe" tail? ] find-in-program-files
     ] unless* ;
 
 : editpadpro ( file line -- )
     [
-        editpadpro-path , "/l" swap number>string append , ,
+        editpadpro-path , number>string "/l" prepend , ,
     ] { } make run-detached drop ;
 
 [ editpadpro ] edit-hook set-global

diff --git a/basis/editors/editplus/editplus.factor b/basis/editors/editplus/editplus.factor
index 8af036f2904cc7e53049f1e3b6dca59fcbcc358f..9fa477f51a5f20be2b32a8ec028dafe6c08a5adf 100644 (file)
--- a/basis/editors/editplus/editplus.factor
+++ b/basis/editors/editplus/editplus.factor
@@ -1,10 +1,10 @@
 USING: editors io.files io.launcher kernel math.parser
-namespaces sequences windows.shell32 make ;
+namespaces sequences windows.shell32 make io.paths.windows ;
 IN: editors.editplus
 
 : editplus-path ( -- path )
     \ editplus-path get-global [
-        program-files "\\EditPlus 2\\editplus.exe" append-path
+        "EditPlus 2" t [ "editplus.exe" tail? ] find-in-program-files
     ] unless* ;
 
 : editplus ( file line -- )

diff --git a/basis/editors/emeditor/emeditor.factor b/basis/editors/emeditor/emeditor.factor
index 9aec22eed1e60b5c1ea7bc6f94fbcec714ff28bb..fc3deae670d6ab4236f92719ff5419094bae8e23 100644 (file)
--- a/basis/editors/emeditor/emeditor.factor
+++ b/basis/editors/emeditor/emeditor.factor
@@ -1,11 +1,10 @@
-USING: editors hardware-info.windows io.files io.launcher
-kernel math.parser namespaces sequences windows.shell32
-make ;
+USING: editors io.files io.launcher kernel math.parser
+namespaces sequences windows.shell32 make io.paths.windows ;
 IN: editors.emeditor
 
 : emeditor-path ( -- path )
     \ emeditor-path get-global [
-        program-files "\\EmEditor\\EmEditor.exe" append-path
+        "EmEditor" t [ "EmEditor.exe" tail? ] find-in-program-files
     ] unless* ;
 
 : emeditor ( file line -- )

diff --git a/basis/editors/etexteditor/etexteditor.factor b/basis/editors/etexteditor/etexteditor.factor
index 316bd24cfaa1fa968fff6569904e59fc8b4b6fae..c4b3ad35c1a0268022875b7216d78df6fcc45826 100755 (executable)
--- a/basis/editors/etexteditor/etexteditor.factor
+++ b/basis/editors/etexteditor/etexteditor.factor
@@ -1,12 +1,12 @@
 ! Copyright (C) 2008 Kibleur Christophe.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: editors io.files io.launcher kernel math.parser
-namespaces sequences windows.shell32 make ;
+namespaces sequences windows.shell32 io.paths.windows make ;
 IN: editors.etexteditor
 
 : etexteditor-path ( -- str )
     \ etexteditor-path get-global [
-        program-files "e\\e.exe" append-path
+        "e" t [ "e.exe" tail? ] find-in-program-files
     ] unless* ;
 
 : etexteditor ( file line -- )

diff --git a/basis/editors/gvim/windows/windows.factor b/basis/editors/gvim/windows/windows.factor
index 8c4e1aaacb17221ed3ec65dea7a82f20b07b827d..2f733f3c2f6dfe5927b5c931481c35ab1572bb27 100644 (file)
--- a/basis/editors/gvim/windows/windows.factor
+++ b/basis/editors/gvim/windows/windows.factor
@@ -1,9 +1,8 @@
 USING: editors.gvim io.files io.windows kernel namespaces
-sequences windows.shell32 io.paths system ;
+sequences windows.shell32 io.paths.windows system ;
 IN: editors.gvim.windows
 
 M: windows gvim-path
     \ gvim-path get-global [
-        program-files "vim" append-path
-        t [ "gvim.exe" tail? ] find-file
+        "vim" t [ "gvim.exe" tail? ] find-in-program-files
     ] unless* ;

diff --git a/basis/editors/notepad2/notepad2.factor b/basis/editors/notepad2/notepad2.factor
index 4d333e45dd6d04d43e7bc55c470adcc488709245..e22de4f68d96d5fe6aa62e63bd4c4bad4dd73316 100644 (file)
--- a/basis/editors/notepad2/notepad2.factor
+++ b/basis/editors/notepad2/notepad2.factor
@@ -2,10 +2,10 @@ USING: editors io.files io.launcher kernel math.parser
 namespaces sequences windows.shell32 make ;
 IN: editors.notepad2
 
-: notepad2-path ( -- str )
+: notepad2-path ( -- path )
     \ notepad2-path get-global [
-        program-files "C:\\Windows\\system32\\notepad.exe" append-path
-   ] unless* ;
+        "C:\\Windows\\system32\\notepad.exe"
+    ] unless* ;
 
 : notepad2 ( file line -- )
     [
@@ -13,4 +13,4 @@ IN: editors.notepad2
         "/g" , number>string , ,
     ] { } make run-detached drop ;
 
-[ notepad2 ] edit-hook set-global
\ No newline at end of file
+[ notepad2 ] edit-hook set-global

diff --git a/basis/editors/notepadpp/notepadpp.factor b/basis/editors/notepadpp/notepadpp.factor
index 540612aeecc0b2c51b70da39366901b88c514110..d68008c2ca21680dbd034c754575824ab894f2b0 100644 (file)
--- a/basis/editors/notepadpp/notepadpp.factor
+++ b/basis/editors/notepadpp/notepadpp.factor
@@ -1,10 +1,10 @@
 USING: editors io.files io.launcher kernel math.parser
-namespaces sequences windows.shell32 make ;
+namespaces sequences io.paths.windows make ;
 IN: editors.notepadpp
 
-: notepadpp-path
+: notepadpp-path ( -- path )
     \ notepadpp-path get-global [
-        program-files "notepad++\\notepad++.exe" append-path
+        "notepad++" t [ "notepad++.exe" tail? ] find-in-program-files
     ] unless* ;
 
 : notepadpp ( file line -- )

diff --git a/basis/editors/scite/scite.factor b/basis/editors/scite/scite.factor
index 10152f53d5d9bdfb8825cb6648b84edd1c43cc16..e0b48a3e72b5f7aba591ba822f8a974d57a5e604 100644 (file)
--- a/basis/editors/scite/scite.factor
+++ b/basis/editors/scite/scite.factor
@@ -1,34 +1,25 @@
-! Basic SciTE integration for Factor.
-!
-! By Clemens F. Hofreither, 2007.
+! Copyright (C) 2007 Clemens F. Hofreither.
+! See http://factorcode.org/license.txt for BSD license.
 ! clemens.hofreither@gmx.net
-!
-! In your .factor-rc or .factor-boot-rc,
-! require this module and set the scite-path
-! variable to point to your executable,
-! if not on the path.
-!
-USING: io.files io.launcher kernel namespaces math
-math.parser editors sequences windows.shell32 make ;
+USING: io.files io.launcher kernel namespaces io.paths.windows
+math math.parser editors sequences make unicode.case ;
 IN: editors.scite
 
 : scite-path ( -- path )
     \ scite-path get-global [
-        program-files "ScITE Source Code Editor\\SciTE.exe" append-path
-        dup exists? [
-            drop program-files "wscite\\SciTE.exe" append-path
-        ] unless
+        "Scintilla Text Editor" t
+        [ >lower "scite.exe" tail? ] find-in-program-files
     ] unless* ;
 
 : scite-command ( file line -- cmd )
-  swap
-  [
-    scite-path ,
-    ,
-    "-goto:" swap number>string append ,
-  ] { } make ;
+    swap
+    [
+        scite-path ,
+        ,
+        number>string "-goto:" prepend ,
+    ] { } make ;
 
 : scite-location ( file line -- )
-  scite-command run-detached drop ;
+    scite-command run-detached drop ;
 
 [ scite-location ] edit-hook set-global

diff --git a/basis/editors/scite/summary.txt b/basis/editors/scite/summary.txt
index 1088ee7f5ab4d6df273af7132273cb9f92bac10f..c5f9bb9a09256bf299020e0fb6afc4443b60925e 100644 (file)
--- a/basis/editors/scite/summary.txt
+++ b/basis/editors/scite/summary.txt
@@ -1 +1 @@
-SciTE editor integration
+Scintilla text editor (SciTE) integration

diff --git a/basis/editors/ted-notepad/ted-notepad.factor b/basis/editors/ted-notepad/ted-notepad.factor
index b4135c92a0f97465c15a7b0909b8f9a334df8335..994dc60ba378faf6624b83eba8fa83f1c34c0e0e 100644 (file)
--- a/basis/editors/ted-notepad/ted-notepad.factor
+++ b/basis/editors/ted-notepad/ted-notepad.factor
@@ -1,15 +1,16 @@
 USING: editors io.files io.launcher kernel math.parser
-namespaces sequences windows.shell32 make ;
+namespaces sequences io.paths.windows make ;
 IN: editors.ted-notepad
 
-: ted-notepad-path
+: ted-notepad-path ( -- path )
     \ ted-notepad-path get-global [
-        program-files "\\TED Notepad\\TedNPad.exe" append-path
+        "TED Notepad" t [ "TedNPad.exe" tail? ] find-in-program-files
     ] unless* ;
 
 : ted-notepad ( file line -- )
     [
-        ted-notepad-path , "/l" swap number>string append , ,
+        ted-notepad-path ,
+        number>string "/l" prepend , ,
     ] { } make run-detached drop ;
 
 [ ted-notepad ] edit-hook set-global

diff --git a/basis/editors/textedit/textedit.factor b/basis/editors/textedit/textedit.factor
index 6942e245349b484c589518de6398b2c087c8c3fa..cccc94b53985d28d94f4db867815ad0ec3665d58 100644 (file)
--- a/basis/editors/textedit/textedit.factor
+++ b/basis/editors/textedit/textedit.factor
@@ -1,6 +1,5 @@
 USING: definitions io.launcher kernel math math.parser parser
 namespaces prettyprint editors make ;
-
 IN: editors.textedit
 
 : textedit-location ( file line -- )
@@ -9,5 +8,3 @@ IN: editors.textedit
     try-process ;
 
 [ textedit-location ] edit-hook set-global
-
-

diff --git a/basis/editors/ultraedit/ultraedit.factor b/basis/editors/ultraedit/ultraedit.factor
index 7c9c41df7a765dcbedb9207b3616a10262bea1d3..f1929ebf64a16f4280dac4fae1e78bc69096c68f 100644 (file)
--- a/basis/editors/ultraedit/ultraedit.factor
+++ b/basis/editors/ultraedit/ultraedit.factor
@@ -1,11 +1,10 @@
 USING: editors io.files io.launcher kernel math.parser
-namespaces sequences windows.shell32 wne ;
+namespaces sequences io.paths.windows make ;
 IN: editors.ultraedit
 
 : ultraedit-path ( -- path )
     \ ultraedit-path get-global [
-        program-files
-        "IDM Computer Solutions\\UltraEdit-32\\uedit32.exe" append-path
+        "IDM Computer Solutions" t [ "uedit32.exe" tail? ] find-in-program-files
     ] unless* ;
 
 : ultraedit ( file line -- )

diff --git a/basis/editors/wordpad/wordpad.factor b/basis/editors/wordpad/wordpad.factor
index 3f3dd6cab10215d0b9af8b7ede9f5919fd070cfd..fa0f6852ddcb96f1ee41a39630cf9bc08320cd3c 100644 (file)
--- a/basis/editors/wordpad/wordpad.factor
+++ b/basis/editors/wordpad/wordpad.factor
@@ -1,14 +1,14 @@
-USING: editors hardware-info.windows io.launcher kernel
-math.parser namespaces sequences windows.shell32 io.files
-arrays ;
+USING: editors io.launcher kernel io.paths.windows
+math.parser namespaces sequences io.files arrays ;
 IN: editors.wordpad
 
 : wordpad-path ( -- path )
     \ wordpad-path get [
-        program-files "Windows NT\\Accessories\\wordpad.exe" append-path
+        "Windows NT\\Accessories" t
+        [ "wordpad.exe" tail? ] find-in-program-files
     ] unless* ;
 
 : wordpad ( file line -- )
-    drop wordpad-path swap 2array dup . run-detached drop ;
+    drop wordpad-path swap 2array run-detached drop ;
 
 [ wordpad ] edit-hook set-global