2008-12-08 21:11:24 -05:00
|
|
|
! Copyright (C) 2007 Clemens F. Hofreither.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2007-09-20 18:09:08 -04:00
|
|
|
! clemens.hofreither@gmx.net
|
2013-04-09 19:15:07 -04:00
|
|
|
USING: io.files io.launcher kernel namespaces
|
|
|
|
|
math math.parser editors sequences make system unicode.case
|
|
|
|
|
vocabs ;
|
2007-09-20 18:09:08 -04:00
|
|
|
IN: editors.scite
|
|
|
|
|
|
2011-10-31 14:53:07 -04:00
|
|
|
SINGLETON: scite
|
|
|
|
|
scite editor-class set-global
|
|
|
|
|
|
2013-04-09 19:15:07 -04:00
|
|
|
HOOK: scite-path os ( -- path )
|
2009-01-16 13:36:27 -05:00
|
|
|
|
2013-04-09 19:15:07 -04:00
|
|
|
M: unix scite-path ( -- path )
|
|
|
|
|
\ scite-path get-global [ "scite" ] unless* ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2011-10-31 14:53:07 -04:00
|
|
|
M: scite editor-command ( file line -- cmd )
|
2008-12-08 21:11:24 -05:00
|
|
|
swap
|
|
|
|
|
[
|
|
|
|
|
scite-path ,
|
|
|
|
|
,
|
|
|
|
|
number>string "-goto:" prepend ,
|
|
|
|
|
] { } make ;
|
2013-04-09 19:15:07 -04:00
|
|
|
|
|
|
|
|
os windows? [ "editors.scite.windows" require ] when
|
