editors.textadept: match style of other vocabs.
parent
ace233829a
commit
bea7a405da
|
@ -17,31 +17,30 @@
|
||||||
!
|
!
|
||||||
! 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
|
|
||||||
|
|
||||||
SINGLETON: textadept
|
IN: editors.textadept
|
||||||
|
|
||||||
|
SINGLETON: textadept
|
||||||
textadept editor-class set-global
|
textadept editor-class set-global
|
||||||
|
|
||||||
HOOK: find-textadept-path os ( -- path )
|
HOOK: find-textadept-path os ( -- path )
|
||||||
|
|
||||||
M: object find-textadept-path "textadept" ;
|
M: object find-textadept-path "textadept" ;
|
||||||
|
|
||||||
! Example of OS-specific method
|
! Example of OS-specific method
|
||||||
! -----------------------------
|
! -----------------------------
|
||||||
! M: windows find-textadept-path
|
! M: windows find-textadept-path
|
||||||
! let-Windows-users-fill-this-in
|
! let-Windows-users-fill-this-in
|
||||||
! ;
|
! ;
|
||||||
|
|
||||||
: 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