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

scite: Add support for Linux scite.

db4
Doug Coleman 2013-04-09 16:15:07 -07:00
parent 4767248369
commit 0e0d9fe07b
4 changed files with 28 additions and 12 deletions

20
basis/editors/scite/scite.factor
View File

@ -1,24 +1,18 @@
! Copyright (C) 2007 Clemens F. Hofreither.
! See http://factorcode.org/license.txt for BSD license.
! clemens.hofreither@gmx.net
USING: io.files io.launcher kernel namespaces io.directories.search.windows
math math.parser editors sequences make unicode.case ;
USING: io.files io.launcher kernel namespaces
math math.parser editors sequences make system unicode.case
vocabs ;
IN: editors.scite
SINGLETON: scite
scite editor-class set-global
: scite-path ( -- path )
\ scite-path get-global [
"Scintilla Text Editor"
[ >lower "scite.exe" tail? ] find-in-program-files
HOOK: scite-path os ( -- path )
[
"SciTE Source Code Editor"
[ >lower "scite.exe" tail? ] find-in-program-files
] unless*
[ "scite.exe" ] unless*
] unless* ;
M: unix scite-path ( -- path )
\ scite-path get-global [ "scite" ] unless* ;
M: scite editor-command ( file line -- cmd )
swap
@ -27,3 +21,5 @@ M: scite editor-command ( file line -- cmd )
,
number>string "-goto:" prepend ,
] { } make ;
os windows? [ "editors.scite.windows" require ] when

1
basis/editors/scite/windows/authors.txt Normal file
View File

@ -0,0 +1 @@
Doug Coleman

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

@ -0,0 +1 @@
windows

18
basis/editors/scite/windows/windows.factor Normal file
View File

@ -0,0 +1,18 @@
! Copyright (C) 2013 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: io.files io.launcher kernel namespaces io.directories.search.windows
math math.parser editors sequences system unicode.case ;
IN: editors.scite.windows
M: windows scite-path ( -- path )
\ scite-path get-global [
"Scintilla Text Editor"
[ >lower "scite.exe" tail? ] find-in-program-files
[
"SciTE Source Code Editor"
[ >lower "scite.exe" tail? ] find-in-program-files
] unless*
[ "scite.exe" ] unless*
] unless* ;