basis/editors/gedit/gedit.factor

   1 ! Copyright (C) 2008 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: editors io.launcher io.standard-paths kernel make
   4 math.parser namespaces sequences ;
   5 IN: editors.gedit
   6
   7 SINGLETON: gedit
   8 gedit editor-class set-global
   9
  10 : gedit-path ( -- path )
  11     \ gedit-path get [
  12         "gedit" ?find-in-path
  13     ] unless* ;
  14
  15 M: gedit editor-command ( file line -- command )
  16     [
  17         gedit-path , number>string "+" prepend , ,
  18     ] { } make ;