fix editors for windows
parent
374f8acae2
commit
8cb274e9f9
|
@ -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
|
||||||
|
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
|
@ -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 ;
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue