editors.textadept: match style of other vocabs.

db4
John Benediktsson 2013-03-30 11:09:12 -07:00
parent ace233829a
commit bea7a405da
1 changed files with 17 additions and 18 deletions

View File

@ -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 ;
;