gedit.factor

! Copyright (C) 2008 Doug Coleman.
! See https://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-path ( -- path )
    \ gedit-path get [
        "gedit" ?find-in-path
    ] unless* ;

M: gedit editor-command
    [
        gedit-path , number>string "+" prepend , ,
    ] { } make ;