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
   9 editor-class [ gedit ] initialize
  10
  11 : gedit-path ( -- path )
  12     \ gedit-path get [
  13         "gedit" ?find-in-path
  14     ] unless* ;
  15
  16 M: gedit editor-command
  17     [
  18         gedit-path , number>string "+" prepend , ,
  19     ] { } make ;