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

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

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

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

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