steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

change append to path+ 

use find-file-breadth
fix load errors
db4
Doug Coleman 2008-02-12 12:14:57 -06:00
parent f80694183d
commit 1f78e14b6b
4 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/editors/editpadpro/editpadpro.factor
View File

@ -1,12 +1,12 @@
USING: definitions kernel parser words sequences math.parser USING: definitions kernel parser words sequences math.parser
namespaces editors io.launcher windows.shell32 io.files namespaces editors io.launcher windows.shell32 io.files
io.paths strings ; io.paths strings unicode.case ;
IN: editors.editpadpro IN: editors.editpadpro
: editpadpro-path : editpadpro-path
\ editpadpro-path get-global [ \ editpadpro-path get-global [
program-files "JGsoft" path+ walk-dir program-files "JGsoft" path+
[ >lower "editpadpro.exe" tail? ] find nip [ >lower "editpadpro.exe" tail? ] find-file-breadth
] unless* ; ] unless* ;
: editpadpro ( file line -- ) : editpadpro ( file line -- )

2
extra/editors/editplus/editplus.factor
View File

@ -4,7 +4,7 @@ IN: editors.editplus
: editplus-path ( -- path ) : editplus-path ( -- path )
\ editplus-path get-global [ \ editplus-path get-global [
program-files "\\EditPlus 2\\editplus.exe" append program-files "\\EditPlus 2\\editplus.exe" path+
] unless* ; ] unless* ;
: editplus ( file line -- ) : editplus ( file line -- )

2
extra/editors/gvim/windows/windows.factor
View File

@ -1,5 +1,5 @@
USING: editors.gvim.backend io.files io.windows kernel namespaces USING: editors.gvim.backend io.files io.windows kernel namespaces
sequences windows.shell32 ; sequences windows.shell32 io.paths ;
IN: editors.gvim.windows IN: editors.gvim.windows
M: windows-io gvim-path M: windows-io gvim-path

5
extra/editors/wordpad/wordpad.factor
View File

@ -1,10 +1,11 @@
USING: editors hardware-info.windows io.launcher kernel 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 IN: editors.wordpad
: wordpad-path ( -- path ) : wordpad-path ( -- path )
\ wordpad-path get [ \ wordpad-path get [
program-files "\\Windows NT\\Accessories\\wordpad.exe" append program-files "\\Windows NT\\Accessories\\wordpad.exe" path+
] unless* ; ] unless* ;
: wordpad ( file line -- ) : wordpad ( file line -- )