Better indentation for TextMate

gistfile1.PL

### Indent with opt-tab
### http://benalman.com/grab/6e0f7b.png

#!/usr/bin/perl -w

$tab_soft = ' ' x $ENV{'TM_TAB_SIZE'};
$tab_hard = "\t";

$tab = $ENV{'TM_SOFT_TABS'} eq "YES" ? $tab_soft : $tab_hard;

while (<STDIN>) {
  s/(?:^|\G)(?:$tab_soft|$tab_hard)/$tab/g;
  print "$tab$_";
}


### Un-Indent with shift-tab
### http://benalman.com/grab/ac29aa.png

#!/usr/bin/perl -w

$tab_soft = ' ' x $ENV{'TM_TAB_SIZE'};
$tab_hard = "\t";

$tab = $ENV{'TM_SOFT_TABS'} eq "YES" ? $tab_soft : $tab_hard;

while (<STDIN>) {
  s/(?:^|\G)(?:$tab_soft|$tab_hard)/$tab/g;
  s/^(?:$tab_soft|$tab_hard)//;
  print $_;
}