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

editors.textadept: Add support for Windows.

db4
Doug Coleman 2013-04-09 12:17:21 -07:00
parent 84a93dd998
commit 88a7f8bf63
3 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,9 +9,8 @@
! !
! For more information about Textadept, consult http://foicica.com/textadept/ ! For more information about Textadept, consult http://foicica.com/textadept/
USING: editors io.launcher io.pathnames io.standard-paths kernel USING: editors io.launcher io.pathnames io.standard-paths
make math math.parser namespaces sequences system ; kernel make math math.parser namespaces sequences system vocabs ;
IN: editors.textadept IN: editors.textadept
SINGLETON: textadept SINGLETON: textadept
@ -28,10 +27,6 @@ M: macosx find-textadept-path
f f
] if* ; ] if* ;
! M: windows find-textadept-path
! 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
@ -42,3 +37,5 @@ M: textadept editor-command ( file line -- command )
textadept-path , "-f" , , "-e" , textadept-path , "-f" , , "-e" ,
1 - number>string "goto_line(" ")" surround , 1 - number>string "goto_line(" ")" surround ,
] { } make ; ] { } make ;
os windows? [ "editors.textadept.windows" require ] when

1
basis/editors/textadept/windows/platforms.txt Normal file
View File

@ -0,0 +1 @@
windows

9
basis/editors/textadept/windows/windows.factor Normal file
View File

@ -0,0 +1,9 @@
! Copyright (C) 2013 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: editors.textadept io.directories.search.windows
sequences system ;
IN: editors.textadept.windows
M: windows find-textadept-path
"textadept_6.5.win32"
[ "textadept.exe" tail? ] find-in-program-files ;