From 03d827e2fbc409ef97829f25b8eeca5204f81a3c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?John=20Ankarstr=C3=B6m?= <john@ankarstrom.se>
Date: Mon, 12 Jul 2021 13:24:49 +0200
Subject: Re-organize files

---
 git/git-st | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 git/git-st

(limited to 'git/git-st')

diff --git a/git/git-st b/git/git-st
new file mode 100755
index 0000000..8edae3f
--- /dev/null
+++ b/git/git-st
@@ -0,0 +1,31 @@
+#!/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