factor/basis/editors/editplus/editplus.factor

18 lines
442 B
Factor
Raw Normal View History

2015-06-01 17:39:30 -04:00
USING: editors io.standard-paths kernel make math.parser
namespaces ;
IN: editors.editplus
SINGLETON: editplus
editplus editor-class set-global
2007-12-09 11:48:01 -05:00
: editplus-path ( -- path )
2015-06-01 17:39:30 -04:00
\ editplus-path get [
{ "EditPlus 2" } "editplus.exe" find-in-applications
[ "editplus.exe" ] unless*
2007-12-09 11:48:01 -05:00
] unless* ;
M: editplus editor-command ( file line -- command )
[
2008-01-24 02:50:40 -05:00
editplus-path , "-cursor" , number>string , ,
] { } make ;