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
  16 editor-class [ textwrangler ] initialize
  17
  18 M: textwrangler editor-command
  19     "edit" find-in-path [
  20         [ , number>string "+" prepend , , ] { } make
  21     ] [
  22         [
  23             "open" , "-a" , "TextWrangler" ,
  24             [ , ] [ "--args" , number>string "+" prepend , ] bi*
  25         ] { } make
  26     ] if* ;