diff options
author | John Ankarström <john@ankarstrom.se> | 2021-07-12 13:24:49 +0200 |
---|---|---|
committer | John Ankarström <john@ankarstrom.se> | 2021-07-12 13:27:07 +0200 |
commit | 03d827e2fbc409ef97829f25b8eeca5204f81a3c (patch) | |
tree | 6099f0feb9adf3425fba87549b164043e18bd0c7 /git-st | |
parent | 45cddd072119c5abd7ec076cf28d51ee01f125b7 (diff) | |
download | xutil-03d827e2fbc409ef97829f25b8eeca5204f81a3c.tar.gz |
Re-organize files
Diffstat (limited to 'git-st')
-rwxr-xr-x | git-st | 31 |
1 files changed, 0 insertions, 31 deletions
@@ -1,31 +0,0 @@ -#!/usr/bin/perl - -# git-st -- show git status (but handle binary files correctly) - -open $p, '-|', 'git', '-c', 'color.status=always', 'status', @ARGV - or die "$!\n"; -chomp($g = `git rev-parse --show-toplevel`); - -while (<$p>) { - if (/^Changes not staged for commit:$/ .. /^$/) { - if (/modified:\s+(.*\.pdf)/) { - $f = "$ENV{PWD}/$1"; - $f =~ s,^\Q$g\E/?,,; - $f =~ s/'/'"'"'/g; - `git-bdiff '$f'`; - if ($?) { - $mbuf .= $_; - $mod = 1; - } - } else { - $mod = 1 if not $mod and /[^t]:\s+/; - $mbuf .= $_; - } - $buf .= $mbuf if /^$/ and $mod; - } else { - $buf .= $_; - } -} - -close $p; -print $buf; |