From 03d827e2fbc409ef97829f25b8eeca5204f81a3c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= Date: Mon, 12 Jul 2021 13:24:49 +0200 Subject: Re-organize files --- git-st | 31 ------------------------------- 1 file changed, 31 deletions(-) delete mode 100755 git-st (limited to 'git-st') diff --git a/git-st b/git-st deleted file mode 100755 index 8edae3f..0000000 --- a/git-st +++ /dev/null @@ -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; -- cgit v1.2.3