basis/editors/textwrangler/textwrangler.factor

   1 ! Copyright (C) 2008 Ben Schlingelhof.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: editors io.standard-paths kernel make math.parser
   4 namespaces sequences ;
   5 IN: editors.textwrangler
   6
   7 ! TextWrangler ships with a program called ``edit`` if you don't download
   8 ! it from the App Store. Since the App Store version is lacking ``edit``,
   9 ! there's a separate .zip you can download from:
  10 ! http://pine.barebones.com/files/tw-cmdline-tools.zip
  11
  12 ! Note that launching with ``open -a`` does not support line numbers.
  13
  14 SINGLETON: textwrangler
  15 textwrangler editor-class set-global
  16
  17 M: textwrangler editor-command
  18     "edit" find-in-path [
  19         [ , number>string "+" prepend , , ] { } make
  20     ] [
  21         [
  22             "open" , "-a" , "TextWrangler" ,
  23             [ , ] [ "--args" , number>string "+" prepend , ] bi*
  24         ] { } make
  25     ] if* ;