editors.textadept: match style of other vocabs.
parent
ace233829a
commit
bea7a405da
|
@ -17,8 +17,9 @@
|
||||||
!
|
!
|
||||||
! For more information about Textadept, consult http://foicica.com/textadept/
|
! For more information about Textadept, consult http://foicica.com/textadept/
|
||||||
|
|
||||||
USING: editors io.launcher kernel make math math.parser namespaces sequences
|
USING: editors io.launcher kernel make math math.parser
|
||||||
system ;
|
namespaces sequences system ;
|
||||||
|
|
||||||
IN: editors.textadept
|
IN: editors.textadept
|
||||||
|
|
||||||
SINGLETON: textadept
|
SINGLETON: textadept
|
||||||
|
@ -37,11 +38,9 @@ M: object find-textadept-path "textadept" ;
|
||||||
: textadept-path ( -- path )
|
: textadept-path ( -- path )
|
||||||
\ textadept-path get-global [
|
\ textadept-path get-global [
|
||||||
find-textadept-path "textadept" or
|
find-textadept-path "textadept" or
|
||||||
] unless*
|
] unless* ;
|
||||||
;
|
|
||||||
|
|
||||||
M: textadept editor-command ( file line -- command )
|
M: textadept editor-command ( file line -- command )
|
||||||
swap [
|
swap [
|
||||||
textadept-path , "-f" , , "-J" , number>string ,
|
textadept-path , "-f" , , "-J" , number>string ,
|
||||||
] { } make
|
] { } make ;
|
||||||
;
|
|
||||||
|
|
Loading…
Reference in New Issue