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-s | 20 -------------------- 1 file changed, 20 deletions(-) delete mode 100755 git-s (limited to 'git-s') diff --git a/git-s b/git-s deleted file mode 100755 index faf55ff..0000000 --- a/git-s +++ /dev/null @@ -1,20 +0,0 @@ -#!/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