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
extra/editors

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

@ -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 -- )

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

@ -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 -- )

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

@ -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

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

@ -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 -- )