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-s | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 git/git-s

(limited to 'git/git-s')

diff --git a/git/git-s b/git/git-s
new file mode 100755
index 0000000..faf55ff
--- /dev/null
+++ b/git/git-s
@@ -0,0 +1,20 @@
+#!/bin/sh
+
+# git-s -- selection-friendly git-status
+
+git status -s | perl -ne '
+	push @{$x{$1}}, $2 if /^(.). (.*)/;
+	push @{$y{$1}}, $2 if /^.(.) (.*)/;
+	END {
+		delete $x{"?"}; delete $x{" "}; delete $y{" "};
+		for (["index" => \%x], ["tree" => \%y]) {
+			($n, $h) = @$_;
+			print "$n:" if values %$h;
+			for (sort keys %$h) {
+				print "	$_ ";
+				print " $_" for @{$h->{$_}};
+				print "\n";
+			}
+		}
+	}
+'
-- 
cgit v1.2.3