basis/editors/etexteditor/etexteditor.factor

   1 ! Copyright (C) 2008 Kibleur Christophe.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: editors io.standard-paths kernel make math.parser
   4 namespaces ;
   5 IN: editors.etexteditor
   6
   7 SINGLETON: etexteditor
   8 etexteditor editor-class set-global
   9
  10 : etexteditor-path ( -- str )
  11     \ etexteditor-path get [
  12         { "e" } "e.exe" find-in-applications
  13         [ "e.exe" ] unless*
  14     ] unless* ;
  15
  16 M: etexteditor editor-command
  17     [
  18         etexteditor-path ,
  19         [ , ] [ "--line" , number>string , ] bi*
  20     ] { } make ;