fix editors for windows

db4
Doug Coleman 2008-01-29 11:41:12 -06:00
parent 374f8acae2
commit 8cb274e9f9
4 changed files with 11 additions and 10 deletions

View File

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

View File

@ -1,5 +1,5 @@
USING: editors io.files io.launcher kernel math.parser
namespaces windows.shell32 ;
namespaces sequences windows.shell32 ;
IN: editors.notepadpp
: notepadpp-path
@ -11,6 +11,6 @@ IN: editors.notepadpp
[
notepadpp-path ,
"-n" swap number>string append , ,
] "" make run-detached drop ;
] { } make run-detached drop ;
[ notepadpp ] edit-hook set-global

View File

@ -8,18 +8,19 @@
! variable to point to your executable,
! if not on the path.
!
USING: io.launcher kernel namespaces math math.parser
editors ;
USING: io.files io.launcher kernel namespaces math
math.parser editors sequences windows.shell32 ;
IN: editors.scite
SYMBOL: scite-path
"scite" scite-path set-global
: scite-path ( -- path )
\ scite-path get-global [
program-files "wscite\\SciTE.exe" path+
] unless* ;
: scite-command ( file line -- cmd )
swap
[
scite-path get ,
scite-path ,
,
"-goto:" swap number>string append ,
] { } make ;

View File

@ -10,7 +10,7 @@ IN: editors.ultraedit
: ultraedit ( file line -- )
[
ultraedit-path , [ % "/" % # "/1" % ] "" make ,
ultraedit-path , [ swap % "/" % # "/1" % ] "" make ,
] { } make run-detached drop ;