steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
basis/editors/textadept/textadept.factor
View File

@ -17,31 +17,30 @@
!
! For more information about Textadept, consult http://foicica.com/textadept/
USING: editors io.launcher kernel make math math.parser namespaces sequences
system ;
IN: editors.textadept
USING: editors io.launcher kernel make math math.parser
namespaces sequences system ;
SINGLETON: textadept
IN: editors.textadept
SINGLETON: textadept
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
! -----------------------------
! M: windows find-textadept-path
! let-Windows-users-fill-this-in
! M: windows find-textadept-path
! let-Windows-users-fill-this-in
! ;
: textadept-path ( -- path )
\ textadept-path get-global [
find-textadept-path "textadept" or
] unless*
;
: textadept-path ( -- path )
\ textadept-path get-global [
find-textadept-path "textadept" or
] unless* ;
M: textadept editor-command ( file line -- command )
swap [
textadept-path , "-f" , , "-J" , number>string ,
] { } make
;
M: textadept editor-command ( file line -- command )
swap [
textadept-path , "-f" , , "-J" , number>string ,
] { } make ;