editors.textadept: Add support for Windows.
parent
84a93dd998
commit
88a7f8bf63
|
@ -9,9 +9,8 @@
|
|||
!
|
||||
! For more information about Textadept, consult http://foicica.com/textadept/
|
||||
|
||||
USING: editors io.launcher io.pathnames io.standard-paths kernel
|
||||
make math math.parser namespaces sequences system ;
|
||||
|
||||
USING: editors io.launcher io.pathnames io.standard-paths
|
||||
kernel make math math.parser namespaces sequences system vocabs ;
|
||||
IN: editors.textadept
|
||||
|
||||
SINGLETON: textadept
|
||||
|
@ -28,10 +27,6 @@ M: macosx find-textadept-path
|
|||
f
|
||||
] if* ;
|
||||
|
||||
! M: windows find-textadept-path
|
||||
! let-Windows-users-fill-this-in
|
||||
! ;
|
||||
|
||||
: textadept-path ( -- path )
|
||||
\ textadept-path get-global [
|
||||
find-textadept-path "textadept" or
|
||||
|
@ -42,3 +37,5 @@ M: textadept editor-command ( file line -- command )
|
|||
textadept-path , "-f" , , "-e" ,
|
||||
1 - number>string "goto_line(" ")" surround ,
|
||||
] { } make ;
|
||||
|
||||
os windows? [ "editors.textadept.windows" require ] when
|
||||
|
|
|
@ -0,0 +1 @@
|
|||
windows
|
|
@ -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 ;
|
Loading…
Reference in New Issue