steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

editors.textwrangler: Fall back to launching with open -a if you installed from the Mac Store and thus do not have ``edit``, which is the real TextWrangler launch program.

db4
Doug Coleman 2013-04-10 17:40:07 -07:00
parent dd94812561
commit 7dc851b627
1 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
basis/editors/textwrangler/textwrangler.factor
View File

@ -1,11 +1,25 @@
! Copyright (C) 2008 Ben Schlingelhof. ! Copyright (C) 2008 Ben Schlingelhof.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: definitions io.launcher kernel parser words sequences USING: editors kernel make math.parser namespaces sequences
math math.parser namespaces editors make ; tools.which ;
IN: editors.textwrangler 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 SINGLETON: textwrangler
textwrangler editor-class set-global textwrangler editor-class set-global
M: textwrangler editor-command ( file line -- command ) M: textwrangler editor-command ( file line -- command )
[ "edit +" % # " " % % ] "" make ; "edit" which [
[ "edit +" % # " " % % ] "" make
] [
[
"open" , "-a" , "TextWrangler" ,
[ , ] [ "--args" , number>string "+" prepend , ] bi*
] { } make
] if ;