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.files io.launcher kernel math.parser make
   4 namespaces sequences windows.shell32 io.directories.search.windows ;
   5 IN: editors.etexteditor
   6
   7 : etexteditor-path ( -- str )
   8     \ etexteditor-path get-global [
   9         "e" [ "e.exe" tail? ] find-in-program-files
  10         [ "e" ] unless*
  11     ] unless* ;
  12
  13 : etexteditor ( file line -- )
  14     [
  15         etexteditor-path ,
  16         [ , ] [ "--line" , number>string , ] bi*
  17     ] { } make run-detached drop ;
  18
  19 [ etexteditor ] edit-hook set-global