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 ; sequences windows.shell32 ;
IN: editors.gvim.windows IN: editors.gvim.windows

View File

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

View File

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

View File

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