basis/editors/textwrangler/textwrangler.factor

   1 ! Copyright (C) 2008 Ben Schlingelhof.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: definitions io.launcher kernel parser words sequences
   4 math math.parser namespaces editors ;
   5 IN: editors.textwrangler
   6
   7 : tw ( file line -- )
   8     [ "edit +" % # " " % % ] "" make run-process drop ;
   9
  10 : tw-word ( word -- )
  11     where first2 tw ;
  12
  13 [ tw ] edit-hook set-global