basis/editors/textwrangler/textwrangler.factor

   1 ! Copyright (C) 2008 Ben Schlingelhof.
   2 ! See https://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 ! https://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 M: textwrangler editor-command
  17     "edit" find-in-path [
  18         [ , number>string "+" prepend , , ] { } make
  19     ] [
  20         [
  21             "open" , "-a" , "TextWrangler" ,
  22             [ , ] [ "--args" , number>string "+" prepend , ] bi*
  23         ] { } make
  24     ] if* ;