factor/basis/editors/textwrangler/textwrangler.factor

! Copyright (C) 2008 Ben Schlingelhof.
! See http://factorcode.org/license.txt for BSD license.
USING: editors kernel make math.parser namespaces sequences
tools.which ;
IN: editors.textwrangler

! TextWrangler ships with a program called ``edit`` if you don't download
! it from the App Store. Since the App Store version is lacking ``edit``,
! there's a separate .zip you can download from:
! http://pine.barebones.com/files/tw-cmdline-tools.zip

! Note that launching with ``open -a`` does not support line numbers.

SINGLETON: textwrangler
textwrangler editor-class set-global

M: textwrangler editor-command ( file line -- command )
    "edit" which [
        [ "edit +" % # " " % % ] "" make
    ] [
        [
            "open" , "-a" , "TextWrangler" ,
            [ , ] [ "--args" , number>string "+" prepend , ] bi*
        ] { } make
    ] if ;