Add John Wiegley's git-flush script.

Author: unixorn

README.md

@@ -98,6 +98,7 @@ git clone this repository, then add it to your `$PATH`. Nothing here actually re
 * git-delete-local-merged - [https://plus.google.com/115587336092124934674/posts/dXsagsvLakJ](https://plus.google.com/115587336092124934674/posts/dXsagsvLakJ)
 * git-divergence - Gary Bernhardt's [dotfiles](https://github.com/garybernhardt/dotfiles/blob/master/bin/git-churn)
 * git-find-dirty - Matthew McCullough's [scripts](https://github.com/matthewmccullough/scripts/) repository
+* git-flush - John Wiegley's [git-scripts](https://github.com/jwiegley/git-scripts)
 * git-grab - Ryan Tomayko's [dotfiles](https://github.com/rtomayko/dotfiles)
 * git-improved-merge - Mislav Marohnić's [dotfiles](https://github.com/mislav/dotfiles)
 * git-incoming - Michael Markert's [dotfiles](https://github.com/cofi/dotfiles)

git-flush

@@ -0,0 +1,27 @@
+#!/bin/sh
+#
+# Original source: https://github.com/jwiegley/git-scripts/blob/master/git-flush
+#
+# The job of git-flush is to recompactify your repository to be as small
+# as possible, by dropping all reflogs, stashes, and other cruft that may
+# be bloating your pack files.
+
+/bin/rm -fr .git/refs/original
+/bin/rm -fr .git/refs/snapshots
+
+if [ -f .git/info/refs ]; then
+    perl -i -ne 'print unless /refs\/original/;' .git/info/refs
+    perl -i -ne 'print unless /refs\/snapshots/;' .git/info/refs
+fi
+if [ -f .git/packed-refs ]; then
+    perl -i -ne 'print unless /refs\/original/;' .git/packed-refs
+    perl -i -ne 'print unless /refs\/snapshots/;' .git/packed-refs
+fi
+
+git reflog expire --expire=0 --all
+
+if [ "$1" = "-f" ]; then
+    git stash clear
+fi
+
+git maxpack