19 lines
469 B
Factor
19 lines
469 B
Factor
! Copyright (C) 2008 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: editors io.launcher io.standard-paths kernel make
|
|
math.parser namespaces sequences ;
|
|
IN: editors.gedit
|
|
|
|
SINGLETON: gedit
|
|
gedit editor-class set-global
|
|
|
|
: gedit-path ( -- path )
|
|
\ gedit-path get [
|
|
"gedit" ?find-in-path
|
|
] unless* ;
|
|
|
|
M: gedit editor-command ( file line -- command )
|
|
[
|
|
gedit-path , number>string "+" prepend , ,
|
|
] { } make ;
|